Changeset 10974


Ignore:
Timestamp:
Oct 5, 2008, 1:10:59 AM (11 years ago)
Author:
gb
Message:

In both the PPC and X86 versions of PARSE-OPERAND-FORM (in xxx-EXPAND-VINSN),
treat a 1-element list as a function call unless the car is a fixnum.

(This will introduce bootstrapping problems; new images later, again.)

Location:
trunk/source/compiler
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/PPC/ppc2.lisp

    r10370 r10974  
    51155115                          (compiler-bug "unknown vinsn label ~s" valform)))
    51165116                     ((atom valform) valform)
    5117                      ((atom (cdr valform)) (svref vp (car valform)))
     5117                     ((and (atom (cdr valform))
     5118                           (typep (car valforms) 'fixnum))
     5119                      (svref vp (car valform)))
    51185120                     (t (let* ((op-vals (cdr valform))
    51195121                               (parsed-ops (make-list (length op-vals)))
  • trunk/source/compiler/X86/x862.lisp

    r10959 r10974  
    57865786                        (mapcar #'parse-operand-form `(:rcontext ,(cadr valform) nil nil nil))
    57875787                        (mapcar #'parse-operand-form `(nil ,(cadr valform) :rcontext nil nil))))
    5788                      ((atom (cdr valform)) (svref vp (car valform)))
     5788                     ((and (atom (cdr valform))
     5789                           (typep (car valform) 'fixnum))
     5790                      (svref vp (car valform)))
    57895791                     ((eq (car valform) :@)
    57905792                      (mapcar #'parse-operand-form (cdr valform)))
Note: See TracChangeset for help on using the changeset viewer.