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

[Erik Huelsmann]

Author: ehuelsmann
Date: Sat Jul 11 16:53:43 2009
New Revision: 12038

Log:
Enable monitorenter and monitorexit opcodes.

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	Sat Jul 11 16:53:43 2009
@@ -246,8 +246,8 @@
 (define-opcode athrow 191 1 0)
 (define-opcode checkcast 192 3 0)
 (define-opcode instanceof 193 3 0)
-(define-opcode monitorenter 194 1 nil)
-(define-opcode monitorexit 195 1 nil)
+(define-opcode monitorenter 194 1 -1)
+(define-opcode monitorexit 195 1 -1)
 (define-opcode wide 196 0 nil)
 (define-opcode multianewarray 197 4 nil)
 (define-opcode ifnull 198 3 -1)