diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-06-02 14:02:33 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-06-02 14:02:33 +0000 |
| commit | dd56e9ab4544e83d27532a8d9058140bfe81825c (patch) | |
| tree | 5c5ba3eb63a02d7de3c8c514e883f7dd36e98332 /rts/Printer.c | |
| parent | cfe2fd2a36f43c1f998bb5e7c0cec15480ed3f96 (diff) | |
| download | haskell-dd56e9ab4544e83d27532a8d9058140bfe81825c.tar.gz | |
Remove old GUM/GranSim code
Diffstat (limited to 'rts/Printer.c')
| -rw-r--r-- | rts/Printer.c | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/rts/Printer.c b/rts/Printer.c index 2fbe2765a6..a0040a5d46 100644 --- a/rts/Printer.c +++ b/rts/Printer.c @@ -22,12 +22,6 @@ #include <stdlib.h> #include <string.h> -#if defined(GRAN) || defined(PAR) -// HWL: explicit fixed header size to make debugging easier -int fixed_hs = sizeof(StgHeader), itbl_sz = sizeofW(StgInfoTable), - uf_sz=sizeofW(StgUpdateFrame); -#endif - /* -------------------------------------------------------------------------- * local function decls * ------------------------------------------------------------------------*/ @@ -375,37 +369,6 @@ printClosure( StgClosure *obj ) debugBelch(")\n"); break; -#if defined(PAR) - case BLOCKED_FETCH: - debugBelch("BLOCKED_FETCH("); - printGA(&(stgCast(StgBlockedFetch*,obj)->ga)); - printPtr((StgPtr)(stgCast(StgBlockedFetch*,obj)->node)); - debugBelch(")\n"); - break; - - case FETCH_ME: - debugBelch("FETCH_ME("); - printGA((globalAddr *)stgCast(StgFetchMe*,obj)->ga); - debugBelch(")\n"); - break; - - case FETCH_ME_BQ: - debugBelch("FETCH_ME_BQ("); - // printGA((globalAddr *)stgCast(StgFetchMe*,obj)->ga); - printPtr((StgPtr)stgCast(StgFetchMeBlockingQueue*,obj)->blocking_queue); - debugBelch(")\n"); - break; -#endif - -#if defined(GRAN) || defined(PAR) - case RBH: - debugBelch("RBH("); - printPtr((StgPtr)stgCast(StgRBH*,obj)->blocking_queue); - debugBelch(")\n"); - break; - -#endif - #if 0 /* Symptomatic of a problem elsewhere, have it fall-through & fail */ case EVACUATED: @@ -415,14 +378,6 @@ printClosure( StgClosure *obj ) break; #endif -#if defined(PAR) && defined(DIST) - case REMOTE_REF: - debugBelch("REMOTE_REF("); - printGA((globalAddr *)stgCast(StgFetchMe*,obj)->ga); - debugBelch(")\n"); - break; -#endif - default: //barf("printClosure %d",get_itbl(obj)->type); debugBelch("*** printClosure: unknown type %d ****\n", |