Changeset 9461

Timestamp:

May 12, 2008, 7:07:30 PM (17 years ago)

Author:

R. Matthew Emerson

Message:

%function-register-usage for x8632, which always returns (values nil nil).

File:

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

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

@@ -62 +62 @@
   (box-fixnum imm0 arg_z)
   (single-value-return))
+
+(defx8632lapfunction %function-register-usage ((f arg_z))
+  (check-nargs 1)
+  (trap-unless-typecode= f x8632::subtag-function)
+  (movl (% esp) (% temp0))
+  (pushl ($ nil))
+  (pushl ($ nil))
+  (jmp-subprim .SPvalues))
 
 ;;; XXX probably should unify these next two with the x8664 versions.