Changeset 10752


Ignore:
Timestamp:
Sep 15, 2008, 11:13:44 PM (11 years ago)
Author:
gb
Message:

MATCH-TEMPLATE-TYPES: take an optional backend argument and dispatch
on it, not (necessarily) on *TARGET-BACKEND*.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/X86/x86-asm.lisp

    r10198 r10752  
    47134713;;; This returns true if the template's operand types "match" the
    47144714;;; types of the actual operands.
    4715 (defun match-template-types (template type0 type1 type2)
     4715(defun match-template-types (template type0 type1 type2 &optional (backend ccl::*target-backend*))
    47164716  #+debug
    47174717  (format t "~& template = ~s, operand types = ~s" template (list type0 type1 type2))
    4718   (ccl::target-arch-case
     4718  (case (ccl::backend-target-arch-name backend)
    47194719   (:x8632
    47204720    (if (logtest (encode-opcode-flags :cpu64) (x86-opcode-template-flags template))
Note: See TracChangeset for help on using the changeset viewer.