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

SCM Repository

[smlnj] Diff of /sml/trunk/src/MLRISC/make.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/make.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1202, Sat May 18 01:05:18 2002 UTC revision 1203, Sat May 18 18:21:53 2002 UTC
# Line 1  Line 1 
1  (*  (*
2   * Regenerates all the machine description generated files.   * Regenerates all the machine description generated files.
3   * This works for only 110.32+   * This works for only 110.39+
4   *)   *)
5  fun set f = #set(CM.Anchor.anchor f) (SOME("cm"))  val () = #set(CM.symval "UNSHARED_MLRISC") (SOME 1);
 val _ = app set  
 [ "Control.cm",  
   "Lib.cm"  
 ];  
6  fun b() = CM.make "Tools/MDL/sources.cm";  fun b() = CM.make "Tools/MDL/sources.cm";
7  val _ = b();  val _ = b();
8  fun c f = MDLGen.gen(f^"/"^f^".mdl");  fun c f = MDLGen.gen(f^"/"^f^".mdl");
9  val _ = app c  val _ = app c
10  [ "x86",  [ "x86"
11    "sparc",  , "sparc"
12    "alpha",  , "alpha"
13    "hppa",  , "hppa"
14    "ppc",  , "ppc"
15    "mips"  (* , "mips" *)
16  ];  ];

Legend:
Removed from v.1202  
changed lines
  Added in v.1203

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