Changeset 9643

Timestamp:

May 30, 2008, 2:18:50 PM (16 years ago)

Author:

R. Matthew Emerson

Message:

%return-address-offset: don't fall through to @fail; give returned offset
the right sign.

File:

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

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

@@ -229 +229 @@
   (jne @fail)
   (movl (@ x8632::recover-fn-address-offset (% r)) (% imm0))
-  (subl (% arg_z) (% imm0))             ;offset = tra - fn
+  (subl (% arg_z) (% imm0))
+  (negl (% imm0))
   (box-fixnum imm0 arg_z)
+  (single-value-return)
   @fail
   (movl ($ x8632::nil-value) (% arg_z))