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/MLRISC/x86/instructions/x86Cells.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/x86/instructions/x86Cells.sml

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

revision 651, Thu Jun 1 18:34:03 2000 UTC revision 731, Fri Nov 10 22:57:45 2000 UTC
# Line 135  Line 135 
135            val r = (if (r <= 63)            val r = (if (r <= 63)
136                   then (r - 32)                   then (r - 32)
137                   else r)                   else r)
138         in (fn (0, _) => "%st"         in (fn (f, _) => (if (f < 8)
             | (f, _) => (if (f < 8)  
139                   then (("%st(" ^ (Int.toString f)) ^ ")")                   then (("%st(" ^ (Int.toString f)) ^ ")")
140                   else ("%f" ^ (Int.toString f)))                   else ("%f" ^ (Int.toString f)))
141            ) (r, ty)            ) (r, ty)

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

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