flambda-backend: Make -extension immutable_arrays on by default (#1829)

goldfirere · web-flow · commit 263fa264360b · 2023-09-14T22:59:24.000-04:00
diff --git a/testsuite/tests/array-functions/test_iarray.ml b/testsuite/tests/array-functions/test_iarray.ml
@@ -1,5 +1,4 @@
 (* TEST
-   flags = "-extension immutable_arrays"
 *)
 
 module Iarray = Stdlib__Iarray
diff --git a/testsuite/tests/comprehensions/comprehensions_from_quickcheck.ml b/testsuite/tests/comprehensions/comprehensions_from_quickcheck.ml
@@ -1,5 +1,5 @@
 (* TEST
-   flags = "-extension comprehensions -extension immutable_arrays"
+   flags = "-extension comprehensions"
    * expect
 *)
 
diff --git a/testsuite/tests/comprehensions/iarray_comprehensions_pure.ml b/testsuite/tests/comprehensions/iarray_comprehensions_pure.ml
@@ -1,5 +1,5 @@
 (* TEST
-   flags = "-extension comprehensions -extension immutable_arrays"
+   flags = "-extension comprehensions"
    * expect
 *)
 
diff --git a/testsuite/tests/comprehensions/iarray_comprehensions_require_immutable_arrays.compilers.reference b/testsuite/tests/comprehensions/iarray_comprehensions_require_immutable_arrays.compilers.reference
diff --git a/testsuite/tests/comprehensions/iarray_comprehensions_require_immutable_arrays.ml b/testsuite/tests/comprehensions/iarray_comprehensions_require_immutable_arrays.ml
diff --git a/testsuite/tests/comprehensions/iarray_comprehensions_side_effects.ml b/testsuite/tests/comprehensions/iarray_comprehensions_side_effects.ml
@@ -1,5 +1,5 @@
 (* TEST
-   flags = "-extension comprehensions -extension immutable_arrays"
+   flags = "-extension comprehensions"
 *)
 
 module Iarray = Stdlib__Iarray
diff --git a/testsuite/tests/comprehensions/iarray_comprehensions_special.ml b/testsuite/tests/comprehensions/iarray_comprehensions_special.ml
@@ -1,5 +1,5 @@
 (* TEST
-   flags = "-extension comprehensions -extension immutable_arrays"
+   flags = "-extension comprehensions"
    * expect
 *)
 
diff --git a/testsuite/tests/comprehensions/quickcheck_lists_arrays_haskell_python.ml b/testsuite/tests/comprehensions/quickcheck_lists_arrays_haskell_python.ml
@@ -1128,7 +1128,6 @@ module Interactive_command = struct
     command
       "../../../ocaml"
       [ "-extension"; "comprehensions"
-      ; "-extension"; "immutable_arrays"
       ; "-noprompt"; "-no-version"
       ; "-w"; "no-unused-var" ]
       ~setup:(fun output ->
@@ -1165,7 +1164,7 @@ module Log_test_cases = struct
     try
       output_string oc
 {|(* TEST
-   flags = "-extension comprehensions -extension immutable_arrays"
+   flags = "-extension comprehensions"
    * expect
 *)
 
diff --git a/testsuite/tests/lib-array/iarray_singleton.ml b/testsuite/tests/lib-array/iarray_singleton.ml
@@ -1,5 +1,4 @@
 (* TEST
-   flags = "-extension immutable_arrays"
    * native
    *)
 
diff --git a/testsuite/tests/lib-array/iarrays_with_variables.ml b/testsuite/tests/lib-array/iarrays_with_variables.ml
@@ -1,5 +1,4 @@
 (* TEST
-   flags = "-extension immutable_arrays"
    * expect
 *)
 
diff --git a/testsuite/tests/lib-array/test_iarray.ml b/testsuite/tests/lib-array/test_iarray.ml
@@ -1,5 +1,4 @@
 (* TEST
-   flags = "-extension immutable_arrays"
    * expect
 *)
 
diff --git a/testsuite/tests/typing-local/float_iarray.ml b/testsuite/tests/typing-local/float_iarray.ml
@@ -1,5 +1,4 @@
 (* TEST
-   flags = "-extension immutable_arrays"
    * bytecode
      reference = "${test_source_directory}/float_iarray.heap.reference"
    * stack-allocation
diff --git a/testsuite/tests/typing-local/iarray.ml b/testsuite/tests/typing-local/iarray.ml
@@ -1,5 +1,4 @@
 (* TEST
-   flags = "-extension immutable_arrays"
    * bytecode
      reference = "${test_source_directory}/iarray.heap.reference"
    * stack-allocation
diff --git a/testsuite/tests/typing-local/local.ml b/testsuite/tests/typing-local/local.ml
@@ -1,5 +1,4 @@
 (* TEST
-   flags = "-extension immutable_arrays"
    * expect *)
 
 let leak n =
diff --git a/utils/language_extension.ml b/utils/language_extension.ml
@@ -177,6 +177,7 @@ let default_extensions : extn_pair list =
   [ Pair (Local, ())
   ; Pair (Include_functor, ())
   ; Pair (Polymorphic_parameters, ())
+  ; Pair (Immutable_arrays, ())
   ]
 let extensions : extn_pair list ref = ref default_extensions
 

Original file line number	Diff line number	Diff line change
`@@ -1,5 +1,4 @@`
`1`	`1`	`(* TEST`
`2`		`- flags = "-extension immutable_arrays"`
`3`	`2`	`*)`
`4`	`3`
`5`	`4`	`module Iarray = Stdlib__Iarray`
Original file line number	Diff line number	Diff line change
`@@ -177,6 +177,7 @@ let default_extensions : extn_pair list =`
`177`	`177`	`[ Pair (Local, ())`
`178`	`178`	`; Pair (Include_functor, ())`
`179`	`179`	`; Pair (Polymorphic_parameters, ())`
	`180`	`+ ; Pair (Immutable_arrays, ())`
`180`	`181`	`]`
`181`	`182`	`let extensions : extn_pair list ref = ref default_extensions`
`182`	`183`