Changeset 9402

Timestamp:

May 7, 2008, 9:15:58 PM (17 years ago)

Author:

R. Matthew Emerson

Message:

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

File:

• branches/ia32/level-1/x86-error-signal.lisp (modified) (1 diff)

branches/ia32/level-1/x86-error-signal.lisp

@@ -18 +18 @@
 (in-package "CCL")
 
+#+x8664-target
 (defun xp-argument-count (xp)
   (ldb (byte (- 16 x8664::fixnumshift) 0)
                     (encoded-gpr-lisp xp x8664::nargs.q)))
 
+#+x8632-target
+(defun xp-argument-count (xp)
+  (encoded-gpr-lisp xp target::nargs))