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/FLINT/cps/convert.sml
ViewVC logotype

Diff of /sml/trunk/compiler/FLINT/cps/convert.sml

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

revision 191, Fri Nov 20 02:01:27 1998 UTC revision 197, Sun Nov 22 01:25:23 1998 UTC
# Line 278  Line 278 
278   *                   convert : F.prog -> CPS.function                      *   *                   convert : F.prog -> CPS.function                      *
279   ***************************************************************************)   ***************************************************************************)
280  fun convert fdec =  fun convert fdec =
281   let val {getLty=getLtyGen, cleanUp} = Recover.recover (fdec, true)   let val {getLty=getlty, cleanUp} = Recover.recover (fdec, true)
      val getlty = getLtyGen DI.top  
282       val ctypes = map ctype       val ctypes = map ctype
283       fun res_ctys f =       fun res_ctys f =
284         let val lt = getlty (F.VAR f)         let val lt = getlty (F.VAR f)

Legend:
Removed from v.191  
changed lines
  Added in v.197

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