Changeset 10185


Ignore:
Timestamp:
Jul 23, 2008, 1:23:51 PM (11 years ago)
Author:
gb
Message:

From rme: DEFX86REG affects/references *x8664-registers*, not
*x86-registers*.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/X86/X8664/x8664-arch.lisp

    r8397 r10185  
    147147(defmacro defx86reg (alias known)
    148148  (let* ((known-entry (gensym)))
    149     `(let* ((,known-entry (gethash ,(string known) x86::*x86-registers*)))
     149    `(let* ((,known-entry (gethash ,(string known) x86::*x8664-registers*)))
    150150      (unless ,known-entry
    151151        (error "register ~a not defined" ',known))
    152       (setf (gethash ,(string alias) x86::*x86-registers*) ,known-entry)
     152      (setf (gethash ,(string alias) x86::*x8664-registers*) ,known-entry)
    153153      (unless (gethash ,(string-downcase (string known)) *x8664-symbolic-register-names*)
    154154        (setf (gethash ,(string-downcase (string known)) *x8664-symbolic-register-names*)
Note: See TracChangeset for help on using the changeset viewer.