Changeset 5910
- Timestamp:
- Feb 13, 2007, 4:35:24 PM (18 years ago)
- File:
-
- 1 edited
-
trunk/ccl/compiler/PPC/ppc2.lisp (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/ccl/compiler/PPC/ppc2.lisp
r5858 r5910 8249 8249 (! set-double-c-arg df nextarg) 8250 8250 (push (cons :double-float nextarg) fp-loads) 8251 (incf nextarg))) 8251 (target-word-size-case 8252 (32 (incf nextarg)) 8253 (64)))) 8252 8254 (:single-float 8253 8255 (let* ((sf ($ ppc::fp1 :class :fpr :mode :single-float)))
Note:
See TracChangeset
for help on using the changeset viewer.
