Changeset 691

Timestamp:

Mar 22, 2004, 9:31:56 AM (21 years ago)

Author:

Gary Byers

Message:

NEW-TCR converts pointer to fixnum, even if sign bit set.

File:

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

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

@@ -192 +192 @@
   (ash (- (%fixnum-ref area ppc32::area.high)
           (%fixnum-ref area ppc32::area.softlimit))
-       2))
+       target::fixnum-shift))
 
 (defun %cons-lisp-thread (name &optional tcr)
@@ -262 +262 @@
     (let* ((tcr (lisp-thread.tcr thread)))
       (if (and tcr (not (eql 0 tcr)))
-        (format stream " [tcr @ #x~x]" (ash tcr ppc32::fixnumshift))))))
+        (format stream " [tcr @ #x~x]" (ash tcr target::fixnumshift))))))
 
 
@@ -320 +320 @@
 
 (defun new-tcr (cs-size vs-size ts-size)
-  (ash
-   (%ptr-to-int
-    (ff-call
-     (%kernel-import ppc32::kernel-import-newthread)
+  (macptr->fixnum
+   (ff-call
+    (%kernel-import ppc32::kernel-import-newthread)
      :unsigned-fullword cs-size
      :unsigned-fullword vs-size
      :unsigned-fullword ts-size
-     :address))
-   -2))
+     :address)))
 
 (defun new-thread (name cstack-size vstack-size tstack-size)