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

Diff of /sml/trunk/compiler/CPS/cps/ppcps.sml

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

revision 733, Fri Nov 17 05:13:45 2000 UTC revision 772, Thu Jan 4 15:36:41 2001 UTC
# Line 33  Line 33 
33    | lookerName P.deflvar = "deflvar"    | lookerName P.deflvar = "deflvar"
34    | lookerName P.getspecial = "getspecial"    | lookerName P.getspecial = "getspecial"
35    | lookerName P.getpseudo = "getpseudo"    | lookerName P.getpseudo = "getpseudo"
36      | lookerName (P.rawload {kind}) = ("rawload" ^ numkindName kind)
37    
38  fun branchName P.boxed = "boxed"  fun branchName P.boxed = "boxed"
39    | branchName P.unboxed = "unboxed"    | branchName P.unboxed = "unboxed"
# Line 83  Line 84 
84    | setterName P.setpseudo = "setpseudo"    | setterName P.setpseudo = "setpseudo"
85    | setterName P.setmark = "setmark"    | setterName P.setmark = "setmark"
86    | setterName P.acclink = "acclink"    | setterName P.acclink = "acclink"
87      | setterName (P.rawstore {kind}) = ("rawstore" ^ numkindName kind)
88    
89  fun cvtParams(from, to) = Int.toString from ^ "_" ^ Int.toString to  fun cvtParams(from, to) = Int.toString from ^ "_" ^ Int.toString to
90    

Legend:
Removed from v.733  
changed lines
  Added in v.772

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