X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FDisassembler.c;h=41b66f146ca39a7c6b77278631fd2d58c870f2b9;hb=423d477bfecd490de1449c59325c8776f91d7aac;hp=f8660e677b7abc452df47420b6afcb1cb5d38f0d;hpb=553e90d9a32ee1b1809430f260c401cc4169c6c7;p=ghc-hetmet.git

diff --git a/ghc/rts/Disassembler.c b/ghc/rts/Disassembler.c
index f8660e6..41b66f1 100644
--- a/ghc/rts/Disassembler.c
+++ b/ghc/rts/Disassembler.c
@@ -4,8 +4,8 @@
  * Copyright (c) 1994-2002.
  *
  * $RCSfile: Disassembler.c,v $
- * $Revision: 1.27 $
- * $Date: 2003/03/25 17:04:09 $
+ * $Revision: 1.28 $
+ * $Date: 2004/08/13 13:09:46 $
  * ---------------------------------------------------------------------------*/
 
 #ifdef DEBUG
@@ -140,9 +140,6 @@ disInstr ( StgBCO *bco, int pc )
       case bci_PUSH_APPLY_PPPPPP:
 	  fprintf(stderr, "PUSH_APPLY_PPPPPP\n");
 	  break;
-      case bci_PUSH_APPLY_PPPPPPP:
-	  fprintf(stderr, "PUSH_APPLY_PPPPPPP\n");
-	  break;
       case bci_SLIDE: 
          fprintf(stderr, "SLIDE     %d down by %d\n", instrs[pc], instrs[pc+1] );
          pc += 2; break;