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 4970, Mon Apr 22 14:15:22 2019 UTC revision 4986, Fri Apr 26 17:08:01 2019 UTC
# Line 63  Line 63 
63        | arithopToString P.REM = "rem"        | arithopToString P.REM = "rem"
64        | arithopToString P.FDIV = "/"        | arithopToString P.FDIV = "/"
65        | arithopToString P.NEG = "~"        | arithopToString P.NEG = "~"
66        | arithopToString P.ABS = "abs"        | arithopToString P.FABS = "fabs"
67        | arithopToString P.FSQRT = "fsqrt"        | arithopToString P.FSQRT = "fsqrt"
68        | arithopToString P.FSIN = "sin"        | arithopToString P.FSIN = "sin"
69        | arithopToString P.FCOS = "cos"        | arithopToString P.FCOS = "cos"
# Line 134  Line 134 
134        | arithToString (P.TEST{from, to}) = cvtParams ("test_", from, to)        | arithToString (P.TEST{from, to}) = cvtParams ("test_", from, to)
135        | arithToString (P.TESTU{from, to}) = cvtParams ("testu_", from, to)        | arithToString (P.TESTU{from, to}) = cvtParams ("testu_", from, to)
136        | arithToString (P.TEST_INF i) = "test_inf_" ^ cvtParam i        | arithToString (P.TEST_INF i) = "test_inf_" ^ cvtParam i
137        | arithToString (P.ROUND{floor, from, to}) = concat[        | arithToString (P.REAL_TO_INT{floor, from, to}) = concat[
138              if floor then "floor" else "round",              if floor then "floor_" else "round_", cvtParam from, "to", cvtParam to
             numkindToString from, "to", numkindToString to  
139            ]            ]
140    
141      fun pureToString P.LENGTH = "length"      fun pureToString P.LENGTH = "length"
# Line 149  Line 148 
148        | pureToString (P.TRUNC_INF i) = "trunc_inf_" ^ cvtParam i        | pureToString (P.TRUNC_INF i) = "trunc_inf_" ^ cvtParam i
149        | pureToString (P.COPY_INF i) = concat ["copy_", cvtParam i, "_inf"]        | pureToString (P.COPY_INF i) = concat ["copy_", cvtParam i, "_inf"]
150        | pureToString (P.EXTEND_INF i) =  concat ["extend_", cvtParam i, "_inf"]        | pureToString (P.EXTEND_INF i) =  concat ["extend_", cvtParam i, "_inf"]
151        | pureToString (P.REAL{from, to}) =        | pureToString (P.INT_TO_REAL{from, to}) =
152            concat ["real", numkindToString from, "_", numkindToString to]            concat ["real", cvtParam from, "_", cvtParam to]
153        | pureToString P.SUBSCRIPTV = "subscriptv"        | pureToString P.SUBSCRIPTV = "subscriptv"
154        | pureToString (P.PURE_NUMSUBSCRIPT{kind}) = "numsubscriptv" ^ numkindToString kind        | pureToString (P.PURE_NUMSUBSCRIPT{kind}) = "numsubscriptv" ^ numkindToString kind
155        | pureToString P.GETTAG = "gettag"        | pureToString P.GETTAG = "gettag"

Legend:
Removed from v.4970  
changed lines
  Added in v.4986

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