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

Diff of /sml/trunk/src/compiler/FLINT/main/flintcomp.sml

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

revision 976, Wed Nov 14 14:54:03 2001 UTC revision 977, Wed Nov 14 16:53:16 2001 UTC
# Line 209  Line 209 
209              val data = litToBytes dlit              val data = litToBytes dlit
210              val _ = prC "cpsopt-code" function              val _ = prC "cpsopt-code" function
211    
 (** NOTE: we should be passing the source-code name (src) to the  
  ** code generator somehow (for the second argument to code object allocation).  
  **)  
212              fun gen fx =              fun gen fx =
213                let val fx = (prC "closure" o closure) fx                let val fx = (prC "closure" o closure) fx
214                    val carg = globalfix fx                    val carg = globalfix fx
215                    val carg = spill carg                    val carg = spill carg
216                    val (carg, limit) = limit carg                    val (carg, limit) = limit carg
217                 in codegen (carg, limit, err);                 in codegen { funcs = carg, limits = limit, err = err,
218                                srcname = src };
219                    collect ()                    collect ()
220                end                end
221    
# Line 232  Line 230 
230    
231  end (* local *)  end (* local *)
232  end (* structure FLINTComp *)  end (* structure FLINTComp *)
   

Legend:
Removed from v.976  
changed lines
  Added in v.977

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