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/compile/compile.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/compile/compile.sml

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

revision 591, Mon Apr 3 01:19:20 2000 UTC revision 592, Mon Apr 3 07:04:12 2000 UTC
# Line 239  Line 239 
239                      case SmlInfo.parsetree gp i of                      case SmlInfo.parsetree gp i of
240                          NONE => fail ()                          NONE => fail ()
241                        | SOME (ast, source) => let                        | SOME (ast, source) => let
242                              val corenv = #corenv (#param gp)                              val ast =
243                                    case #explicit_core_sym (SmlInfo.attribs i) of
244                                        NONE => ast
245                                      | SOME sy => CoreHack.rewrite (ast, sy)
246                              val cmData = PidSet.listItems pids                              val cmData = PidSet.listItems pids
247                              (* clear error flag (could still be set from                              (* clear error flag (could still be set from
248                               * earlier run) *)                               * earlier run) *)
# Line 250  Line 253 
253                                    ast = ast,                                    ast = ast,
254                                    source = source,                                    source = source,
255                                    senv = stat,                                    senv = stat,
256                                    symenv = E.layerSymbolic                                    symenv = sym }
                                                (sym, E.symbolicPart corenv),  
                                   corenv = E.staticPart corenv }  
257                              val memo = bfc2memo (bfc, SmlInfo.lastseen i)                              val memo = bfc2memo (bfc, SmlInfo.lastseen i)
258                          in                          in
259                              save bfc;                              save bfc;

Legend:
Removed from v.591  
changed lines
  Added in v.592

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