Changeset 215

Timestamp:

Jan 5, 2004, 6:08:38 PM (21 years ago)

Author:

Gary Byers

Message:

Opcode/operand stuff's in ARCH package.

File:

• trunk/ccl/lib/backtrace-lds.lisp (modified) (3 diffs)

trunk/ccl/lib/backtrace-lds.lisp

@@ -604 +604 @@
     (lap-instruction
      (let* ((opcode (lap-instruction-opcode instr))
-            (opcode-p (typep opcode 'ppc32::opcode))
-            (name (if opcode-p (ppc32::opcode-name opcode) opcode))
+            (opcode-p (typep opcode 'ppc::opcode))
+            (name (if opcode-p (arch::opcode-name opcode) opcode))
             (pc (lap-instruction-address instr))
             (operands (lap-instruction-parsed-operands instr)))
@@ -620 +620 @@
                    (let* ((prev-instr (require-type (lap-instruction-pred instr)
                                                     'lap-instruction))
-                          (prev-name (ppc32::opcode-name (lap-instruction-opcode prev-instr)))
+                          (prev-name (arch::opcode-name (lap-instruction-opcode prev-instr)))
                           (prev-operands (lap-instruction-parsed-operands prev-instr)))
                      ; Maybe we should recognize the other possible outputs of ppc2-lwi, but I
@@ -652 +652 @@
              ((equalp name "b")
               (values :branch (branch-label-address instr (car (last operands))) nil))
-             ((and opcode-p (eql (ppc32::opcode-majorop opcode) 16))
+             ((and opcode-p (eql (arch::opcode-majorop opcode) 16))
               (values :branch (branch-label-address instr (car (last operands))) (+ pc 4)))
              (t :regular))))))