gh-mirror/mikepaul-LuaJIT
1
0
Fork 1
mirror of https://github.com/LuaJIT/LuaJIT.git synced 2025-02-12 17:24:09 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

PPC: Add missing write barrier to BC_TSETV.

Browse Source
This commit is contained in:
Mike Pall 2010-09-13 21:21:39 +02:00
parent dcfc385bf3
commit 7a766c771d
1 changed files with 18 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
src/buildvm_ppc.dasc
View File

@ -1773,21 +1773,25 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop)
| efdcmpeq cr1, RC, TMP1 | efdcmpeq cr1, RC, TMP1
| lwz TMP1, TAB:RB->array | lwz TMP1, TAB:RB->array
| crand 4*cr0+gt, 4*cr0+gt, 4*cr1+gt | crand 4*cr0+gt, 4*cr0+gt, 4*cr1+gt
| slwi TMP2, TMP2, 3 | slwi TMP0, TMP2, 3
| ble ->vmeta_tsetv // Integer key and in array part? | ble ->vmeta_tsetv // Integer key and in array part?
| evlddx TMP0, TMP1, TMP2 | lbz TMP3, TAB:RB->marked
| checknil TMP0 | evlddx TMP2, TMP1, TMP0
| checkok >2 | checknil TMP2
| checkok >3
|1: |1:
| evstddx SAVE0, TMP1, TMP2 | andi. TMP3, TMP3, LJ_GC_BLACK // isblack(table)
| evstddx SAVE0, TMP1, TMP0
| bne >7
|2:
| ins_next | ins_next
| |
|2: // Check for __newindex if previous value is nil. |3: // Check for __newindex if previous value is nil.
| lwz TAB:TMP3, TAB:RB->metatable | lwz TAB:TMP2, TAB:RB->metatable
| cmplwi TAB:TMP3, 0 | cmplwi TAB:TMP2, 0
| beq <1 // No metatable: done. | beq <1 // No metatable: done.
| lbz TMP0, TAB:TMP3->nomm | lbz TMP2, TAB:TMP2->nomm
| andi. TMP0, TMP0, 1<<MM_newindex | andi. TMP2, TMP2, 1<<MM_newindex
| bne <1 // 'no __newindex' flag set: done. | bne <1 // 'no __newindex' flag set: done.
| b ->vmeta_tsetv | b ->vmeta_tsetv
| |
@ -1795,6 +1799,10 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop)
| checkstr STR:RC // String key? | checkstr STR:RC // String key?
| checkok ->BC_TSETS_Z | checkok ->BC_TSETS_Z
| b ->vmeta_tsetv | b ->vmeta_tsetv
|
|7: // Possible table write barrier for the value. Skip valiswhite check.
| barrierback TAB:RB, TMP3, TMP0
| b <2
break; break;
case BC_TSETS: case BC_TSETS:
| // RA = src*8, RB = table*8, RC = str_const*8 (~) | // RA = src*8, RB = table*8, RC = str_const*8 (~)