Ignore:
Timestamp:
Oct 30, 2009, 10:25:44 PM (10 years ago)
Author:
gb
Message:

Define ACODE-IMMEDIATE-OPERAND; make it handle type assertions in the
parse tree.

Don't define PPC2-IMMEDIATE-OPERAND or X862-IMMEDIATE-OPERAND; use
ACODE-IMMEDIATE-OPERAND instead.

Fixes reported symptoms of ticket:620.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx2.lisp

    r13067 r13143  
    236236            (setf (acode-operator ref) op
    237237                  (acode-operands ref) operands)))))))
     238
     239(defun acode-immediate-operand (x)
     240  (let* ((x (acode-unwrapped-form x)))
     241    (if (eq (acode-operator x) (%nx1-operator immediate))
     242      (cadr x)
     243      (compiler-bug "not an immediate: ~s" x))))
Note: See TracChangeset for help on using the changeset viewer.