Changeset 7246


Ignore:
Timestamp:
Sep 18, 2007, 12:09:22 AM (12 years ago)
Author:
rme
Message:

UNPARSE-X86-LAP-OPERAND: Parameterize computation of index into
constants vector.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/compiler/X86/x86-disassemble.lisp

    r7245 r7246  
    26772677      (let* ((diff (- val (x86-ds-code-limit ds)))
    26782678             (constant (uvref (x86-ds-constants-vector ds)
    2679                               (1+ (ash diff -3)))))
     2679                              (1+ (ash diff (if (x86-ds-mode-64 ds)
     2680                                              (- x8664::word-shift)
     2681                                              (- x8632::word-shift)))))))
    26802682        `(@ ',constant ,(unparse-x86-lap-operand base ds)))
    26812683      (collect ((subforms))
Note: See TracChangeset for help on using the changeset viewer.