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/CodeGen/cpscompile/limit.sml
ViewVC logotype

Diff of /sml/trunk/compiler/CodeGen/cpscompile/limit.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 41  Line 41 
41                    IntHashTable.mkTable(32,Limit')                    IntHashTable.mkTable(32,Limit')
42        val look = IntHashTable.lookup m        val look = IntHashTable.lookup m
43        val storeListSz = 2  (* size of store list entry *)        val storeListSz = 2  (* size of store list entry *)
44        fun g(d, RECORD(RK_FBLOCK,vl,_,e)) = g(d + (length(vl) * 2) + 2,e)        fun g(d, RECORD(RK_RAW64BLOCK,vl,_,e)) = g(d + (length(vl) * 2) + 2,e)
45          | g(d, RECORD(RK_FCONT,vl,_,e)) = g(d + (length(vl) * 2) + 2,e)          | g(d, RECORD(RK_FCONT,vl,_,e)) = g(d + (length(vl) * 2) + 2,e)
46          | g(d, RECORD(RK_VECTOR,vl,_,e)) = g(d + length(vl) + 4, e)          | g(d, RECORD(RK_VECTOR,vl,_,e)) = g(d + length(vl) + 4, e)
47          | g(d, RECORD(_,vl,_,e)) = g(d+length(vl)+1, e)          | g(d, RECORD(_,vl,_,e)) = g(d+length(vl)+1, e)

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