diff options
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] |