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/compiler/TopLevel/interact/evalloop.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/TopLevel/interact/evalloop.sml

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

revision 1057, Fri Feb 8 17:31:02 2002 UTC revision 1058, Fri Feb 8 20:02:56 2002 UTC
# Line 63  Line 63 
63                      E.layerEnv (#get loc (), #get base ())                      E.layerEnv (#get loc (), #get base ())
64    
65                  val splitting = Control.LambdaSplitting.get ()                  val splitting = Control.LambdaSplitting.get ()
66                    fun uniquepid () = raise Fail "uniquepid called from evalloop"
67                  val {csegments, newstatenv, absyn, exportPid, exportLvars,                  val {csegments, newstatenv, absyn, exportPid, exportLvars,
68                       imports, inlineExp, ...} =                       imports, inlineExp, ...} =
69                      C.compile {source=source, ast=ast,                      C.compile {source=source, ast=ast,
# Line 70  Line 71 
71                                 symenv=symenv,                                 symenv=symenv,
72                                 compInfo=cinfo,                                 compInfo=cinfo,
73                                 checkErr=checkErrors,                                 checkErr=checkErrors,
74                                 splitting=splitting}                                 splitting=splitting,
75                                   uniquepid = uniquepid }
76                  (** returning absyn and exportLvars here is a bad idea,                  (** returning absyn and exportLvars here is a bad idea,
77                      they hold on things unnecessarily; this must be                      they hold on things unnecessarily; this must be
78                      fixed in the long run. (ZHONG)                      fixed in the long run. (ZHONG)

Legend:
Removed from v.1057  
changed lines
  Added in v.1058

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