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 1878, Mon Nov 21 19:54:57 2005 UTC revision 1879, Fri Dec 16 06:13:13 2005 UTC
# Line 90  Line 90 
90                              val attribs =                              val attribs =
91                                  { split = s, is_rts = rts, extra_compenv = xe,                                  { split = s, is_rts = rts, extra_compenv = xe,
92                                    explicit_core_sym = ecs, noguid = false }                                    explicit_core_sym = ecs, noguid = false }
93                              val i =                          in SmlInfo.info' attribs gp
                                 SmlInfo.info' attribs gp  
94                                          { sourcepath = p,                                          { sourcepath = p,
95                                            group = (specgroup, (pos, newpos)),                                            group = (specgroup, (pos, newpos)),
96                                            sh_spec = Sharing.DONTCARE,                                            sh_spec = Sharing.DONTCARE,
97                                            setup = (NONE, NONE),                                            setup = (NONE, NONE),
98                                            locl = false,                                            locl = false,
99                                            controllers = [ovldC] }                                            controllers = [ovldC] }
                         in  
                             SmlInfo.parse_for_errors gp i;  
                             i  
100                          end                          end
101                          fun bogus n =                          fun bogus n =
102                              DG.SNODE { smlinfo = sml (n, LSC.UseDefault, NONE,                              DG.SNODE { smlinfo = sml (n, LSC.UseDefault, NONE,

Legend:
Removed from v.1878  
changed lines
  Added in v.1879

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