Changeset 10405


Ignore:
Timestamp:
Aug 9, 2008, 2:30:17 AM (11 years ago)
Author:
gb
Message:

Um, handle boolean return values from %SUSPEND-TCR, %RESUME-TCR correctly
in the trunk/x8664, too.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/X86/x86-misc.lisp

    r10145 r10405  
    678678  (ud2a)
    679679  (:byte 5)
     680  (movzbl (%b imm0) (%l imm0))
    680681  (testl (%l imm0) (%l imm0))
    681682  (movl ($ target::nil-value) (%l arg_z))
    682   (cmovel (@ target::t-offset (% arg_z)) (%l arg_z))
     683  (cmovnel (@ (+ target::t-offset target::symbol.vcell) (% arg_z)) (%l arg_z))
    683684  (single-value-return))
    684685
     
    694695  (ud2a)
    695696  (:byte 7)
     697  (movzbl (%b imm0) (%l imm0))
    696698  (testl (%l imm0) (%l imm0))
    697699  (movl ($ target::nil-value) (%l arg_z))
    698   (cmovel (@ target::t-offset (% arg_z)) (%l arg_z))
     700  (cmovnel (@ (+ target::t-offset target::symbol.vcell) (% arg_z)) (%l arg_z))
    699701  (single-value-return))
    700702
Note: See TracChangeset for help on using the changeset viewer.