[armedbear-cvs] r11635 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Fri Feb  6 22:58:48 2009
New Revision: 11635

Log:
Adjust stack effect of dcmpX: pop off 2 2-sized operands, put 1 int (1-sized) element back:
  results in -3 stack effect.

Modified:
   trunk/abcl/src/org/armedbear/lisp/opcodes.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/opcodes.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/opcodes.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/opcodes.lisp	Fri Feb  6 22:58:48 2009
@@ -203,8 +203,8 @@
 (define-opcode lcmp 148 1 -3)
 (define-opcode fcmpl 149 1 -1)
 (define-opcode fcmpg 150 1 -1)
-(define-opcode dcmpl 151 1 -2)
-(define-opcode dcmpg 152 1 -2)
+(define-opcode dcmpl 151 1 -3)
+(define-opcode dcmpg 152 1 -3)
 (define-opcode ifeq 153 3 -1)
 (define-opcode ifne 154 3 -1)
 (define-opcode iflt 155 3 -1)