/usr/lib/mlton/sml/mlrisc-lib/makeall.sml is in mlton-basis 20130715-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | (*
* Recompile everything in this directory
*)
use "autoload.sml" handle _ => ();
val files =
[
"Control.cm",
"Lib.cm",
"MLRISC.cm",
"SPARC.cm",
"ALPHA.cm",
"HPPA.cm",
"IA32.cm",
"PPC.cm",
(* "MIPS.cm", *)
"Peephole.cm",
"ALPHA-Peephole.cm",
"SPARC-Peephole.cm",
"IA32-Peephole.cm",
"Graphs.cm",
"Visual.cm",
"ir.cm",
"MLTREE.cm",
"RA.cm",
"GC.cm",
"IR.cm",
"RTL.cm",
"Region.cm",
"ALPHA-RTL.cm",
"SPARC-RTL.cm",
"HPPA-RTL.cm",
"IA32-RTL.cm",
"SSA.cm",
"Opt.cm",
"ALPHA-SSA.cm",
"SPARC-SSA.cm",
"HPPA-SSA.cm",
"IA32-SSA.cm"
(* "VLIW.cm", *)
(* "Sched.cm", *)
(*
"ALPHA-Sched.cm",
"SPARC-Sched.cm",
"HPPA-Sched.cm",
"PPC-Sched.cm",
"IA32-Sched.cm"
*)
(*"ALPHA-GC.cm",
"SPARC-GC.cm",
"HPPA-GC.cm",
"IA32-GC.cm",
"PPC-GC.cm",*)
];
val _ = (* Try to guess the version *)
use (case #version_id(Compiler.version) of
[110,0,_] => "makeall-110.0.6.sml"
| 110::ver::_ => if Int.>=(ver,30) then "makeall-new.sml"
else "makeall-110.25.sml"
)
;
|