Changeset 5910


Ignore:
Timestamp:
Feb 14, 2007, 12:35:24 AM (15 years ago)
Author:
gb
Message:

poweropen-foreign-args: on ppc64, a DOUBLE-FLOAT aliases just one gpr.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/compiler/PPC/ppc2.lisp

    r5858 r5910  
    82498249               (! set-double-c-arg df nextarg)           
    82508250               (push (cons :double-float nextarg) fp-loads)
    8251                (incf nextarg)))
     8251               (target-word-size-case
     8252                (32 (incf nextarg))
     8253                (64))))
    82528254            (:single-float
    82538255             (let* ((sf ($ ppc::fp1 :class :fpr :mode :single-float)))
Note: See TracChangeset for help on using the changeset viewer.