;
; Исходный код среды исполнения ПВТ-ОО.
;
; Этот исходный код является частью проекта ПВТ-ОО.
;
; Copyright © 2021 Малик Разработчик
;
; Это свободная программа: вы можете перераспространять её и/или
; изменять её на условиях Меньшей Стандартной общественной лицензии GNU в том виде,
; в каком она была опубликована Фондом свободного программного обеспечения;
; либо версии 3 лицензии, либо (по вашему выбору) любой более поздней версии.
;
; Эта программа распространяется в надежде, что она может быть полезна,
; но БЕЗО ВСЯКИХ ГАРАНТИЙ; даже без неявной гарантии ТОВАРНОГО ВИДА
; или ПРИГОДНОСТИ ДЛЯ ОПРЕДЕЛЁННЫХ ЦЕЛЕЙ. Подробнее см. в Меньшей Стандартной
; общественной лицензии GNU.
;
; Вы должны были получить копию Меньшей Стандартной общественной лицензии GNU
; вместе с этой программой. Если это не так, см.
; <http://www.gnu.org/licenses/>.
;
; <fold avt.lang.Byte4 (natives)>
method avt.lang.Byte4$max$byte4$byte4$, \
value0, byte4, \
value1, byte4 ; returns byte4 <fold >
menter
lverify value0, TAG_BYTE4
lverify value1, TAG_BYTE4
vmovd xmm0, [.value0]
vmovd xmm1, [.value1]
vpmaxsb xmm0, xmm0, xmm1
call inst$b4push
mleavex
eleave
; </fold>
method avt.lang.Byte4$maxUnsigned$byte4$byte4$, \
value0, byte4, \
value1, byte4 ; returns byte4 <fold >
menter
lverify value0, TAG_BYTE4
lverify value1, TAG_BYTE4
vmovd xmm0, [.value0]
vmovd xmm1, [.value1]
vpmaxub xmm0, xmm0, xmm1
call inst$b4push
mleavex
eleave
; </fold>
method avt.lang.Byte4$min$byte4$byte4$, \
value0, byte4, \
value1, byte4 ; returns byte4 <fold >
menter
lverify value0, TAG_BYTE4
lverify value1, TAG_BYTE4
vmovd xmm0, [.value0]
vmovd xmm1, [.value1]
vpminsb xmm0, xmm0, xmm1
call inst$b4push
mleavex
eleave
; </fold>
method avt.lang.Byte4$minUnsigned$byte4$byte4$, \
value0, byte4, \
value1, byte4 ; returns byte4 <fold >
menter
lverify value0, TAG_BYTE4
lverify value1, TAG_BYTE4
vmovd xmm0, [.value0]
vmovd xmm1, [.value1]
vpminub xmm0, xmm0, xmm1
call inst$b4push
mleavex
eleave
; </fold>
method avt.lang.Byte4$rotateLeft$byte4$int$, \
value, byte4, \
bits, int ; returns byte4 <fold >
menter
lverify value, TAG_BYTE4
lverify bits, TAG_INT
mov r1d, [.bits]
and r1d, $07
mov r2d, $08
sub r2d, r1d
vmovd xmm3, [.value]
vmovd xmm2, r2d
vmovd xmm1, r1d
vpmovzxbw xmm3, xmm3
vpsllw xmm0, xmm3, xmm1
vpsrlw xmm3, xmm3, xmm2
vpor xmm0, xmm0, xmm3
vpand xmm0, xmm0, [s8.00]
vpxor xmm3, xmm0, xmm0
vpackuswb xmm0, xmm0, xmm3
call inst$b4push
mleavex
eleave
; </fold>
method avt.lang.Byte4$rotateRight$byte4$int$, \
value, byte4, \
bits, int ; returns byte4 <fold >
menter
lverify value, TAG_BYTE4
lverify bits, TAG_INT
mov r1d, [.bits]
and r1d, $07
mov r2d, $08
sub r2d, r1d
vmovd xmm3, [.value]
vmovd xmm2, r2d
vmovd xmm1, r1d
vpmovzxbw xmm3, xmm3
vpsrlw xmm0, xmm3, xmm1
vpsllw xmm3, xmm3, xmm2
vpor xmm0, xmm0, xmm3
vpand xmm0, xmm0, [s8.00]
vpxor xmm3, xmm0, xmm0
vpackuswb xmm0, xmm0, xmm3
call inst$b4push
mleavex
eleave
; </fold>
method avt.lang.Byte4$high$byte4$, \
value, byte4 ; returns byte2 <fold >
menter
lverify value, TAG_BYTE4
b2load [.value+$02]
mleavex
eleave
; </fold>
method avt.lang.Byte4$create$byte2$byte2$, \
value0, byte2, \
value1, byte2 ; returns byte4 <fold >
menter
lverify value0, TAG_BYTE2
lverify value1, TAG_BYTE2
bload [.value0+$00]
bload [.value0+$01]
bload [.value1+$00]
bload [.value1+$01]
newvectorb4
mleavex
eleave
; </fold>
method avt.lang.Byte4$setElement$byte4$int$byte$, \
value, byte4, \
index, int, \
element, byte ; returns byte4 <fold >
menter
lverify value, TAG_BYTE4
lverify index, TAG_INT
lverify element, TAG_INT
mov r0d, [.index]
cmp r0d, $00
jl .L.000
cmp r0d, $04
jl .L.001
.L.000: call inst$throwVectorIndexOutOfBoundsException
.L.001: mov r1d, [.element]
mov byte[.value+r0*1], r1b
b4load [.value]
mleavex
eleave
; </fold>
method avt.lang.Byte4$toShort2Bits$byte4$, \
value, byte4 ; returns short2 <fold >
menter
lverify value, TAG_BYTE4
s2load [.value]
mleavex
eleave
; </fold>
method avt.lang.Byte4$toIntBits$byte4$, \
value, byte4 ; returns int <fold >
menter
lverify value, TAG_BYTE4
iload [.value]
mleaved
eleave
; </fold>
; </fold>
