Changeset 9383


Ignore:
Timestamp:
May 6, 2008, 5:41:26 PM (11 years ago)
Author:
rme
Message:

Use target::target-most-positive-fixnum

Location:
branches/ia32/level-1
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/level-1/l1-aprims.lisp

    r8901 r9383  
    193193        (unless (typep index 'unsigned-byte)
    194194          (report-bad-arg index 'unsigned-byte))
    195         (do* ((n index (- n most-positive-fixnum)))
     195        (do* ((n index (- n target::target-most-positive-fixnum)))
    196196             ((typep n 'fixnum) (nthcdr n list))
    197           (unless (setq list (nthcdr most-positive-fixnum list))
     197          (unless (setq list (nthcdr target::target-most-positive-fixnum list))
    198198            (return))))))
    199199
  • branches/ia32/level-1/l1-events.lisp

    r6938 r9383  
    177177      (when task
    178178        (if (setq *%periodic-tasks%* (delete task *%periodic-tasks%*))
    179           (let* ((min-ticks most-positive-fixnum))
     179          (let* ((min-ticks target::target-most-positive-fixnum))
    180180            (dolist (other *%periodic-tasks%*
    181181                     (set-periodic-task-interval (/ min-ticks (float *ticks-per-second*))))
  • branches/ia32/level-1/l1-lisp-threads.lisp

    r8372 r9383  
    420420        (cons function args)))
    421421
    422 (defun thread-enable (thread termination-semaphore allocation-quantum &optional (timeout most-positive-fixnum))
     422(defun thread-enable (thread termination-semaphore allocation-quantum &optional (timeout target::target-most-positive-fixnum))
    423423  (let* ((tcr (or (lisp-thread.tcr thread) (new-tcr-for-thread thread))))
    424424    (with-macptrs (s)
Note: See TracChangeset for help on using the changeset viewer.