Changeset 14382


Ignore:
Timestamp:
Oct 29, 2010, 6:24:37 PM (8 years ago)
Author:
rme
Message:

Update insert-ppc-label for pickier defstruct.

(cl-test::disassemble.9 was failing)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/PPC/ppc-disassemble.lisp

    r13067 r14382  
    245245  (let* ((labaddr (lap-label-address l)))
    246246   (do-dll-nodes (insn instructions (append-dll-node l instructions))
    247      (when (>= (lap-instruction-address insn) labaddr)
    248        (return (insert-dll-node-after l (lap-instruction-pred insn)))))))
     247     (when (>= (instruction-element-address insn) labaddr)
     248       (return (insert-dll-node-after l (instruction-element-pred insn)))))))
    249249
    250250(defun ppc-disassemble-cr (val operand-spec)
Note: See TracChangeset for help on using the changeset viewer.