Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /sml/trunk/src/MLRISC/makeall.sml
ViewVC logotype

Annotation of /sml/trunk/src/MLRISC/makeall.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 744 - (view) (download)

1 : leunga 744 (*
2 :     * Recompile everything in this directory
3 :     *)
4 :     use "autoload.sml" handle _ => ();
5 :    
6 :     val files =
7 :     [
8 :     "Control.cm",
9 :     "Lib.cm",
10 :     "MLRISC.cm",
11 :     "SPARC.cm",
12 :     "ALPHA.cm",
13 :     "HPPA.cm",
14 :     "IA32.cm",
15 :     "PPC.cm",
16 :     (*"MIPS.cm", *)
17 :     "Peephole.cm",
18 :     "ALPHA-Peephole.cm",
19 :     "SPARC-Peephole.cm",
20 :     "IA32-Peephole.cm",
21 :     "Graphs.cm",
22 :     "Visual.cm",
23 :     "ir.cm",
24 :     "MLTREE.cm",
25 :     "RA.cm",
26 :     "GC.cm",
27 :     "IR.cm",
28 :     "RTL.cm",
29 :     "Region.cm",
30 :     "SSA.cm",
31 :     "VLIW.cm",
32 :     "Sched.cm",
33 :     "Opt.cm",
34 :     "ALPHA-RTL.cm",
35 :     "SPARC-RTL.cm",
36 :     "HPPA-RTL.cm",
37 :     "IA32-RTL.cm",
38 :     "ALPHA-SSA.cm",
39 :     "SPARC-SSA.cm",
40 :     "HPPA-SSA.cm",
41 :     "IA32-SSA.cm",
42 :     "ALPHA-Sched.cm",
43 :     "SPARC-Sched.cm",
44 :     "HPPA-Sched.cm",
45 :     "PPC-Sched.cm",
46 :     "IA32-Sched.cm"
47 :     (*"ALPHA-GC.cm",
48 :     "SPARC-GC.cm",
49 :     "HPPA-GC.cm",
50 :     "IA32-GC.cm",
51 :     "PPC-GC.cm",*)
52 :     ];
53 :    
54 :     val _ = (* Try to guess the version *)
55 :     use (case #version_id(Compiler.version) of
56 :     [110,0,_] => "makeall-110.0.6.sml"
57 :     | 110::ver::_ => if Int.>=(ver,30) then "makeall-new.sml"
58 :     else "makeall-110.25.sml"
59 :     )
60 :     ;

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0