Ignore:
Timestamp:
Jun 19, 2010, 4:31:19 AM (9 years ago)
Author:
gb
Message:

arm2.lisp: 32-bit case of ARM2-VREF1 wasn't parenthesized right, so we did both

the constant- and variable-index case.

arm-vinsns.lisp: lots of bugs in SAVE-LEXPR-ARGREGS
arm-pred.lisp: in EQUAL, compare to NIL, not 'NUL.
l1-clos-boot.lisp: more ARM conditionalization.
arm-spentry.s: use the right register in _SPbind.

Implement _SPnthrowvalues, fix in _SPnthrow1value.
Try to add uuo_debug_trap() to subprims that still aren't implemented.

Currently crashes in code called by ENSURE-METHOD, possibly on the first
DEFMETHOD.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/level-1/l1-clos-boot.lisp

    r13779 r13858  
    21132113              (find-class 'double-float-vector))))
    21142114
     2115  #+arm-target
     2116  (defparameter *ivector-vector-classes*
     2117    (vector (find-class 'short-float-vector)
     2118            (find-class 'unsigned-long-vector)
     2119            (find-class 'long-vector)
     2120            (find-class 'fixnum-vector)
     2121            (find-class 'base-string)
     2122            (find-class 'unsigned-byte-vector)
     2123            (find-class 'byte-vector)
     2124            *t-class*                   ; old base-string
     2125            (find-class 'unsigned-word-vector)
     2126            (find-class 'word-vector)
     2127            (find-class 'double-float-vector)
     2128            (find-class 'bit-vector)))
     2129
     2130
    21152131
    21162132
     
    23252341                (%svref v (+ slice x8664::fulltag-tra-1)) *tagged-return-address-class*
    23262342                (%svref v (+ slice x8664::fulltag-nil)) *null-class*))
     2343        #+arm-target
     2344        (do* ((slice 0 (+ 8 slice)))
     2345             ((= slice 256))
     2346          (declare (type (unsigned-byte 8) slice))
     2347          (setf (%svref v (+ slice arm::fulltag-even-fixnum)) *fixnum-class*
     2348                (%svref v (+ slice arm::fulltag-odd-fixnum))  *fixnum-class*
     2349                (%svref v (+ slice arm::fulltag-cons)) *cons-class*
     2350                (%svref v (+ slice arm::fulltag-nil)) *null-class*
     2351                (%svref v (+ slice arm::fulltag-imm)) *immediate-class*))
     2352
    23272353        (macrolet ((map-subtag (subtag class-name)
    23282354                     `(setf (%svref v ,subtag) (find-class ',class-name))))
Note: See TracChangeset for help on using the changeset viewer.