File tree 19 files changed +27
-56
lines changed
19 files changed +27
-56
lines changed Original file line number Diff line number Diff line change 46
46
(targets
47
47
float_u.ml
48
48
float_u.mli
49
+ iarray.ml
50
+ iarray.mli
51
+ iarrayLabels.ml
52
+ iarrayLabels.mli
49
53
int32_u.ml
50
54
int32_u.mli
51
55
int64_u.ml
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
Original file line number Diff line number Diff line change @@ -2,5 +2,5 @@ module Float_u = Float_u
2
2
module Int32_u = Int32_u
3
3
module Int64_u = Int64_u
4
4
module Nativeint_u = Nativeint_u
5
- module Iarray = Stdlib__Iarray
6
- module IarrayLabels = Stdlib__IarrayLabels
5
+ module Iarray = Iarray
6
+ module IarrayLabels = IarrayLabels
Original file line number Diff line number Diff line change @@ -2,5 +2,5 @@ module Float_u = Float_u
2
2
module Int32_u = Int32_u
3
3
module Int64_u = Int64_u
4
4
module Nativeint_u = Nativeint_u
5
- module Iarray = Stdlib__Iarray
6
- module IarrayLabels = Stdlib__IarrayLabels
5
+ module Iarray = Iarray
6
+ module IarrayLabels = IarrayLabels
Original file line number Diff line number Diff line change @@ -454,32 +454,6 @@ stdlib__Hashtbl.cmx : hashtbl.ml \
454
454
stdlib__Hashtbl.cmi : hashtbl.mli \
455
455
stdlib.cmi \
456
456
stdlib__Seq.cmi
457
- stdlib__Iarray.cmo : iarray.ml \
458
- stdlib.cmi \
459
- stdlib__Seq.cmi \
460
- stdlib__Array.cmi \
461
- stdlib__Iarray.cmi
462
- stdlib__Iarray.cmx : iarray.ml \
463
- stdlib.cmx \
464
- stdlib__Seq.cmx \
465
- stdlib__Array.cmx \
466
- stdlib__Iarray.cmi
467
- stdlib__Iarray.cmi : iarray.mli \
468
- stdlib.cmi \
469
- stdlib__Seq.cmi
470
- stdlib__IarrayLabels.cmo : iarrayLabels.ml \
471
- stdlib.cmi \
472
- stdlib__Seq.cmi \
473
- stdlib__Array.cmi \
474
- stdlib__IarrayLabels.cmi
475
- stdlib__IarrayLabels.cmx : iarrayLabels.ml \
476
- stdlib.cmx \
477
- stdlib__Seq.cmx \
478
- stdlib__Array.cmx \
479
- stdlib__IarrayLabels.cmi
480
- stdlib__IarrayLabels.cmi : iarrayLabels.mli \
481
- stdlib.cmi \
482
- stdlib__Seq.cmi
483
457
stdlib__In_channel.cmo : in_channel.ml \
484
458
stdlib__Sys.cmi \
485
459
stdlib.cmi \
Original file line number Diff line number Diff line change @@ -57,7 +57,6 @@ STDLIB_MODULE_BASENAMES = \
57
57
unit \
58
58
marshal \
59
59
array \
60
- iarray \
61
60
float \
62
61
int32 \
63
62
nativeint \
@@ -94,7 +93,6 @@ STDLIB_MODULE_BASENAMES = \
94
93
filename \
95
94
complex \
96
95
arrayLabels \
97
- iarrayLabels \
98
96
listLabels \
99
97
bytesLabels \
100
98
stringLabels \
Original file line number Diff line number Diff line change 129
129
gc.mli
130
130
hashtbl.ml
131
131
hashtbl.mli
132
- iarray.ml
133
- iarray.mli
134
- iarrayLabels.ml
135
- iarrayLabels.mli
136
132
in_channel.ml
137
133
in_channel.mli
138
134
int.ml
280
276
.stdlib.objs/byte/stdlib__Hashtbl.cmi
281
277
.stdlib.objs/byte/stdlib__Hashtbl.cmt
282
278
.stdlib.objs/byte/stdlib__Hashtbl.cmti
283
- .stdlib.objs/byte/stdlib__Iarray.cmi
284
- .stdlib.objs/byte/stdlib__Iarray.cmt
285
- .stdlib.objs/byte/stdlib__Iarray.cmti
286
- .stdlib.objs/byte/stdlib__IarrayLabels.cmi
287
- .stdlib.objs/byte/stdlib__IarrayLabels.cmt
288
- .stdlib.objs/byte/stdlib__IarrayLabels.cmti
289
279
.stdlib.objs/byte/stdlib__In_channel.cmi
290
280
.stdlib.objs/byte/stdlib__In_channel.cmt
291
281
.stdlib.objs/byte/stdlib__In_channel.cmti
488
478
.stdlib.objs/native/stdlib__Either.cmx
489
479
.stdlib.objs/native/stdlib__In_channel.cmx
490
480
.stdlib.objs/native/stdlib__Out_channel.cmx
491
- .stdlib.objs/native/stdlib__Iarray.cmx
492
- .stdlib.objs/native/stdlib__IarrayLabels.cmx
493
481
(META as stdlib/META))
494
482
(section lib)
495
483
(package ocaml_runtime_stdlib))
Original file line number Diff line number Diff line change 1
- (* TEST *)
1
+ (* TEST
2
+ include stdlib_stable;
3
+ *)
2
4
3
- module Iarray = Stdlib__Iarray
5
+ module Iarray = Stdlib_stable. Iarray
4
6
external ( .:( ) ) : 'a iarray -> int -> 'a = " %array_safe_get"
5
7
6
8
(* Copied from [test.ml], but with all the [Array.fill] tests deleted *)
Original file line number Diff line number Diff line change 1
1
(* TEST
2
2
flags = "-extension comprehensions";
3
+ include stdlib_stable;
3
4
expect;
4
5
*)
5
6
6
- module Iarray = Stdlib__Iarray ;;
7
+ module Iarray = Stdlib_stable. Iarray ;;
7
8
[%% expect{|
8
- module Iarray = Stdlib__Iarray
9
+ module Iarray = Stdlib_stable. Iarray
9
10
| }];;
10
11
11
12
(* *****************************************************************************
Original file line number Diff line number Diff line change 1
1
(* TEST
2
2
flags = "-extension comprehensions";
3
+ include stdlib_stable;
3
4
*)
4
5
5
- module Iarray = Stdlib__Iarray
6
+ module Iarray = Stdlib_stable. Iarray
6
7
7
8
(* *****************************************************************************
8
9
* ******** ATTENTION! ******** *
Original file line number Diff line number Diff line change 1
1
(* TEST
2
+ include stdlib_stable;
2
3
expect;
3
4
*)
4
5
5
- module Iarray = Stdlib__Iarray ;;
6
+ module Iarray = Stdlib_stable. Iarray ;;
6
7
7
8
external ( .:( ) ) : 'a iarray -> int -> 'a = " %array_safe_get" ;;
8
9
@@ -15,7 +16,7 @@ let marray : int array = [|1;2;3;4;5|];;
15
16
let mfarray : float array = [|1.5 ;2.5 ;3.5 ;4.5 ;5.5 |];;
16
17
17
18
[%% expect{|
18
- module Iarray = Stdlib__Iarray
19
+ module Iarray = Stdlib_stable. Iarray
19
20
external ( .:( ) ) : 'a iarray -> int -> 'a = " %array_safe_get"
20
21
val iarray : int iarray = [:1 ; 2 ; 3 ; 4 ; 5 :]
21
22
val ifarray : float iarray = [:1.5 ; 2.5 ; 3.5 ; 4.5 ; 5.5 :]
Original file line number Diff line number Diff line change 1
1
(* TEST
2
+ include stdlib_stable;
2
3
{
3
4
reference = "${test_source_directory}/float_iarray.heap.reference";
4
5
bytecode;
16
17
(* Testing that local [float iarray]s don't allocate on access. This is a
17
18
question because for flat float arrays, accesses have to box the float. *)
18
19
19
- module Iarray = Stdlib__Iarray
20
+ module Iarray = Stdlib_stable. Iarray
20
21
21
22
let ( .:() ) = Iarray. ( .:( ) )
22
23
File renamed without changes.
File renamed without changes.
Original file line number Diff line number Diff line change 1
1
(* TEST
2
+ include stdlib_stable;
2
3
{
3
- reference = "${test_source_directory}/iarray .byte.reference";
4
+ reference = "${test_source_directory}/test_iarray .byte.reference";
4
5
bytecode;
5
6
}{
6
7
stack-allocation;
7
- reference = "${test_source_directory}/iarray .stack.reference";
8
+ reference = "${test_source_directory}/test_iarray .stack.reference";
8
9
native;
9
10
}{
10
11
no-stack-allocation;
11
- reference = "${test_source_directory}/iarray .heap.reference";
12
+ reference = "${test_source_directory}/test_iarray .heap.reference";
12
13
native;
13
14
}
14
15
*)
21
22
2. Correctness: They actually create arrays on the stack (by testing that no
22
23
GCed allocation happens). *)
23
24
24
- module Iarray = Stdlib__Iarray
25
+ module Iarray = Stdlib_stable. Iarray
25
26
26
27
external opaque_local : local_ 'a -> local_ 'a = " %opaque"
27
28
File renamed without changes.
You can’t perform that action at this time.
0 commit comments