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

Diff of /sml/trunk/src/compiler/FLINT/cps/cpstrans.sml

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

revision 161, Mon Oct 12 03:40:02 1998 UTC revision 162, Tue Oct 27 22:16:21 1998 UTC
# Line 165  Line 165 
165            | ([x], t::_) => (SOME (x,t), fhdr)            | ([x], t::_) => (SOME (x,t), fhdr)
166            | _ => let val v = mkv()            | _ => let val v = mkv()
167                       val u = VAR v                       val u = VAR v
168                       fun g (sv, (i,hdr)) =                       fun g (sv, st, (i,hdr)) =
169                         (i+1, fn e =>hdr(SELECT(i, u, sv, FLTt, e)))                         (i+1, fn e =>hdr(SELECT(i, u, sv, st, e)))
170                       val (n, gh) = foldl g (0, fhdr) spgvars                       val (n, gh) = ListPair.foldl g (0, fhdr) (spgvars,spgctys)
171                       val ct = PTRt(RPT n)                       val ct = PTRt(RPT n)
172                    in (SOME (v, ct), gh)                    in (SOME (v, ct), gh)
173                   end                   end

Legend:
Removed from v.161  
changed lines
  Added in v.162

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