Changeset 9383 for branches

Timestamp:

May 6, 2008, 10:41:26 AM (17 years ago)

Author:

R. Matthew Emerson

Message:

Use target::target-most-positive-fixnum

Location:

branches/ia32/level-1

Files:

• l1-aprims.lisp (modified) (1 diff)
• l1-events.lisp (modified) (1 diff)
• l1-lisp-threads.lisp (modified) (1 diff)

branches/ia32/level-1/l1-aprims.lisp

@@ -193 +193 @@
         (unless (typep index 'unsigned-byte)
           (report-bad-arg index 'unsigned-byte))
-        (do* ((n index (- n most-positive-fixnum)))
+        (do* ((n index (- n target::target-most-positive-fixnum)))
              ((typep n 'fixnum) (nthcdr n list))
-          (unless (setq list (nthcdr most-positive-fixnum list))
+          (unless (setq list (nthcdr target::target-most-positive-fixnum list))
             (return))))))
 

branches/ia32/level-1/l1-events.lisp

@@ -177 +177 @@
       (when task
         (if (setq *%periodic-tasks%* (delete task *%periodic-tasks%*))
-          (let* ((min-ticks most-positive-fixnum))
+          (let* ((min-ticks target::target-most-positive-fixnum))
             (dolist (other *%periodic-tasks%*
                      (set-periodic-task-interval (/ min-ticks (float *ticks-per-second*))))

branches/ia32/level-1/l1-lisp-threads.lisp

@@ -420 +420 @@
         (cons function args)))
 
-(defun thread-enable (thread termination-semaphore allocation-quantum &optional (timeout most-positive-fixnum))
+(defun thread-enable (thread termination-semaphore allocation-quantum &optional (timeout target::target-most-positive-fixnum))
   (let* ((tcr (or (lisp-thread.tcr thread) (new-tcr-for-thread thread))))
     (with-macptrs (s)