blob: f6d6aaa19c980bbbca81c68eef7622abe03caba0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
|
# type t1 = A of string [@@unboxed]
# - : bool = true
# type t2 = { f : string; } [@@unboxed]
# - : bool = true
# type t3 = B of { g : string; } [@@unboxed]
# - : bool = true
# Characters 29-58:
type t4 = C [@@ocaml.unboxed];; (* no argument *)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Error: This type cannot be unboxed because its constructor has no argument.
# Characters 0-45:
type t5 = D of int * string [@@ocaml.unboxed];; (* more than one argument *)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Error: This type cannot be unboxed because
its constructor has more than one argument.
# Characters 0-33:
type t5 = E | F [@@ocaml.unboxed];; (* more than one constructor *)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Error: This type cannot be unboxed because it has more than one constructor.
# Characters 0-40:
type t6 = G of int | H [@@ocaml.unboxed];;
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Error: This type cannot be unboxed because it has more than one constructor.
# Characters 0-51:
type t7 = I of string | J of bool [@@ocaml.unboxed];;
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Error: This type cannot be unboxed because it has more than one constructor.
# Characters 1-50:
type t8 = { h : bool; i : int } [@@ocaml.unboxed];; (* more than one field *)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Error: This type cannot be unboxed because it has more than one field.
# Characters 0-56:
type t9 = K of { j : string; l : int } [@@ocaml.unboxed];;
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Error: This type cannot be unboxed because
its constructor has more than one argument.
# type t10 = A of t10 [@@unboxed]
# Characters 12-15:
let rec x = A x;;
^^^
Error: This kind of expression is not allowed as right-hand side of `let rec'
# Characters 121-172:
......struct
type t = A of string [@@ocaml.unboxed]
end..
Error: Signature mismatch:
Modules do not match:
sig type t = A of string [@@unboxed] end
is not included in
sig type t = A of string end
Type declarations do not match:
type t = A of string [@@unboxed]
is not included in
type t = A of string
Their internal representations differ:
the first declaration uses unboxed representation.
# Characters 63-96:
......struct
type t = A of string
end..
Error: Signature mismatch:
Modules do not match:
sig type t = A of string end
is not included in
sig type t = A of string [@@unboxed] end
Type declarations do not match:
type t = A of string
is not included in
type t = A of string [@@unboxed]
Their internal representations differ:
the second declaration uses unboxed representation.
# Characters 48-102:
......struct
type t = { f : string } [@@ocaml.unboxed]
end..
Error: Signature mismatch:
Modules do not match:
sig type t = { f : string; } [@@unboxed] end
is not included in
sig type t = { f : string; } end
Type declarations do not match:
type t = { f : string; } [@@unboxed]
is not included in
type t = { f : string; }
Their internal representations differ:
the first declaration uses unboxed representation.
# Characters 66-102:
......struct
type t = { f : string }
end..
Error: Signature mismatch:
Modules do not match:
sig type t = { f : string; } end
is not included in
sig type t = { f : string; } [@@unboxed] end
Type declarations do not match:
type t = { f : string; }
is not included in
type t = { f : string; } [@@unboxed]
Their internal representations differ:
the second declaration uses unboxed representation.
# Characters 53-112:
......struct
type t = A of { f : string } [@@ocaml.unboxed]
end..
Error: Signature mismatch:
Modules do not match:
sig type t = A of { f : string; } [@@unboxed] end
is not included in
sig type t = A of { f : string; } end
Type declarations do not match:
type t = A of { f : string; } [@@unboxed]
is not included in
type t = A of { f : string; }
Their internal representations differ:
the first declaration uses unboxed representation.
# Characters 71-112:
......struct
type t = A of { f : string }
end..
Error: Signature mismatch:
Modules do not match:
sig type t = A of { f : string; } end
is not included in
sig type t = A of { f : string; } [@@unboxed] end
Type declarations do not match:
type t = A of { f : string; }
is not included in
type t = A of { f : string; } [@@unboxed]
Their internal representations differ:
the second declaration uses unboxed representation.
# type t11 = L of float [@@unboxed]
# - : unit = ()
# type 'a t12 = M of 'a t12 [@@unboxed]
# val f : int t12 array -> int t12 = <fun>
# type t13 = A : 'a t12 -> t13 [@@unboxed]
# type t14
# type t15 = A of t14 [@@unboxed]
# type 'a abs
# Characters 0-45:
type t16 = A : _ abs -> t16 [@@ocaml.unboxed];;
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Error: This type cannot be unboxed because
it might contain both float and non-float values.
You should annotate it with [@@ocaml.boxed].
# Characters 19-69:
type t18 = A : _ list abs -> t18 [@@ocaml.unboxed];;
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Error: This type cannot be unboxed because
it might contain both float and non-float values.
You should annotate it with [@@ocaml.boxed].
# * Characters 176-256:
......struct
type t = A of float [@@ocaml.unboxed]
type u = { f1 : t; f2 : t }
end..
Error: Signature mismatch:
...
Type declarations do not match:
type u = { f1 : t; f2 : t; }
is not included in
type u = { f1 : t; f2 : t; }
Their internal representations differ:
the first declaration uses unboxed float representation.
# * * module T : sig type t [@@immediate] end
# * type 'a s = S : 'a -> 'a s [@@unboxed]
# Characters 0-33:
type t = T : _ s -> t [@@unboxed];;
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Error: This type cannot be unboxed because
it might contain both float and non-float values.
You should annotate it with [@@ocaml.boxed].
# type 'a s = S : 'a -> 'a option s [@@unboxed]
# Characters 0-33:
type t = T : _ s -> t [@@unboxed];;
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Error: This type cannot be unboxed because
it might contain both float and non-float values.
You should annotate it with [@@ocaml.boxed].
# module M :
sig type 'a r constraint 'a = unit -> 'b val inj : 'b -> (unit -> 'b) r end
# Characters 14-59:
type t = T : (unit -> _) M.r -> t [@@unboxed];;
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Error: This type cannot be unboxed because
it might contain both float and non-float values.
You should annotate it with [@@ocaml.boxed].
# type 'a s = S : (unit -> 'a) M.r -> 'a option s [@@unboxed]
# Characters 14-47:
type t = T : _ s -> t [@@unboxed];;
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Error: This type cannot be unboxed because
it might contain both float and non-float values.
You should annotate it with [@@ocaml.boxed].
# type 'a t = T : 'a s -> 'a t [@@unboxed]
# Characters 42-81:
type _ s = S : 'a t -> _ s [@@unboxed]
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Error: This type cannot be unboxed because
it might contain both float and non-float values.
You should annotate it with [@@ocaml.boxed].
# type 'a s
type ('a, 'p) t = private 'a s
type 'a packed = T : ('a, 'b) t -> 'a packed [@@unboxed]
#
|
