Ignore:
Timestamp:
Nov 10, 2007, 5:22:11 AM (12 years ago)
Author:
gb
Message:

Merge changes form working-0710 branch.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/arch.lisp

    r5529 r7624  
    2828(defconstant tcr-flag-bit-foreign 0)
    2929(defconstant tcr-flag-bit-awaiting-preset 1)
     30(defconstant tcr-flag-bit-alt-suspend 2)
     31(defconstant tcr-flag-bit-propagate-exception 3)
     32(defconstant tcr-flag-bit-suspend-ack-pending 4)
     33(defconstant tcr-flag-bit-pending-exception 5)
     34(defconstant tcr-flag-bit-foreign-exception 6)
     35(defconstant tcr-flag-bit-pending-suspend 7)       
    3036
    3137
     
    5258(defconstant error-cant-take-car 8)
    5359(defconstant error-cant-take-cdr 9)
     60(defconstant error-propagate-suspend 10)
    5461(defconstant error-cant-call 17)        ; Attempt to funcall something that is not a symbol or function.
    5562(eval-when (:compile-toplevel :load-toplevel :execute)
     
    323330(defconstant gc-trap-function-configure-egc 64)
    324331(defconstant gc-trap-function-set-hons-area-size 128)
     332(defconstant gc-trap-function-freeze 129)
     333(defconstant gc-trap-function-thaw 130)
     334
    325335
    326336
Note: See TracChangeset for help on using the changeset viewer.