Changeset 12513


Ignore:
Timestamp:
Aug 1, 2009, 3:43:38 PM (10 years ago)
Author:
gz
Message:

Merge r12363

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/X86/x862.lisp

    r12359 r12513  
    48234823;;; "Trivial" means can be evaluated without allocating or modifying registers.
    48244824;;; 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))
    48274827  (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)))
    48304830   (or
    4831     (nx-null form)
    4832     (nx-t form)
     4831    (nx-null untyped-form)
     4832    (nx-t untyped-form)
    48334833    (eq op (%nx1-operator simple-function))
    48344834    (eq op (%nx1-operator fixnum))
     
    48384838    (and (or (eq op (%nx1-operator inherited-arg))
    48394839             (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))))
    48414841             (neq (%ilogior (%ilsl $vbitclosed 1) (%ilsl $vbitsetq 1))
    48424842                  (%ilogand (%ilogior (%ilsl $vbitclosed 1) (%ilsl $vbitsetq 1)) bits)))))
Note: See TracChangeset for help on using the changeset viewer.