X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FDisassembler.c;h=19c121f2f1ad8c97da89fd1e8cf037da7512f526;hb=2fa5a66abb8c92a9eb2707317d3c8723e4768e7b;hp=0620e999674c34b2fbb5a4ea4fa7ab30b1c2c108;hpb=cdce647711c0f46f5799b24de087622cb77e647f;p=ghc-hetmet.git

diff --git a/rts/Disassembler.c b/rts/Disassembler.c
index 0620e99..19c121f 100644
--- a/rts/Disassembler.c
+++ b/rts/Disassembler.c
@@ -148,6 +148,9 @@ disInstr ( StgBCO *bco, int pc )
       case bci_ALLOC_AP:
          debugBelch("ALLOC_AP  %d words\n", instrs[pc] );
          pc += 1; break;
+      case bci_ALLOC_AP_NOUPD:
+         debugBelch("ALLOC_AP_NOUPD %d words\n", instrs[pc] );
+         pc += 1; break;
       case bci_ALLOC_PAP:
          debugBelch("ALLOC_PAP %d arity, %d words\n",
 		 instrs[pc], instrs[pc+1] );