File tree Expand file tree Collapse file tree 2 files changed +5
-7
lines changed
testsuite/tests/typing-layouts Expand file tree Collapse file tree 2 files changed +5
-7
lines changed Original file line number Diff line number Diff line change 3
3
* expect
4
4
*)
5
5
6
- (* CR layouts: These tests will change when we remove the obvious inaccuracy
7
- where float# is aliased to float.
6
+ (* CR layouts: We should start running these tests soon when
7
+ we have proper typechecking for unboxed float literals .
8
8
*)
9
9
10
+ (*
10
11
let id : float# -> float# = fun x -> x;;
11
12
12
13
id #4.0;;
@@ -32,3 +33,4 @@ val apply : (float# -> float# -> float#) -> float# -> float# -> float# =
32
33
<fun>
33
34
- : float# = 9.
34
35
|}];;
36
+ *)
Original file line number Diff line number Diff line change @@ -227,11 +227,7 @@ let common_initial_env add_type add_extension empty_env =
227
227
~layout: (Layout. value ~why: Extensible_variant )
228
228
|> add_type ident_extension_constructor
229
229
|> add_type ident_float
230
- (* CR layouts: Adding the alias float#=float is a convenient hack so
231
- we can write tests for float#, but this is obviously something we'll
232
- want to change.
233
- *)
234
- |> add_type ident_float_unboxed ~manifest: type_float
230
+ |> add_type ident_float_unboxed
235
231
|> add_type ident_floatarray
236
232
|> add_type ident_int ~layout: (Layout. immediate ~why: (Primitive ident_int))
237
233
|> add_type ident_int32
You can’t perform that action at this time.
0 commit comments