X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FInterpreter.c;h=fbbda9d14f00cb1d05b8057ccfae4ddd2d292f34;hb=65b5fb0ff8dd2af5c8bed6db5f059b4f60eb05de;hp=c40d8946132ac4707348fa71d9b3d6cff9cf939a;hpb=61caf48a5f848cdd24e36a35645bc13c161df7a3;p=ghc-hetmet.git

diff --git a/rts/Interpreter.c b/rts/Interpreter.c
index c40d894..fbbda9d 100644
--- a/rts/Interpreter.c
+++ b/rts/Interpreter.c
@@ -1375,25 +1375,6 @@ run_BCO:
     barf("interpretBCO: fell off end of the interpreter");
 }
 
-/* temporary code for peeking inside a AP_STACK and pulling out values
-   based on their stack offset - used in the debugger for inspecting
-   the local values of a breakpoint
-*/
-HsStablePtr rts_getApStackVal (HsStablePtr, int);
-HsStablePtr rts_getApStackVal (HsStablePtr apStackSptr, int offset)
-{
-   HsStablePtr resultSptr;
-   StgAP_STACK *apStack;
-   StgClosure **payload;
-   StgClosure *val;
-
-   apStack = (StgAP_STACK *) deRefStablePtr (apStackSptr);
-   payload = apStack->payload;
-   val = (StgClosure *) payload[offset+2];
-   resultSptr = getStablePtr ((P_)val); 
-   return resultSptr;
-}
-
 /* set the single step flag for the debugger to True -
    it gets set back to false in the interpreter everytime
    we hit a breakpoint