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

Diff of /sml/trunk/compiler/CPS/convert/cpstrans.sml

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

revision 5014, Sun Apr 28 20:24:18 2019 UTC revision 5015, Mon Apr 29 01:51:55 2019 UTC
# Line 79  Line 79 
79                              val v = mkv()                              val v = mkv()
80                              val vs = map (fn x => (x, OFFp 0)) spfvars                              val vs = map (fn x => (x, OFFp 0)) spfvars
81                              val ct = PTRt(FPT (length vs))                              val ct = PTRt(FPT (length vs))
82                              val fh = fn e => RECORD(RK_FBLOCK, vs, v, e)                              val fh = fn e => RECORD(RK_RAW64BLOCK, vs, v, e)
83                              in                              in
84                                (fh, (VAR v)::spgvars, ct::spgctys)                                (fh, (VAR v)::spgvars, ct::spgctys)
85                              end                              end

Legend:
Removed from v.5014  
changed lines
  Added in v.5015

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