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

SCM Repository

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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 744 - (download) (annotate)
Fri Dec 8 04:11:42 2000 UTC (18 years, 8 months ago) by leunga
File size: 1023 byte(s)

   A CVS update record!

   Changed type cell from int to datatype, and numerous other changes.
   Affect every client of MLRISC.  Lal says this can be bootstrapped on all
   machines.  See smlnj/HISTORY for details.

   Tag:  leunga-20001207-cell-monster-hack
(*
 * 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",
 "SSA.cm",
 "VLIW.cm",
 "Sched.cm",
 "Opt.cm",
 "ALPHA-RTL.cm",
 "SPARC-RTL.cm",
 "HPPA-RTL.cm",
 "IA32-RTL.cm",
 "ALPHA-SSA.cm",
 "SPARC-SSA.cm",
 "HPPA-SSA.cm",
 "IA32-SSA.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"
    )
;

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