Changeset 10181


Ignore:
Timestamp:
Jul 23, 2008, 9:40:46 AM (11 years ago)
Author:
gb
Message:

In FIXUP-OPCODE-ORDINALS, recognize the fact that the vinsn-template's
"body" can contain directives (:ANCHORED-UUO) that contain embedded
instructions whose ordinals might need fixing when the instruction
database changes.

File:
1 edited

Legend:

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

    r9879 r10181  
    9191      (flet ((update-instruction (i)
    9292               (when (consp i)
     93                 ;; An :ANCHORED-UUO directive contains a real
     94                 ;; (vinsn-encoded) instruction (typically a UUO) in
     95                 ;; its cadr.  Other directives won't contain embedded
     96                 ;; instructions and whatever's in their CARs won't
     97                 ;; match in the assoc below.
     98                 (when (eq (car i) :anchored-uuo)
     99                   (setq i (cadr i)))
    93100                 (let* ((pair (assoc (car i) changed :test #'eq)))
    94101                   (when pair
Note: See TracChangeset for help on using the changeset viewer.