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

[Erik Huelsmann]

Author: ehuelsmann
Date: Sat Jan 31 16:41:58 2009
New Revision: 11610

Log:
Add 2 used - but not enabled - opcodes.

Modified:
   trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
   trunk/abcl/src/org/armedbear/lisp/opcodes.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Sat Jan 31 16:41:58 2009
@@ -1116,6 +1116,8 @@
                  134 ; i2f
                  135 ; i2d
                  136 ; l2i
+                 141 ; f2d
+                 144 ; d2f
                  148 ; lcmp
                  149 ; fcmpd
                  150 ; fcmpg

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 Jan 31 16:41:58 2009
@@ -196,7 +196,7 @@
 (define-opcode f2d 141 1 1)
 (define-opcode d2i 142 1 nil)
 (define-opcode d2l 143 1 nil)
-(define-opcode d2f 144 1 nil)
+(define-opcode d2f 144 1 -1)
 (define-opcode i2b 145 1 nil)
 (define-opcode i2c 146 1 nil)
 (define-opcode i2s 147 1 nil)