Ignore:
Timestamp:
May 22, 2010, 7:17:19 AM (10 years ago)
Author:
gb
Message:

And we need to continue to tweak those mechanisms.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/compiler/ARM/arm-arch.lisp

    r13707 r13715  
    658658)
    659659
    660 ;;; Catch frames go on the tstack; they point to a minimal lisp-frame
    661 ;;; on the cstack.  (The catch/unwind-protect PC is on the cstack, where
    662 ;;; the GC expects to find it.)
     660;;; Catch frames go on the cstack, below a lisp frame whose savelr
     661;;; field references the catch exit point/unwind-protect cleanup code.
    663662(define-fixedsized-object catch-frame
    664   catch-tag                             ; #<unbound> -> unwind-protect, else catch
    665663  link                                  ; tagged pointer to next older catch frame
    666664  mvflag                                ; 0 if single-value, 1 if uwp or multiple-value
     665  catch-tag                             ; #<unbound> -> unwind-protect, else catch
    667666  db-link                               ; value of dynamic-binding link on thread entry.
    668667  xframe                                ; exception-frame link
     
    12901289(defconstant xtype-s8  32)
    12911290(defconstant xtype-u8  36)
    1292 (defconstant xtype-bit  40)                               
    1293 
     1291(defconstant xtype-bit  40)
     1292(defconstant xtype-rational 44)
     1293(defconstant xtype-real 48)
     1294(defconstant xtype-number 52)
     1295(defconstant xtype-char-code 56)
     1296
     1297;;; Condition field values.
     1298(ccl::defenum (:prefix "ARM-COND-")
     1299  eq
     1300  ne
     1301  hs
     1302  lo
     1303  mi
     1304  pl
     1305  vs
     1306  vc
     1307  hi
     1308  ls
     1309  ge
     1310  lt
     1311  gt
     1312  le
     1313  al)
     1314
     1315(defconstant arm-cond-eq 0)
     1316(def
    12941317 
    12951318(provide "ARM-ARCH")
Note: See TracChangeset for help on using the changeset viewer.