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 4560, Fri May 4 23:00:31 2018 UTC revision 4667, Tue Jun 12 18:46:48 2018 UTC
# Line 162  Line 162 
162    | pureName P.newarray0 = "newarray0"    | pureName P.newarray0 = "newarray0"
163    | pureName (P.rawrecord rk) =    | pureName (P.rawrecord rk) =
164      "rawrecord_"^getOpt(Option.map rkstring rk, "notag")      "rawrecord_"^getOpt(Option.map rkstring rk, "notag")
   | pureName (P.condmove b) = "condmove "^branchName b  
165    
166  and rkstring rk = (case rk  and rkstring rk = (case rk
167          of RK_VECTOR => "RK_VECTOR"          of RK_VECTOR => "RK_VECTOR"

Legend:
Removed from v.4560  
changed lines
  Added in v.4667

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