diff options
| author | David Terei <davidterei@gmail.com> | 2011-05-27 17:11:54 -0700 |
|---|---|---|
| committer | David Terei <davidterei@gmail.com> | 2011-05-31 00:53:31 -0700 |
| commit | 79f275092de54ba5f7e7336c13231ad5198befdf (patch) | |
| tree | 123f4c2d93c155441d0083e1d53d21920ce36a11 /compiler/nativeGen/SPARC/CodeGen | |
| parent | 4513387ea2c580aaae160948b810277e69f41850 (diff) | |
| download | haskell-79f275092de54ba5f7e7336c13231ad5198befdf.tar.gz | |
Fix some validation errors
Diffstat (limited to 'compiler/nativeGen/SPARC/CodeGen')
| -rw-r--r-- | compiler/nativeGen/SPARC/CodeGen/CCall.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/nativeGen/SPARC/CodeGen/CCall.hs b/compiler/nativeGen/SPARC/CodeGen/CCall.hs index d488168eed..0a26c232ba 100644 --- a/compiler/nativeGen/SPARC/CodeGen/CCall.hs +++ b/compiler/nativeGen/SPARC/CodeGen/CCall.hs @@ -85,10 +85,10 @@ genCCall target dest_regs argsAndHints (mop == MO_Memcpy || mop == MO_Memset || mop == MO_Memmove) - -> init argsAndHints + = init argsAndHints | otherwise - -> argsAndHints + = argsAndHints -- strip hints from the arg regs let args :: [CmmExpr] |