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

Diff of /sml/trunk/src/compiler/TopLevel/main/compile.sml

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

revision 1077, Tue Feb 19 15:48:50 2002 UTC revision 1078, Tue Feb 19 21:26:48 2002 UTC
# Line 2  Line 2 
2  (* compile.sml *)  (* compile.sml *)
3    
4  functor CompileF(structure M  : CODEGENERATOR  functor CompileF(structure M  : CODEGENERATOR
5                   structure CC : CCONFIG) : COMPILE0 =                   structure CC : CCONFIG
6                     val cproto_conv : string) : COMPILE0 =
7  struct  struct
8    
9      fun mkCompInfo { source, transform } =      fun mkCompInfo { source, transform } =
# Line 90  Line 91 
91          (*** statenv used for printing Absyn in messages ***)          (*** statenv used for printing Absyn in messages ***)
92          let val statenv = StaticEnv.atop (newstatenv, oldstatenv)          let val statenv = StaticEnv.atop (newstatenv, oldstatenv)
93          in          in
94              Translate.transDec(absyn, exportLvars, statenv, compInfo)              Translate.transDec { rootdec = absyn,
95                                     exportLvars = exportLvars,
96                                     env = statenv,
97                                     cproto_conv = cproto_conv,
98                                     compInfo = compInfo }
99          end          end
100    
101      val translate =      val translate =

Legend:
Removed from v.1077  
changed lines
  Added in v.1078

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