Changeset 14639

Timestamp:

Feb 4, 2011, 8:41:37 AM (14 years ago)

Author:

R. Matthew Emerson

Message:

Account for tcr-bias in the cocotron case of
with-ns-exceptions-as-errors.

File:

• trunk/source/objc-bridge/objc-runtime.lisp (modified) (1 diff)

trunk/source/objc-bridge/objc-runtime.lisp

@@ -3218 +3218 @@
                  (%associate-jmp-buf-with-catch-frame
                   ,xframe
-                  (%fixnum-ref (%current-tcr) target::tcr.catch-top)
+                  (%fixnum-ref (%current-tcr) (- target::tcr.catch-top
+                                                 target::tcr-bias))
                   ,cframe)
                  (progn