Changeset 11584


Ignore:
Timestamp:
01/24/09 18:33:41 (13 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r11583 r11584  
    421421                        (princ (or return-type "V") s))))
    422422        (stack-effect (let ((result (cond ((null return-type) 0)
    423                                           ((equal return-type "J") 2)
     423                                          ((or (equal return-type "J")
     424                                               (equal return-type "D")) 2)
    424425                                          (t 1))))
    425426                        (dolist (type arg-types result)
    426                           (decf result (if (equal type "J") 2 1))))))
     427                          (decf result (if (or (equal type "J")
     428                                               (equal type "D"))
     429                                           2 1))))))
    427430    (cons descriptor stack-effect)))
    428431
Note: See TracChangeset for help on using the changeset viewer.