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 564, Fri Mar 3 16:55:03 2000 UTC revision 565, Sun Mar 5 04:10:18 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 (f, _) => (if (f = 0)         in (fn (0, _) => "%st"
139                   then "%st"              | (f, _) => (if (f < 8)
                  else (if (f < 8)  
140                      then (("%st(" ^ (Int.toString f)) ^ ")")                      then (("%st(" ^ (Int.toString f)) ^ ")")
141                      else ("%f" ^ (Int.toString f))))                   else ("%f" ^ (Int.toString f)))
142            ) (r, ty)            ) (r, ty)
143         end         end
144    

Legend:
Removed from v.564  
changed lines
  Added in v.565

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