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/src/compiler/FLINT/cps/ppcps.sml
 [smlnj] / sml / trunk / src / compiler / FLINT / cps / ppcps.sml

Diff of /sml/trunk/src/compiler/FLINT/cps/ppcps.sml

revision 651, Thu Jun 1 18:34:03 2000 UTC revision 717, Sun Nov 5 15:07:51 2000 UTC
# Line 89  Line 89
89  fun arithName (P.arith{oper,kind}) =  fun arithName (P.arith{oper,kind}) =
90      ((case oper of  P.+ => "+" |  P.- => "-" |  P.* => "*"      ((case oper of  P.+ => "+" |  P.- => "-" |  P.* => "*"
91                    | P./ => "/" |  P.~ => "~" | P.abs => "abs"                    | P./ => "/" |  P.~ => "~" | P.abs => "abs"
92                      | P.fsqrt => "fsqrt"
93                      | P.fsin => "sin" | P.fcos => "cos" | P.ftan => "tan"
94                    | P.rshift => "rshift" | P.rshiftl => "rshiftl"                    | P.rshift => "rshift" | P.rshiftl => "rshiftl"
95                    | P.lshift => "lshift" | P.andb => "andb"                    | P.lshift => "lshift" | P.andb => "andb"
96                    | P.orb => "orb" | P.xorb => "xorb" | P.notb => "notb")                    | P.orb => "orb" | P.xorb => "xorb" | P.notb => "notb")

Legend:
 Removed from v.651 changed lines Added in v.717