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/kernel/primop.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/FLINT/kernel/primop.sml

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

revision 770, Sun Dec 24 20:06:28 2000 UTC revision 771, Sat Dec 30 13:06:09 2000 UTC
# Line 131  Line 131 
131  fun cvtParams(from, to) = Int.toString from ^ "_" ^ Int.toString to  fun cvtParams(from, to) = Int.toString from ^ "_" ^ Int.toString to
132    
133  fun prPrimop (ARITH{oper,overflow,kind}) =  fun prPrimop (ARITH{oper,overflow,kind}) =
134        ((case oper      concat [case oper  of
135           of op + => "+" |  op - => "-" |  op * => " *"                  op + => "+" |  op - => "-"
136            | op / => "/" |  op ~ => "~" | LSHIFT => "lshift"                |  op * => " *" | op / => "/"
137            | RSHIFT => "rshift" | RSHIFTL => "rshift_l" | ABS => "abs"                |  op ~ => "~"
138            | ANDB => "andb" | ORB => "orb" | XORB => "xorb"                | FSQRT => "fsqrt"
139            | NOTB => "notb")                | FSIN => "fsin" | FCOS => "fcos" | FTAN => "ftan"
140         ^ (if overflow then "" else "n")                | LSHIFT => "lshift" | RSHIFT => "rshift" | RSHIFTL => "rshift_l"
141         ^ prNumkind kind)                | ANDB => "andb" | ORB => "orb" | XORB => "xorb" | NOTB => "notb"
142                  | ABS => "abs",
143                if overflow then "" else "n",
144                prNumkind kind]
145    
146    | prPrimop (INLLSHIFT kind) =  "inllshift"  ^ prNumkind kind    | prPrimop (INLLSHIFT kind) =  "inllshift"  ^ prNumkind kind
147    | prPrimop (INLRSHIFT kind) =  "inlrshift"  ^ prNumkind kind    | prPrimop (INLRSHIFT kind) =  "inlrshift"  ^ prNumkind kind

Legend:
Removed from v.770  
changed lines
  Added in v.771

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