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/cm/bootstrap/build-initdg.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/bootstrap/build-initdg.sml

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

revision 397, Fri Aug 13 07:06:52 1999 UTC revision 398, Wed Aug 25 15:36:43 1999 UTC
# Line 82  Line 82 
82                                  SOME x => x                                  SOME x => x
83                                | NONE =>                                | NONE =>
84                                      (case Primitive.fromString primconf n of                                      (case Primitive.fromString primconf n of
85                                           SOME p => DG.SB_BNODE (DG.PNODE p)                                           SOME p =>  let
86                                                 val ii =
87                                                     Primitive.iinfo primconf p
88                                             in
89                                                 DG.SB_BNODE (DG.PNODE p, ii)
90                                             end
91                                         | NONE => (error ("undefined: " ^ n);                                         | NONE => (error ("undefined: " ^ n);
92                                                    DG.SB_SNODE (bogus n)))                                                    DG.SB_SNODE (bogus n)))
93    

Legend:
Removed from v.397  
changed lines
  Added in v.398

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