Changeset 11583

Timestamp:

01/24/09 18:08:08 (15 years ago)

Author:

ehuelsmann

Message:

Revert change to p2-minus: we can't do this without adding a new LispObject primitive operation,
which I tried, but takes too long for now.

Note: the operation required would be negateAndAdd(int/long), which is easy except

for that you need to add it to all number primitives...

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp (modified) (2 diffs)

trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

@@ -6863 +6863 @@
               (when (fixnum-type-p type1)
                 (emit 'swap))
-              (emit-invokevirtual +lisp-object-class+ "add" '("I") +lisp-object+)
+              (emit-invokevirtual +lisp-object-class+ "add"
+                                  '("I") +lisp-object+)
               (fix-boxing representation result-type)
               (emit-move-from-stack target representation))
@@ -6934 +6935 @@
               (convert-long representation)
               (emit-move-from-stack target representation))
-             ((or (fixnum-type-p type1) (fixnum-type-p type2))
+             ((fixnum-type-p type2)
         (compile-forms-and-maybe-emit-clear-values
-                    arg1 'stack (when (fixnum-type-p type1) :int)
-                    arg2 'stack (when (fixnum-type-p type2) :int))
-              (when (fixnum-type-p type1)
-                (emit 'swap))
-              (emit-invokevirtual +lisp-object-class+ "subtract"
+                    arg1 'stack nil
+                    arg2 'stack :int)
+              (emit-invokevirtual +lisp-object-class+
+                                  "subtract"
                                   '("I") +lisp-object+)
               (fix-boxing representation result-type)