Changeset 7543


Ignore:
Timestamp:
Oct 29, 2007, 6:45:23 AM (12 years ago)
Author:
gb
Message:

Add an "xchgl" function, which is just one more flavor of atomic-swap.

File:
1 edited

Legend:

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

    r7399 r7543  
    497497    (single-value-return)))
    498498
     499(defx86lapfunction xchgl ((newval arg_y) (ptr arg_z))
     500  (unbox-fixnum newval imm0)
     501  (macptr-ptr ptr arg_y)                ; had better be aligned
     502  (lock)                                ; implicit ?
     503  (xchgl (% imm0.l) (@ (% arg_y)))
     504  (box-fixnum imm0 arg_z)
     505  (single-value-return))
     506 
     507                         
     508
    499509
    500510(defx86lapfunction %macptr->dead-macptr ((macptr arg_z))
Note: See TracChangeset for help on using the changeset viewer.