Changeset 6073


Ignore:
Timestamp:
Mar 20, 2007, 6:21:03 AM (13 years ago)
Author:
gb
Message:

Typo.

File:
1 edited

Legend:

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

    r6066 r6073  
    702702  (let ((address imm0)
    703703        (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))
     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)))
    719719
    720720
Note: See TracChangeset for help on using the changeset viewer.