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/ml-nlffigen/ast-to-spec.sml
ViewVC logotype

Diff of /sml/trunk/src/ml-nlffigen/ast-to-spec.sml

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

revision 1059, Mon Feb 11 17:05:33 2002 UTC revision 1060, Mon Feb 11 20:55:09 2002 UTC
# Line 20  Line 20 
20      fun err m = raise Fail ("AstToSpec: error: " ^ m)      fun err m = raise Fail ("AstToSpec: error: " ^ m)
21      fun warn m = TextIO.output (TextIO.stdErr, "AstToSpec: warning: " ^ m)      fun warn m = TextIO.output (TextIO.stdErr, "AstToSpec: warning: " ^ m)
22    
23      fun build (bundle, sizes: Sizes.sizes, cfiles, match, allSU, eshift) = let      fun build (bundle, sizes: Sizes.sizes,
24                   cfiles, match, allSU, eshift, gensym_suffix) =
25        let
26    
27          val curLoc = ref "?"          val curLoc = ref "?"
28    
# Line 97  Line 99 
99                   SOME s => s                   SOME s => s
100                 | NONE => let                 | NONE => let
101                       val i = !nexttag                       val i = !nexttag
102                       val s = Int.toString i                       val s = Int.toString i ^ gensym_suffix
103                   in                   in
104                       nexttag := i + 1;                       nexttag := i + 1;
105                       Tidtab.insert (tags, tid, s);                       Tidtab.insert (tags, tid, s);

Legend:
Removed from v.1059  
changed lines
  Added in v.1060

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