Changeset 664

Timestamp:

Mar 17, 2004, 4:19:10 PM (21 years ago)

Author:

Gary Byers

Message:

Return NIL (not 0/%null-ptr) if no underlying pthread.

File:

• trunk/ccl/level-1/l1-lisp-threads.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-lisp-threads.lisp

@@ -473 +473 @@
     (%setf-macptr-to-object tcrp (lisp-thread.tcr thread))
     (unless (%null-ptr-p tcrp)
-      (#+linuxppc-target %get-unsigned-long #-linuxppc-target %get-ptr
-                         tcrp ppc32::tcr.osid))))
+      #+linuxppc-target
+      (let* ((pthread (%get-unsigned-long tcrp ppc32::tcr.osid)))
+        (unless (zerop pthread) pthread))
+      #-linuxppc-target
+      (let* ((pthread (%get-ptr tcrp ppc32::tcr.osid)))
+        (unless (%null-ptr-p pthread) pthread)))))
                          
 ;;; This returns something lower-level than the pthread, if that