diff options
Diffstat (limited to 'ghc/rts/Printer.c')
| -rw-r--r-- | ghc/rts/Printer.c | 19 |
1 files changed, 18 insertions, 1 deletions
diff --git a/ghc/rts/Printer.c b/ghc/rts/Printer.c index d6d106d1c6..32e0bc6c4a 100644 --- a/ghc/rts/Printer.c +++ b/ghc/rts/Printer.c @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: Printer.c,v 1.26 2000/04/17 14:31:19 sewardj Exp $ + * $Id: Printer.c,v 1.27 2000/06/15 13:23:52 daan Exp $ * * (c) The GHC Team, 1994-2000. * @@ -258,6 +258,23 @@ void printClosure( StgClosure *obj ) break; } +#ifdef XMLAMBDA +/* rows are mutarrays in xmlambda, maybe we should make a new type: ROW */ + case MUT_ARR_PTRS_FROZEN: + { + StgWord i; + StgMutArrPtrs* p = stgCast(StgMutArrPtrs*,obj); + + fprintf(stderr,"Row<%i>(",p->ptrs); + for (i = 0; i < p->ptrs; ++i) { + if (i > 0) fprintf(stderr,", "); + printPtr((StgPtr)(p->payload[i])); + } + fprintf(stderr,")\n"); + break; + } +#endif + case FUN: case FUN_1_0: case FUN_0_1: case FUN_1_1: case FUN_0_2: case FUN_2_0: |