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

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

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

revision 68, Fri Apr 3 00:06:42 1998 UTC revision 69, Fri Apr 3 00:06:55 1998 UTC
# Line 67  Line 67 
67   *****************************************************************************)   *****************************************************************************)
68    
69  (** take the input source and turn it into the concrete syntax *)  (** take the input source and turn it into the concrete syntax *)
70  val parsePhase = ST.makePhase "Compiler 010 Parse"  val parsePhase = ST.makePhase "Compiler 010 parse"
71  fun parseOne (source : source) =  fun parseOne (source : source) =
72    let val parser = FE.parse source    let val parser = FE.parse source
73        val parser = ST.doPhase parsePhase parser (* for correct timing *)        val parser = ST.doPhase parsePhase parser (* for correct timing *)
# Line 103  Line 103 
103    LazyComp.lazycomp    LazyComp.lazycomp
104    
105  val pickUnpick =  val pickUnpick =
106    ST.doPhase (ST.makePhase "Compiler 036 pickUnpick") CC.pickUnpick    ST.doPhase (ST.makePhase "Compiler 036 pickunpick") CC.pickUnpick
107    
108  (** take ast, do semantic checks, and output the new env, absyn and pickles *)  (** take ast, do semantic checks, and output the new env, absyn and pickles *)
109  fun elaborate {ast=ast, statenv=senv, compInfo=cinfo} =  fun elaborate {ast=ast, statenv=senv, compInfo=cinfo} =
# Line 122  Line 122 
122         exportLvars=exportLvars, staticPid = hash, pickle=pickle}         exportLvars=exportLvars, staticPid = hash, pickle=pickle}
123    end (* function elaborate *)    end (* function elaborate *)
124    
125  val elaborate = ST.doPhase(ST.makePhase "Compiler 030 Elaborate") elaborate  val elaborate = ST.doPhase(ST.makePhase "Compiler 030 elaborate") elaborate
126    
127  (*****************************************************************************  (*****************************************************************************
128   *                          ABSYN INSTRUMENTATION                            *   *                          ABSYN INSTRUMENTATION                            *
# Line 133  Line 133 
133        SProf.instrumDec (coreEnv, compInfo) source        SProf.instrumDec (coreEnv, compInfo) source
134        o TProf.instrumDec (coreEnv, compInfo)        o TProf.instrumDec (coreEnv, compInfo)
135    
136  val instrument = ST.doPhase (ST.makePhase "Compiler 039 Instrument") instrument  val instrument = ST.doPhase (ST.makePhase "Compiler 039 instrument") instrument
137    
138    
139  (*****************************************************************************  (*****************************************************************************
# Line 149  Line 149 
149     in {flint=flint, imports=imports}     in {flint=flint, imports=imports}
150    end    end
151    
152  val translate = ST.doPhase (ST.makePhase "Compiler 040 Translate") translate  val translate = ST.doPhase (ST.makePhase "Compiler 040 translate") translate
153    
154    
155  (*****************************************************************************  (*****************************************************************************
# Line 190  Line 190 
190    end    end
191  end (* local codegen *)  end (* local codegen *)
192    
193    (*
194  val codegen = ST.doPhase (ST.makePhase "Compiler 140 CodeGen") codegen  val codegen = ST.doPhase (ST.makePhase "Compiler 140 CodeGen") codegen
195    *)
196    
197  (*****************************************************************************  (*****************************************************************************
198   *                           COMPILATION                                     *   *                           COMPILATION                                     *

Legend:
Removed from v.68  
changed lines
  Added in v.69

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