Changeset 5769


Ignore:
Timestamp:
Jan 21, 2007, 5:46:27 AM (18 years ago)
Author:
Gary Byers
Message:

WITH-FFCALL-RESULTS needs space for 13 float registers, not 31.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r5750 r5769  
    973973
    974974(defppc64archmacro ccl::with-ffcall-results ((buf) &body body)
    975   (let* ((size (+ (* 8 8) (* 31 8))))
     975  (let* ((size (+ (* 8 8) (* 13 8))))
    976976    `(ccl::%stack-block ((,buf ,size))
    977977      ,@body)))
Note: See TracChangeset for help on using the changeset viewer.