diff options
| author | sewardj <unknown> | 1999-11-16 17:39:10 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 1999-11-16 17:39:10 +0000 |
| commit | 4b69a23d0535a9cc2c04737b773677ee9e401f93 (patch) | |
| tree | c6dd691ef6853f5047523b1079e0a5c650bef22f /ghc/rts/Disassembler.c | |
| parent | 61eff6b3934bc5d4af85eed243105b7034906a62 (diff) | |
| download | haskell-4b69a23d0535a9cc2c04737b773677ee9e401f93.tar.gz | |
[project @ 1999-11-16 17:38:54 by sewardj]
Added basic support for MVars: data MVar, and newMVar, putMVar and
getMVar.
Diffstat (limited to 'ghc/rts/Disassembler.c')
| -rw-r--r-- | ghc/rts/Disassembler.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/ghc/rts/Disassembler.c b/ghc/rts/Disassembler.c index 5fcdb08d36..4a4d99be4e 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.10 $ - * $Date: 1999/11/01 18:19:40 $ + * $Revision: 1.11 $ + * $Date: 1999/11/16 17:39:10 $ * ---------------------------------------------------------------------------*/ #include "Rts.h" @@ -381,6 +381,8 @@ InstrPtr disInstr( StgBCO *bco, InstrPtr pc ) return disNone(bco,pc,"ccall_stdcall_IO"); case i_raise: return disNone(bco,pc,"primRaise"); + case i_takeMVar: + return disNone(bco,pc,"primTakeMVar"); default: { const AsmPrim* p = asmFindPrimop(i_PRIMOP2,op); |