Ignore:
Timestamp:
Mar 20, 2007, 3:48:30 AM (13 years ago)
Author:
gb
Message:

%ptr-store-fixnum-conditional.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/objc-gf/ccl/level-0/PPC/ppc-misc.lisp

    r5870 r6066  
    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.