Changeset 14643

Timestamp:

Feb 6, 2011, 8:34:09 AM (14 years ago)

Author:

Gary Byers

Message:

On Cocotron, try to ensure that NSDebugEnabled is false. (It's set
to #$NO in the source, but something, somewhere seems to set it true.)

File:

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

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

@@ -373 +373 @@
          (open-shared-library "AppKit.1.0.dll")
          (open-shared-library "CoreData.1.0.dll")
+         ;; If the BOOL variable NSDebugEnabled can be found, ensure
+         ;; that it's set to #$NO.  (When set to non-zero values, it
+         ;; can cause attempts to raise NSExceptions to do nothing.
+         ;; It's not clear how it gets set to a non-zero value.)
+         (let* ((addr (foreign-symbol-address "NSDebugEnabled")))
+           (when addr (setf (%get-unsigned-byte addr) #$NO)))
          ;; We may need to call #_NSInitializeProcess
          ;; under Cocotron.  If so, we'd need to do