;
; Реализация среды исполнения языка программирования
; Объектно-ориентированный продвинутый векторный транслятор
;
; Copyright © 2021, 2024, 2026 Малик Разработчик
;
; Это свободная программа: вы можете перераспространять ее и/или изменять
; ее на условиях Меньшей Стандартной общественной лицензии GNU в том виде,
; в каком она была опубликована Фондом свободного программного обеспечения;
; либо версии 3 лицензии, либо (по вашему выбору) любой более поздней версии.
;
; Эта программа распространяется в надежде, что она будет полезной,
; но БЕЗО ВСЯКИХ ГАРАНТИЙ; даже без неявной гарантии ТОВАРНОГО ВИДА
; или ПРИГОДНОСТИ ДЛЯ ОПРЕДЕЛЕННЫХ ЦЕЛЕЙ. Подробнее см. в Меньшей Стандартной
; общественной лицензии GNU.
;
; Вы должны были получить копию Меньшей Стандартной общественной лицензии GNU
; вместе с этой программой. Если это не так, см.
; <https://www.gnu.org/licenses/>.
;
; <fold avt.lang.Heap — родной код>
if(used avt.lang.Heap$initObjectsPointers$byte.01d$) ; <fold >
fast avt.lang.Heap$initObjectsPointers$byte.01d$, \
objPtrs, byte.01d
fenter
mov r00q, [.objPtrs]
lea r01q, [r00+$40]
add r01q, [r01+avt.lang.Array$fldOffset-$40]
vmovdqa64 zmm4, [avt.lang.Heap$OBJECTS_STEP]
vmovdqa64 zmm0, [avt.lang.Heap$OBJECTS_START]
vpaddq zmm1, zmm0, zmm4
vpaddq zmm2, zmm1, zmm4
vpaddq zmm3, zmm2, zmm4
vmovdqa64 zword [r01+$00], zmm0
vmovdqa64 zword [r01+$40], zmm1
vmovdqa64 zword [r01+$80], zmm2
vmovdqa64 zword [r01+$c0], zmm3
decrcoth r00q
fcltag_x objPtrs
fleave
end if ; </fold>
if(used avt.lang.Heap$enterLock$) ; <fold >
fast avt.lang.Heap$enterLock$, \
this, avt.lang.Heap
fenter
mov r00q, [.this]
.L.0000: test dword [r00+avt.lang.Heap$fldLock], -$01
jz .L.0001
pause
jmp .L.0000
.L.0001: mov r01d, -$01
xchg dword [r00+avt.lang.Heap$fldLock], r01d
test r01d, r01d
jnz .L.0000
decrcoth r00q
fcltag_x this
fleave
end if ; </fold>
if(used avt.lang.Heap$copyPointers$) ; <fold >
fast avt.lang.Heap$copyPointers$, \
this, avt.lang.Heap
fenter
mov r00q, [.this]
mov r01q, [r00+avt.lang.Heap$fldObjectsPointers]
mov r02q, [r00+avt.lang.Heap$fldGCPointers]
lea r01q, [r01+$40]
lea r02q, [r02+$40]
add r01q, [r01+avt.lang.Array$fldOffset-$40]
add r02q, [r02+avt.lang.Array$fldOffset-$40]
vmovdqa64 zmm0, [r01+$00]
vmovdqa64 zmm1, [r01+$40]
vmovdqa64 zmm2, [r01+$80]
vmovdqa64 zmm3, [r01+$c0]
vmovdqa64 zword [r02+$00], zmm0
vmovdqa64 zword [r02+$40], zmm1
vmovdqa64 zword [r02+$80], zmm2
vmovdqa64 zword [r02+$c0], zmm3
decrcoth r00q
fcltag_x this
fleave
end if ; </fold>
if(used avt.lang.Heap$clearAttainability$) ; <fold >
fast avt.lang.Heap$clearAttainability$, \
this, avt.lang.Heap
fenter
mov r00q, [.this]
mov r01q, [r00+avt.lang.Heap$fldGCAttainability]
lea r01q, [r01+$40]
add r01q, [r01+avt.lang.Array$fldOffset-$40]
vpxor ymm0, ymm0, ymm0
vmovdqa yword [r01+$00], ymm0
decrcoth r00q
fcltag_x this
fleave
end if ; </fold>
if(used avt.lang.Heap$setAttainability$int$) ; <fold >
fast avt.lang.Heap$setAttainability$int$, \
this, avt.lang.Heap, \
compressedPtr, int
fenter
mov r00d, [.compressedPtr]
mov r01q, [.this]
mov r02q, [r01+avt.lang.Heap$fldGCAttainability]
lea r02q, [r02+$40]
add r02q, [r02+avt.lang.Array$fldOffset-$40]
bts qword [r02+$00], r00q
decrcoth r01q
fcltag_x this
fleave
end if ; </fold>
if(used avt.lang.Heap$getAttainability$int$) ; <fold returns boolean>
fast avt.lang.Heap$getAttainability$int$, \
this, avt.lang.Heap, \
compressedPtr, int
fenter
mov r00d, [.compressedPtr]
mov r01q, [.this]
mov r02q, [r01+avt.lang.Heap$fldGCAttainability]
lea r02q, [r02+$40]
add r02q, [r02+avt.lang.Array$fldOffset-$40]
bt qword [r02+$00], r00q
setnc r00b
dec r00b
movsx r00d, r00b
decrcoth r01q
fcltag_x this
fleave
end if ; </fold>
; </fold>
