Long.inc

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

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

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

    method avt.lang.Long$signum$long$, \
                value, long  ; returns int <fold >
                menter
                lverify value, TAG_LONG
                cmp     qword[.value], $00
                jl      .L
                je      .E
        .G:     mov     r0d, $01
                jmp     @F
        .L:     mov     r0d, -$01
                jmp     @F
        .E:     xor     r0d, r0d
        @@:     call    inst$ipush
                mleaved
                eleave
    ; </fold>

    method avt.lang.Long$compare$long$long$, \
                value0, long, \
                value1, long  ; returns int <fold >
                menter
                lverify value0, TAG_LONG
                lverify value1, TAG_LONG
                mov     r0, [.value0]
                cmp     r0, [.value1]
                jl      .L
                je      .E
        .G:     mov     r0d, $01
                jmp     @F
        .L:     mov     r0d, -$01
                jmp     @F
        .E:     xor     r0d, r0d
        @@:     call    inst$ipush
                mleaved
                eleave
    ; </fold>

    method avt.lang.Long$compareUnsigned$long$long$, \
                value0, long, \
                value1, long  ; returns int <fold >
                menter
                lverify value0, TAG_LONG
                lverify value1, TAG_LONG
                mov     r0, [.value0]
                cmp     r0, [.value1]
                jb      .L
                je      .E
        .G:     mov     r0d, $01
                jmp     @F
        .L:     mov     r0d, -$01
                jmp     @F
        .E:     xor     r0d, r0d
        @@:     call    inst$ipush
                mleaved
                eleave
    ; </fold>

    method avt.lang.Long$max$long$long$, \
                value0, long, \
                value1, long  ; returns long <fold >
                menter
                lverify value0, TAG_LONG
                lverify value1, TAG_LONG
                mov     r0, [.value0]
                mov     r1, [.value1]
                cmp     r0, r1
                jge     @F
                mov     r0, r1
        @@:     call    inst$lpush
                mleaveq
                eleave
    ; </fold>

    method avt.lang.Long$maxUnsigned$long$long$, \
                value0, long, \
                value1, long  ; returns long <fold >
                menter
                lverify value0, TAG_LONG
                lverify value1, TAG_LONG
                mov     r0, [.value0]
                mov     r1, [.value1]
                cmp     r0, r1
                jae     @F
                mov     r0, r1
        @@:     call    inst$lpush
                mleaveq
                eleave
    ; </fold>

    method avt.lang.Long$min$long$long$, \
                value0, long, \
                value1, long  ; returns long <fold >
                menter
                lverify value0, TAG_LONG
                lverify value1, TAG_LONG
                mov     r0, [.value0]
                mov     r1, [.value1]
                cmp     r0, r1
                jle     @F
                mov     r0, r1
        @@:     call    inst$lpush
                mleaveq
                eleave
    ; </fold>

    method avt.lang.Long$minUnsigned$long$long$, \
                value0, long, \
                value1, long  ; returns long <fold >
                menter
                lverify value0, TAG_LONG
                lverify value1, TAG_LONG
                mov     r0, [.value0]
                mov     r1, [.value1]
                cmp     r0, r1
                jbe     @F
                mov     r0, r1
        @@:     call    inst$lpush
                mleaveq
                eleave
    ; </fold>

    method avt.lang.Long$rotateLeft$long$int$, \
                value, long, \
                bits, int  ; returns long <fold >
                menter
                lverify value, TAG_LONG
                lverify bits, TAG_INT
                mov     r1d, [.bits]
                mov     r0, [.value]
                rol     r0, r1b
                call    inst$lpush
                mleaveq
                eleave
    ; </fold>

    method avt.lang.Long$rotateRight$long$int$, \
                value, long, \
                bits, int  ; returns long <fold >
                menter
                lverify value, TAG_LONG
                lverify bits, TAG_INT
                mov     r1d, [.bits]
                mov     r0, [.value]
                ror     r0, r1b
                call    inst$lpush
                mleaveq
                eleave
    ; </fold>

    method avt.lang.Long$toByte8Bits$long$, \
                value, long  ; returns byte8 <fold >
                menter
                lverify value, TAG_LONG
                b8load  [.value]
                mleavex
                eleave
    ; </fold>

    method avt.lang.Long$toShort4Bits$long$, \
                value, long  ; returns short4 <fold >
                menter
                lverify value, TAG_LONG
                s4load  [.value]
                mleavex
                eleave
    ; </fold>

    method avt.lang.Long$toInt2Bits$long$, \
                value, long  ; returns int2 <fold >
                menter
                lverify value, TAG_LONG
                i2load  [.value]
                mleavex
                eleave
    ; </fold>

    method avt.lang.Long$toDoubleBits$long$, \
                value, long  ; returns double <fold >
                menter
                lverify value, TAG_LONG
                dload   [.value]
                mleavex
                eleave
    ; </fold>
; </fold>