Short4.inc

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

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

; <fold avt.lang.Short4 — родной код>
    if(used avt.lang.Short4$toByte8Bits$short4$) ; <fold returns byte8>
                    fast        avt.lang.Short4$toByte8Bits$short4$, \
                                value, short4
                    fenter
                    vmovdqa     xmm0, [.value]
                    fleave
    end if ; </fold>

    if(used avt.lang.Short4$low$short4$) ; <fold returns short2>
                    fast        avt.lang.Short4$low$short4$, \
                                value, short4
                    fenter
                    vmovd       xmm0, [.value+$00]
                    fleave
    end if ; </fold>

    if(used avt.lang.Short4$high$short4$) ; <fold returns short2>
                    fast        avt.lang.Short4$high$short4$, \
                                value, short4
                    fenter
                    vmovd       xmm0, [.value+$04]
                    fleave
    end if ; </fold>

    if(used avt.lang.Short4$create$short2$short2$) ; <fold returns short4>
                    fast        avt.lang.Short4$create$short2$short2$, \
                                value0, short2, \
                                value1, short2
                    fenter
                    vmovdqa     xmm0, [.value0]
                    vmovdqa     xmm1, [.value1]
                    vpslldq     xmm1, xmm1, $04
                    vpor        xmm0, xmm0, xmm1
                    fleave
    end if ; </fold>

    if(used avt.lang.Short4$max$short4$short4$) ; <fold returns short4>
                    fast        avt.lang.Short4$max$short4$short4$, \
                                value0, short4, \
                                value1, short4
                    fenter
                    vmovdqa     xmm0, [.value0]
                    vpmaxsw     xmm0, xmm0, [.value1]
                    fleave
    end if ; </fold>

    if(used avt.lang.Short4$maxUnsigned$short4$short4$) ; <fold returns short4>
                    fast        avt.lang.Short4$maxUnsigned$short4$short4$, \
                                value0, short4, \
                                value1, short4
                    fenter
                    vmovdqa     xmm0, [.value0]
                    vpmaxuw     xmm0, xmm0, [.value1]
                    fleave
    end if ; </fold>

    if(used avt.lang.Short4$min$short4$short4$) ; <fold returns short4>
                    fast        avt.lang.Short4$min$short4$short4$, \
                                value0, short4, \
                                value1, short4
                    fenter
                    vmovdqa     xmm0, [.value0]
                    vpminsw     xmm0, xmm0, [.value1]
                    fleave
    end if ; </fold>

    if(used avt.lang.Short4$minUnsigned$short4$short4$) ; <fold returns short4>
                    fast        avt.lang.Short4$minUnsigned$short4$short4$, \
                                value0, short4, \
                                value1, short4
                    fenter
                    vmovdqa     xmm0, [.value0]
                    vpminuw     xmm0, xmm0, [.value1]
                    fleave
    end if ; </fold>

    if(used avt.lang.Short4$rotateLeft$short4$int$) ; <fold returns short4>
                    fast        avt.lang.Short4$rotateLeft$short4$int$, \
                                value, short4, \
                                bits, int
                    fenter
                    mov         r01d, [.bits]
                    and         r01d, $0f
                    mov         r02d, $10
                    sub         r02d, r01d
                    vmovdqa     xmm1, [.value]
                    vmovd       xmm2, r01d
                    vmovd       xmm3, r02d
                    vpsllw      xmm0, xmm1, xmm2
                    vpsrlw      xmm1, xmm1, xmm3
                    vpor        xmm0, xmm0, xmm1
                    fleave
    end if ; </fold>

    if(used avt.lang.Short4$rotateRight$short4$int$) ; <fold returns short4>
                    fast        avt.lang.Short4$rotateRight$short4$int$, \
                                value, short4, \
                                bits, int
                    fenter
                    mov         r01d, [.bits]
                    and         r01d, $0f
                    mov         r02d, $10
                    sub         r02d, r01d
                    vmovdqa     xmm1, [.value]
                    vmovd       xmm2, r01d
                    vmovd       xmm3, r02d
                    vpsrlw      xmm0, xmm1, xmm2
                    vpsllw      xmm1, xmm1, xmm3
                    vpor        xmm0, xmm0, xmm1
                    fleave
    end if ; </fold>

    if(used avt.lang.Short4$setElement$short4$int$short$) ; <fold returns short4>
                    fast        avt.lang.Short4$setElement$short4$int$short$, \
                                value, short4, \
                                index, int, \
                                element, short
                    fenter
                    mov         r01d, [.index]
                    cmp         r01d, $04
                    jb          @F
                    fthrow      VectorIndexOutOfBoundsException
             @@:    mov         r00d, [.element]
                    mov         word  [.value+r01*2+$00], r00w
                    vmovdqa     xmm0, [.value]
                    fleave
    end if ; </fold>

    if(used avt.lang.Short4$toInt2Bits$short4$) ; <fold returns int2>
                    fast        avt.lang.Short4$toInt2Bits$short4$, \
                                value, short4
                    fenter
                    vmovdqa     xmm0, [.value]
                    fleave
    end if ; </fold>

    if(used avt.lang.Short4$toLongBits$short4$) ; <fold returns long>
                    fast        avt.lang.Short4$toLongBits$short4$, \
                                value, short4
                    fenter
                    mov         r00, [.value]
                    fleave
    end if ; </fold>
; </fold>