/* -----------------------------------------------------------------------------
- * $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.
*
}
argp++;
}
-fprintf(stderr,"before rts_evalIO\n");
+
if (combined) {
sstat = rts_evalIO ( node, &nodeOut );
} else {
node );
sstat = rts_eval ( node, &nodeOut );
}
-fprintf(stderr, "after rts_evalIO\n");
+
if (sstat != Success)
barf ("unpackArgsAndCallHaskell_x86_nocallconv: eval failed");