Float8.inc

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

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

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

    method avt.lang.Float8$high$float8$, \
                value, float8  ; returns float4 <fold >
                menter
                lverify value, TAG_FLOAT8
                f4load  [.value+$10]
                mleavex
                eleave
    ; </fold>

    method avt.lang.Float8$create$float4$float4$, \
                value0, float4, \
                value1, float4  ; returns float8 <fold >
                menter
                lverify value0, TAG_FLOAT4
                lverify value1, TAG_FLOAT4
                fload   [.value0+$00]
                fload   [.value0+$04]
                fload   [.value0+$08]
                fload   [.value0+$0c]
                fload   [.value1+$00]
                fload   [.value1+$04]
                fload   [.value1+$08]
                fload   [.value1+$0c]
                newvectorf8
                mleavey
                eleave
    ; </fold>

    method avt.lang.Float8$create$float2$float2$float2$float2$, \
                value0, float2, \
                value1, float2, \
                value2, float2, \
                value3, float2  ; returns float8 <fold >
                menter
                lverify value0, TAG_FLOAT2
                lverify value1, TAG_FLOAT2
                lverify value2, TAG_FLOAT2
                lverify value3, TAG_FLOAT2
                fload   [.value0+$00]
                fload   [.value0+$04]
                fload   [.value1+$00]
                fload   [.value1+$04]
                fload   [.value2+$00]
                fload   [.value2+$04]
                fload   [.value3+$00]
                fload   [.value3+$04]
                newvectorf8
                mleavey
                eleave
    ; </fold>

    method avt.lang.Float8$setElement$float8$int$float$, \
                value, float8, \
                index, int, \
                element, float  ; returns float8 <fold >
                menter
                lverify value, TAG_FLOAT8
                lverify index, TAG_INT
                lverify element, TAG_FLOAT
                mov     r0d, [.index]
                cmp     r0d, $00
                jl      .L.000
                cmp     r0d, $08
                jl      .L.001
        .L.000: call    inst$throwVectorIndexOutOfBoundsException
        .L.001: mov     r1d, [.element]
                mov     dword[.value+r0*4], r1d
                f8load  [.value]
                mleavey
                eleave
    ; </fold>

    method avt.lang.Float8$toInt8Bits$float8$, \
                value, float8  ; returns int8 <fold >
                menter
                lverify value, TAG_FLOAT8
                i8load  [.value]
                mleavey
                eleave
    ; </fold>
; </fold>