Changeset 391


Ignore:
Timestamp:
Jan 25, 2004, 2:01:52 PM (21 years ago)
Author:
Gary Byers
Message:

No low (half-) word of lisp-fpscr.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ccl/compiler/PPC/PPC64/ppc64-arch.lisp

    r375 r391  
    473473  prev                                  ; in doubly-linked list
    474474  next                                  ; in doubly-linked list
    475   single-float-convert                  ; per-tread scratch space.
     475  single-float-convert                  ; per-thread scratch space.
    476476  lisp-fpscr-high
    477   lisp-fpscr-low
    478477  db-link                               ; special binding chain head
    479478  catch-top                             ; top catch frame
    … …  
    513512  tlb-pointer
    514513)
     514
     515(defconstant lisp-fpscr-high (+ lisp-fpscr-high 4))
    515516
    516517(define-storage-layout lockptr 0
Note: See TracChangeset for help on using the changeset viewer.