Changeset 11584

Timestamp:

01/24/09 18:33:41 (15 years ago)

Author:

ehuelsmann

Message:

Handle both 'long' as well as 'double' argument and return types as types of size 2
regardless of whether we have those types now (we will later on...)

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp (modified) (1 diff)

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

@@ -421 +421 @@
                         (princ (or return-type "V") s))))
         (stack-effect (let ((result (cond ((null return-type) 0)
-                                          ((equal return-type "J") 2)
+                                          ((or (equal return-type "J")
+                                               (equal return-type "D")) 2)
                                           (t 1))))
                         (dolist (type arg-types result)
-                          (decf result (if (equal type "J") 2 1))))))
+                          (decf result (if (or (equal type "J")
+                                               (equal type "D"))
+                                           2 1))))))
     (cons descriptor stack-effect)))