Changeset 12513
 Timestamp:
 Aug 1, 2009, 3:43:38 PM (10 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/source/compiler/X86/x862.lisp
r12359 r12513 4823 4823 ;;; "Trivial" means can be evaluated without allocating or modifying registers. 4824 4824 ;;; Interim definition, which will probably stay here forever. 4825 (defun x862trivialp (form &optional reg &aux op bits)4826 (setq form (nxuntypedform form))4825 (defun x862trivialp (form &optional reg &aux untypedform op bits) 4826 (setq untypedform (nxuntypedform form)) 4827 4827 (and 4828 (consp form)4829 (not (eq (setq op (%car form)) (%nx1operator call)))4828 (consp untypedform) 4829 (not (eq (setq op (%car untypedform)) (%nx1operator call))) 4830 4830 (or 4831 (nxnull form)4832 (nxt form)4831 (nxnull untypedform) 4832 (nxt untypedform) 4833 4833 (eq op (%nx1operator simplefunction)) 4834 4834 (eq op (%nx1operator fixnum)) … … 4838 4838 (and (or (eq op (%nx1operator inheritedarg)) 4839 4839 (eq op (%nx1operator lexicalreference))) 4840 (or (%ilogbitp $vbitpunted (setq bits (nxvarbits (cadr form))))4840 (or (%ilogbitp $vbitpunted (setq bits (nxvarbits (cadr untypedform)))) 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.