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

[Erik Huelsmann]

Author: ehuelsmann
Date: Sat Oct 10 09:12:09 2009
New Revision: 12185

Log:
Add stack effects to opcodes actually in use.

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 Oct 10 09:12:09 2009
@@ -98,10 +98,10 @@
 (define-opcode aload_1 43 1 1)
 (define-opcode aload_2 44 1 1)
 (define-opcode aload_3 45 1 1)
-(define-opcode iaload 46 1 nil)
-(define-opcode laload 47 1 nil)
-(define-opcode faload 48 1 nil)
-(define-opcode daload 49 1 nil)
+(define-opcode iaload 46 1 -1)
+(define-opcode laload 47 1 0)
+(define-opcode faload 48 1 -1)
+(define-opcode daload 49 1 0)
 (define-opcode aaload 50 1 -1)
 (define-opcode baload 51 1 nil)
 (define-opcode caload 52 1 nil)
@@ -131,10 +131,10 @@
 (define-opcode astore_1 76 1 -1)
 (define-opcode astore_2 77 1 -1)
 (define-opcode astore_3 78 1 -1)
-(define-opcode iastore 79 1 nil)
-(define-opcode lastore 80 1 nil)
-(define-opcode fastore 81 1 nil)
-(define-opcode dastore 82 1 nil)
+(define-opcode iastore 79 1 -3)
+(define-opcode lastore 80 1 -4)
+(define-opcode fastore 81 1 -3)
+(define-opcode dastore 82 1 -4)
 (define-opcode aastore 83 1 -3)
 (define-opcode bastore 84 1 nil)
 (define-opcode castore 85 1 nil)