diff options
| author | Ben.Lippmeier@anu.edu.au <unknown> | 2009-01-22 22:51:50 +0000 |
|---|---|---|
| committer | Ben.Lippmeier@anu.edu.au <unknown> | 2009-01-22 22:51:50 +0000 |
| commit | c0ea29afb7fcc3e8a69df60704d170d2c45e3d90 (patch) | |
| tree | afb1c74985beb593f92aa8c33991953e433bfa13 | |
| parent | d95190caa3e09b33bca8544051043954ebd89c73 (diff) | |
| download | haskell-c0ea29afb7fcc3e8a69df60704d170d2c45e3d90.tar.gz | |
SPARC NCG: Use .skip instead of .space in assembler
- In the GNU assembler they mean the same thing
- The Solaris assembler only has .skip
| -rw-r--r-- | compiler/nativeGen/PprMach.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/nativeGen/PprMach.hs b/compiler/nativeGen/PprMach.hs index c472b5f32d..8fc9e3dc46 100644 --- a/compiler/nativeGen/PprMach.hs +++ b/compiler/nativeGen/PprMach.hs @@ -692,7 +692,7 @@ pprData :: CmmStatic -> Doc pprData (CmmAlign bytes) = pprAlign bytes pprData (CmmDataLabel lbl) = pprLabel lbl pprData (CmmString str) = pprASCII str -pprData (CmmUninitialised bytes) = ptext (sLit ".space ") <> int bytes +pprData (CmmUninitialised bytes) = ptext (sLit ".skip ") <> int bytes pprData (CmmStaticLit lit) = pprDataItem lit pprGloblDecl :: CLabel -> Doc |