Changeset 9643


Ignore:
Timestamp:
May 30, 2008, 9:18:50 PM (11 years ago)
Author:
rme
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/level-0/X86/X8632/x8632-def.lisp

    r9642 r9643  
    229229  (jne @fail)
    230230  (movl (@ x8632::recover-fn-address-offset (% r)) (% imm0))
    231   (subl (% arg_z) (% imm0))             ;offset = tra - fn
     231  (subl (% arg_z) (% imm0))
     232  (negl (% imm0))
    232233  (box-fixnum imm0 arg_z)
     234  (single-value-return)
    233235  @fail
    234236  (movl ($ x8632::nil-value) (% arg_z))
Note: See TracChangeset for help on using the changeset viewer.