X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FInterpreter.c;fp=ghc%2Frts%2FInterpreter.c;h=0df0f99bc3f34b3c21a7ae2cbd2929b7bd59bf3c;hb=97bca0b7b11e73f8ca9d05d342c4c459f372fcbf;hp=79b883b8d9b5fe188a22ab8abaf603133efdf587;hpb=c8a382713b96c134b9a5fc7d6312d7d735fe25ac;p=ghc-hetmet.git

diff --git a/ghc/rts/Interpreter.c b/ghc/rts/Interpreter.c
index 79b883b..0df0f99 100644
--- a/ghc/rts/Interpreter.c
+++ b/ghc/rts/Interpreter.c
@@ -1164,9 +1164,8 @@ run_BCO:
 	    // collection might move the TSO as soon as we call
 	    // suspendThread below.
 
-	    void *arguments;
+	    W_ arguments[stk_offset];
 	    
-	    arguments = stgMallocWords(stk_offset,"bci_CCALL");
 	    memcpy(arguments, Sp, sizeof(W_) * stk_offset);
 #endif
 		
@@ -1213,7 +1212,6 @@ run_BCO:
 	    // back to the TSO stack. It would of course be enough to
 	    // just copy the return value, but we don't know the offset.
 	    memcpy(Sp, arguments, sizeof(W_) * stk_offset);
-	    free(arguments);
 #endif
 
 	    goto nextInsn;