Long2.inc

Переключить прокрутку окна
Загрузить этот исходный код

;
 ;  Исходный код среды исполнения ПВТ-ОО.
 ;
 ;  Этот исходный код является частью проекта ПВТ-ОО.
 ;
 ;  Copyright © 2021 Малик Разработчик
 ;
 ;  Это свободная программа: вы можете перераспространять её и/или
 ;  изменять её на условиях Меньшей Стандартной общественной лицензии GNU в том виде,
 ;  в каком она была опубликована Фондом свободного программного обеспечения;
 ;  либо версии 3 лицензии, либо (по вашему выбору) любой более поздней версии.
 ;
 ;  Эта программа распространяется в надежде, что она может быть полезна,
 ;  но БЕЗО ВСЯКИХ ГАРАНТИЙ; даже без неявной гарантии ТОВАРНОГО ВИДА
 ;  или ПРИГОДНОСТИ ДЛЯ ОПРЕДЕЛЁННЫХ ЦЕЛЕЙ. Подробнее см. в Меньшей Стандартной
 ;  общественной лицензии GNU.
 ;
 ;  Вы должны были получить копию Меньшей Стандартной общественной лицензии GNU
 ;  вместе с этой программой. Если это не так, см.
 ;  <http://www.gnu.org/licenses/>.
;

; <fold avt.lang.Long2 (natives)>

    method avt.lang.Long2$max$long2$long2$, \
                value0, long2, \
                value1, long2  ; returns long2 <fold >
                menter
                lverify value0, TAG_LONG2
                lverify value1, TAG_LONG2
                vmovdqa xmm0, [.value0]
                vpmaxsq xmm0, xmm0, [.value1]
                call    inst$l2push
                mleavex
                eleave
    ; </fold>

    method avt.lang.Long2$maxUnsigned$long2$long2$, \
                value0, long2, \
                value1, long2  ; returns long2 <fold >
                menter
                lverify value0, TAG_LONG2
                lverify value1, TAG_LONG2
                vmovdqa xmm0, [.value0]
                vpmaxuq xmm0, xmm0, [.value1]
                call    inst$l2push
                mleavex
                eleave
    ; </fold>

    method avt.lang.Long2$min$long2$long2$, \
                value0, long2, \
                value1, long2  ; returns long2 <fold >
                menter
                lverify value0, TAG_LONG2
                lverify value1, TAG_LONG2
                vmovdqa xmm0, [.value0]
                vpminsq xmm0, xmm0, [.value1]
                call    inst$l2push
                mleavex
                eleave
    ; </fold>

    method avt.lang.Long2$minUnsigned$long2$long2$, \
                value0, long2, \
                value1, long2  ; returns long2 <fold >
                menter
                lverify value0, TAG_LONG2
                lverify value1, TAG_LONG2
                vmovdqa xmm0, [.value0]
                vpminuq xmm0, xmm0, [.value1]
                call    inst$l2push
                mleavex
                eleave
    ; </fold>

    method avt.lang.Long2$rotateLeft$long2$int$, \
                value, long2, \
                bits, int  ; returns long2 <fold >
                menter
                lverify value, TAG_LONG2
                lverify bits, TAG_INT
                mov     r1d, [.bits]
                and     r1d, $3f
                mov     r2d, $40
                sub     r2d, r1d
                vmovdqa xmm3, [.value]
                vmovd   xmm2, r2d
                vmovd   xmm1, r1d
                vpsllq  xmm0, xmm3, xmm1
                vpsrlq  xmm3, xmm3, xmm2
                vpor    xmm0, xmm0, xmm3
                call    inst$l2push
                mleavex
                eleave
    ; </fold>

    method avt.lang.Long2$rotateRight$long2$int$, \
                value, long2, \
                bits, int  ; returns long2 <fold >
                menter
                lverify value, TAG_LONG2
                lverify bits, TAG_INT
                mov     r1d, [.bits]
                and     r1d, $3f
                mov     r2d, $40
                sub     r2d, r1d
                vmovdqa xmm3, [.value]
                vmovd   xmm2, r2d
                vmovd   xmm1, r1d
                vpsrlq  xmm0, xmm3, xmm1
                vpsllq  xmm3, xmm3, xmm2
                vpor    xmm0, xmm0, xmm3
                call    inst$l2push
                mleavex
                eleave
    ; </fold>

    method avt.lang.Long2$setElement$long2$int$long$, \
                value, long2, \
                index, int, \
                element, long  ; returns long2 <fold >
                menter
                lverify value, TAG_LONG2
                lverify index, TAG_INT
                lverify element, TAG_LONG
                mov     r0d, [.index]
                cmp     r0d, $00
                jl      .L.000
                cmp     r0d, $02
                jl      .L.001
        .L.000: call    inst$throwVectorIndexOutOfBoundsException
        .L.001: mov     r1, [.element]
                mov     qword[.value+r0*8], r1
                l2load  [.value]
                mleavex
                eleave
    ; </fold>

    method avt.lang.Long2$toShort8Bits$long2$, \
                value, long2  ; returns short8 <fold >
                menter
                lverify value, TAG_LONG2
                s8load  [.value]
                mleavex
                eleave
    ; </fold>

    method avt.lang.Long2$toInt4Bits$long2$, \
                value, long2  ; returns int4 <fold >
                menter
                lverify value, TAG_LONG2
                i4load  [.value]
                mleavex
                eleave
    ; </fold>

    method avt.lang.Long2$toDouble2Bits$long2$, \
                value, long2  ; returns double2 <fold >
                menter
                lverify value, TAG_LONG2
                d2load  [.value]
                mleavex
                eleave
    ; </fold>

    method avt.lang.Long2$toRealBits$long2$, \
                value, long2  ; returns real <fold >
                menter
                lverify value, TAG_LONG2
                xload   [.value]
                mleavet
                eleave
    ; </fold>
; </fold>