diff options
| author | sewardj <unknown> | 2001-08-02 17:01:33 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 2001-08-02 17:01:33 +0000 |
| commit | a36219092d7d700125f7b4952d969e1fbacb08d1 (patch) | |
| tree | fe4eb4c3f5d56e4dc57ecbdc4efa70d2acbc9d9c /ghc/rts/Disassembler.c | |
| parent | e0521ba85231387847e899cb2700a211c4d3af6b (diff) | |
| download | haskell-a36219092d7d700125f7b4952d969e1fbacb08d1.tar.gz | |
[project @ 2001-08-02 17:01:33 by sewardj]
C-side support for FFI in GHCi (foreign import only).
Diffstat (limited to 'ghc/rts/Disassembler.c')
| -rw-r--r-- | ghc/rts/Disassembler.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/ghc/rts/Disassembler.c b/ghc/rts/Disassembler.c index 925d117d03..e0b27e932d 100644 --- a/ghc/rts/Disassembler.c +++ b/ghc/rts/Disassembler.c @@ -5,8 +5,8 @@ * Copyright (c) 1994-1998. * * $RCSfile: Disassembler.c,v $ - * $Revision: 1.21 $ - * $Date: 2001/05/01 13:11:16 $ + * $Revision: 1.22 $ + * $Date: 2001/08/02 17:01:33 $ * ---------------------------------------------------------------------------*/ #ifdef DEBUG @@ -44,6 +44,10 @@ int disInstr ( StgBCO *bco, int pc ) StgInfoTable** itbls = (StgInfoTable**)(&itbls_arr->payload[0]); switch (instrs[pc++]) { + case bci_CCALL: + fprintf(stderr, "CCALL marshaller at 0x%x\n", + literals[instrs[pc+1]] ); + pc += 1; break; case bci_STKCHECK: fprintf(stderr, "STKCHECK %d\n", instrs[pc] ); pc += 1; break; |