Removed warnings, made Haddock happy, added examples in documentation

[ghc-hetmet.git] / compiler / codeGen / StgCmmForeign.hs

diff --git a/compiler/codeGen/StgCmmForeign.hs b/compiler/codeGen/StgCmmForeign.hs
index 2a6b794..2735b69 100644 (file)
--- 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