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 /MLRISC/trunk/flowgraph/gasPseudoOps.sml
ViewVC logotype

Diff of /MLRISC/trunk/flowgraph/gasPseudoOps.sml

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

revision 2777, Tue Sep 18 17:37:30 2007 UTC revision 2778, Tue Sep 18 19:30:40 2007 UTC
# Line 94  Line 94 
94            val pop = (case sz            val pop = (case sz
95                   of 8 => "\t.byte\t"                   of 8 => "\t.byte\t"
96                    | 16 => "\t.short\t"                    | 16 => "\t.short\t"
97                    | 32 => "\t.int\t"                    | 32 => "\t.long\t"
98                    | 64 => "\t.quad\t"                    | 64 => "\t.quad\t"
99                    | n => error ("unexpected INT size: " ^ Int.toString n)                    | n => error ("unexpected INT size: " ^ Int.toString n)
100                  (* end case *))                  (* end case *))
# Line 105  Line 105 
105        | toString(PB.ASCII s)        =        | toString(PB.ASCII s)        =
106            Fmt.format "\t.ascii\t\"%s\"" [Fmt.STR(String.toCString s)]            Fmt.format "\t.ascii\t\"%s\"" [Fmt.STR(String.toCString s)]
107        | toString(PB.ASCIIZ s)       =        | toString(PB.ASCIIZ s)       =
108            Fmt.format "\t.asciz \"%s\"" [Fmt.STR(String.toCString s)]            Fmt.format "\t.asciz\t\"%s\"" [Fmt.STR(String.toCString s)]
109    
110        | toString(PB.SPACE sz)     = Fmt.format "\t.space\t%d" [Fmt.INT sz]        | toString(PB.SPACE sz)     = Fmt.format "\t.space\t%d" [Fmt.INT sz]
111    

Legend:
Removed from v.2777  
changed lines
  Added in v.2778

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