Changeset 12363
- Timestamp:
- Jul 3, 2009, 6:30:15 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/working-0711/ccl/compiler/X86/x862.lisp
r12358 r12363 4823 4823 ;;; "Trivial" means can be evaluated without allocating or modifying registers. 4824 4824 ;;; Interim definition, which will probably stay here forever. 4825 (defun x862-trivial-p (form &optional reg &aux op bits)4826 (setq form (nx-untyped-form form))4825 (defun x862-trivial-p (form &optional reg &aux untyped-form op bits) 4826 (setq untyped-form (nx-untyped-form form)) 4827 4827 (and 4828 (consp form)4829 (not (eq (setq op (%car form)) (%nx1-operator call)))4828 (consp untyped-form) 4829 (not (eq (setq op (%car untyped-form)) (%nx1-operator call))) 4830 4830 (or 4831 (nx-null form)4832 (nx-t form)4831 (nx-null untyped-form) 4832 (nx-t untyped-form) 4833 4833 (eq op (%nx1-operator simple-function)) 4834 4834 (eq op (%nx1-operator fixnum)) … … 4838 4838 (and (or (eq op (%nx1-operator inherited-arg)) 4839 4839 (eq op (%nx1-operator lexical-reference))) 4840 (or (%ilogbitp $vbitpunted (setq bits (nx-var-bits (cadr form))))4840 (or (%ilogbitp $vbitpunted (setq bits (nx-var-bits (cadr untyped-form)))) 4841 4841 (neq (%ilogior (%ilsl $vbitclosed 1) (%ilsl $vbitsetq 1)) 4842 4842 (%ilogand (%ilogior (%ilsl $vbitclosed 1) (%ilsl $vbitsetq 1)) bits)))))
Note: See TracChangeset
for help on using the changeset viewer.