diff options
| author | dias@eecs.harvard.edu <unknown> | 2008-10-17 17:07:07 +0000 |
|---|---|---|
| committer | dias@eecs.harvard.edu <unknown> | 2008-10-17 17:07:07 +0000 |
| commit | 6bc92166180824bf046d31e378359e3c386150f9 (patch) | |
| tree | 20ed1d073150c1ef7ad5deb31dbfec27253b5eae /compiler/codeGen/StgCmmForeign.hs | |
| parent | c62b824e9e8808eb3845ddb1614494b0575eaafd (diff) | |
| download | haskell-6bc92166180824bf046d31e378359e3c386150f9.tar.gz | |
Removed warnings, made Haddock happy, added examples in documentation
The interesting examples talk about our story with heap checks in
case alternatives and our story with the case scrutinee as a Boolean.
Diffstat (limited to 'compiler/codeGen/StgCmmForeign.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmForeign.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/StgCmmForeign.hs b/compiler/codeGen/StgCmmForeign.hs index 2a6b794e2d..2735b69424 100644 --- a/compiler/codeGen/StgCmmForeign.hs +++ b/compiler/codeGen/StgCmmForeign.hs @@ -117,7 +117,7 @@ emitForeignCall -- only RTS procedures do this -> FCode () emitForeignCall safety results target args _srt ret - | not (playSafe safety) = do -- trace "emitForeignCall; ret is undone" $ do + | not (playSafe safety) = do let (caller_save, caller_load) = callerSaveVolatileRegs updfr_off <- getUpdFrameOff emit caller_save |