Changeset 9400 for branches

Timestamp:

May 7, 2008, 9:12:33 PM (17 years ago)

Author:

R. Matthew Emerson

Message:

Add missing macptr->fixnum function.

File:

• branches/ia32/level-0/X86/X8632/x8632-bignum.lisp (modified) (1 diff)

branches/ia32/level-0/X86/X8632/x8632-bignum.lisp

@@ -542 +542 @@
   (single-value-return))
 
+(defx8632lapfunction macptr->fixnum ((ptr arg_z))
+  (macptr-ptr arg_z ptr)
+  (single-value-return))
+
 ; if dest not nil store unboxed result in dest(0), else return a fixnum
 (defx8632lapfunction fix-digit-logandc2 ((fix 4) #|(ra 0)|# (big arg_y) (dest arg_z)) ; index 0