X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FForeignCall.c;h=182853e72f322f3c595a5c83e395e63bd2b59ac9;hb=0d5d32bf62c39c390934d9ef4b01e2bf2db910f8;hp=66d3758398517e3a9698d1032e04b46cbbc2e6ab;hpb=e120f85a5df3f5f3e0c6ffb8d5bad1b7a6d24ab9;p=ghc-hetmet.git

diff --git a/ghc/rts/ForeignCall.c b/ghc/rts/ForeignCall.c
index 66d3758..182853e 100644
--- a/ghc/rts/ForeignCall.c
+++ b/ghc/rts/ForeignCall.c
@@ -1,6 +1,6 @@
 
 /* -----------------------------------------------------------------------------
- * $Id: ForeignCall.c,v 1.12 2000/03/02 10:10:34 sewardj Exp $
+ * $Id: ForeignCall.c,v 1.13 2000/03/02 10:32:17 sewardj Exp $
  *
  * (c) The GHC Team 1994-1999.
  *
@@ -464,7 +464,7 @@ unpackArgsAndCallHaskell_x86_nocallconv_wrk ( StgStablePtr stableptr,
       }
       argp++;
    }
-fprintf(stderr,"before rts_evalIO\n");
+
    if (combined) {
       sstat = rts_evalIO ( node, &nodeOut );
    } else {
@@ -473,7 +473,7 @@ fprintf(stderr,"before rts_evalIO\n");
                 node );
       sstat = rts_eval ( node, &nodeOut );
    }
-fprintf(stderr, "after rts_evalIO\n");
+
    if (sstat != Success)
       barf ("unpackArgsAndCallHaskell_x86_nocallconv: eval failed");