Changeset 6179


Ignore:
Timestamp:
Apr 8, 2007, 2:58:04 AM (12 years ago)
Author:
gb
Message:

%PTR-STORE-FIXNUM-CONDITIONAL.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-0/PPC/ppc-misc.lisp

    r5870 r6179  
    699699  (blr))
    700700
     701(defppclapfunction %ptr-store-fixnum-conditional ((ptr arg_x) (expected-oldval arg_y) (newval arg_z))
     702  (let ((address imm0)
     703        (actual-oldval imm1))
     704    (macptr-ptr address ptr)
     705    @again
     706    (lrarx actual-oldval 0 address)
     707    (cmpr actual-oldval expected-oldval)
     708    (bne- @done)
     709    (strcx. newval 0 address)
     710    (bne- @again)
     711    (isync)
     712    (mr arg_z actual-oldval)
     713    (blr)
     714    @done
     715    (li address target::reservation-discharge)
     716    (mr arg_z actual-oldval)
     717    (strcx. rzero 0 address)
     718    (blr)))
     719
     720
     721
    701722
    702723(defppclapfunction %macptr->dead-macptr ((macptr arg_z))
Note: See TracChangeset for help on using the changeset viewer.