Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Tracker SCM

SCM Repository

[smlnj] Diff of /sml/trunk/src/MLRISC/ppc/flowgraph/ppcDarwinPseudoOps.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/ppc/flowgraph/ppcDarwinPseudoOps.sml

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

revision 1333, Thu May 22 17:12:13 2003 UTC revision 1334, Thu May 22 22:46:30 2003 UTC
# Line 99  Line 99 
99                    | 16 => "\t.short\t"                    | 16 => "\t.short\t"
100                    | 32 => "\t.long\t"                    | 32 => "\t.long\t"
101                    | 64 => error "INT64"                    | 64 => error "INT64"
102                      | _ => error ("pop: INT sz = " ^ Int.toString sz)
103                  (* end case *))                  (* end case *))
104            in            in
105              String.concat (pop :: join i)              String.concat (pop :: join i)
# Line 115  Line 116 
116            val pop = (case sz            val pop = (case sz
117                   of 32 => "\t.single "                   of 32 => "\t.single "
118                    | 64 => "\t.double "                    | 64 => "\t.double "
119                      | _ => error ("pop: FLOAT sz = " ^ Int.toString sz)
120                  (* end case *))                  (* end case *))
121            in            in
122              String.concat (pop :: join f)              String.concat (pop :: join f)

Legend:
Removed from v.1333  
changed lines
  Added in v.1334

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