Changeset 6117
- Timestamp:
- Apr 4, 2007, 3:20:43 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/objc-gf/ccl/compiler/X86/X8664/x8664-backend.lisp
r5876 r6117 338 338 (typep arg-type-spec 'unsigned-byte)) 339 339 (progn 340 (if (or (eq arg-type-spec :double-float) 341 (eq arg-type-spec :single-float)) 342 (decf remaining-fprs) 343 (unless (typep arg-type-spec 'unsigned-byte) 344 (decf remaining-gprs))) 340 345 (argforms arg-type-spec) 341 346 (argforms arg-value-form)) … … 373 378 (argforms `(%%get-unsigned-longlong ,valform 0)))) 374 379 (when second8 380 (setq valform structure-arg-temp) 375 381 (if (eq second8 :float) 376 382 (progn
Note: See TracChangeset
for help on using the changeset viewer.