Changeset 9402


Ignore:
Timestamp:
May 8, 2008, 4:15:58 AM (11 years ago)
Author:
rme
Message:

xp-argument-count for x8632 (where nargs is 32 bits)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/level-1/x86-error-signal.lisp

    r9384 r9402  
    1818(in-package "CCL")
    1919
     20#+x8664-target
    2021(defun xp-argument-count (xp)
    2122  (ldb (byte (- 16 x8664::fixnumshift) 0)
    2223                    (encoded-gpr-lisp xp x8664::nargs.q)))
    2324
     25#+x8632-target
     26(defun xp-argument-count (xp)
     27  (encoded-gpr-lisp xp target::nargs))
    2428
    2529
Note: See TracChangeset for help on using the changeset viewer.