Changeset 10397


Ignore:
Timestamp:
Aug 8, 2008, 4:55:41 AM (11 years ago)
Author:
gb
Message:

Return boolean results correctly in %SUSPEND-TCR/%RESUME-TCR.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-0/X86/x86-misc.lisp

    r10006 r10397  
    676676  (ud2a)
    677677  (:byte 5)
     678  (movzbl (%b imm0) (%l imm0))
    678679  (testl (%l imm0) (%l imm0))
    679680  (movl ($ target::nil-value) (%l arg_z))
    680   (cmovel (@ target::t-offset (% arg_z)) (%l arg_z))
     681  (cmovnel (@ (+ target::t-offset target::symbol.vcell) (% arg_z)) (%l arg_z))
    681682  (single-value-return))
    682683
     
    692693  (ud2a)
    693694  (:byte 7)
     695  (movzbl (%b imm0) (%l imm0))
    694696  (testl (%l imm0) (%l imm0))
    695697  (movl ($ target::nil-value) (%l arg_z))
    696   (cmovel (@ target::t-offset (% arg_z)) (%l arg_z))
     698  (cmovnel (@ (+ target::t-offset target::symbol.vcell) (% arg_z)) (%l arg_z))
    697699  (single-value-return))
    698700
Note: See TracChangeset for help on using the changeset viewer.