blob: bac85a816fd14016dfb660e7b456f186eac1883e (
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
|
(* TEST
* native-compiler
** setup-ocamlopt.byte-build-env
*** ocamlopt.byte
flags = "-save-ir-after scheduling -stop-after scheduling"
ocamlopt_byte_exit_status = "0"
**** script
script = "touch empty.ml"
***** ocamlopt.byte
flags = "-S start_from_emit.cmir-linear"
module = "empty.ml"
ocamlopt_byte_exit_status = "0"
****** check-ocamlopt.byte-output
******* script
script = "sh ${test_source_directory}/start_from_emit.sh"
******** ocamlopt.byte
flags = "-S start_from_emit.cmir-linear -save-ir-after scheduling"
module = "empty.ml"
ocamlopt_byte_exit_status = "0"
********* copy
src = "start_from_emit.cmir-linear"
dst = "expected.cmir_linear"
********** check-ocamlopt.byte-output
*********** script
script = "cmp start_from_emit.cmir-linear expected.cmir_linear"
*)
let foo f x =
if x > 0 then x * 7 else f x
let bar x y = x + y
|