Ignore:
Timestamp:
Jun 28, 2013, 1:27:19 AM (6 years ago)
Author:
gb
Message:

Fix CATCH-FRAME-SP for ARM (can't use STRIP-TAG-TO-FIXNUM anymore.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/arm-threads-utils.lisp

    r14542 r15850  
    2626
    2727
    28 
    2928(defun catch-frame-sp (catch)
    30   (+ (strip-tag-to-fixnum catch)        ;catch frame is stack-consed
    31      arm::catch-frame.element-count))
     29  (%stack-block ((ptr arm::node-size))
     30    (%set-object ptr 0 catch)           ;catch frame is stack-consed
     31    (setf (%get-long ptr) (logandc2 (%get-long ptr) arm::fulltagmask))
     32    (+ (%get-object ptr 0)
     33       (1+ arm::catch-frame.element-count))))
    3234
    3335(defun fake-stack-frame-p (x)
Note: See TracChangeset for help on using the changeset viewer.