int2.01d.inc

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

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

; <fold int2[] (natives)

    method int2.01d$getPointer$, \
                this, int2.01d  ; returns long <fold >
                menter
                lverify this, TAG_OBJECT
                mov     r1, [.this]
                lea     r0, [r1+$40]
                add     r0, [r1+int2.01d$fldOffset]
                call    inst$lpush
                mleaveq
                eleave
    ; </fold>

    method int2.01d$getLength$, \
                this, int2.01d  ; returns long <fold >
                menter
                lverify this, TAG_OBJECT
                mov     r1, [.this]
                movsxd  r0, [r1+int2.01d$fldLength]
                sal     r0, $03
                call    inst$lpush
                mleaveq
                eleave
    ; </fold>

    method int2.01d$clone$, \
                this, int2.01d  ; returns int2[] <fold >
                loc     length, int
                loc     result, int2.01d
        ; public int2[] clone() {
                menter
        ; int length = fldLength;
                rloadloc this
                getfieldi int2.01d$fldLength
                istoreloc length
        ; int2[] result = (int2[]) getClass().allocateArray(length);
                rloadloc this
                invokespecialr avt.lang.Object$getClass$
                iloadloc length
                invokespecialr avt.lang.Class$allocateArray$int$
                rcast   int2.01d
                rstoreloc result
        ; Array.copy(this, 0, result, 0, length);
                rloadloc this
                bload   $00
                rloadloc result
                bload   $00
                iloadloc length
                invokestatic avt.lang.Array$copy$int2.01d$int$int2.01d$int$int$
        ; return result;
                rloadloc result
        ; }
                mleaver
                eleave
    ; </fold>

    method int2.01d$$awr$$int$int2$, \
                this, int2.01d, \
                index, int, \
                value, int2  ; <fold >
        ; public void operator []=(int index, int2 value) {
                menter
        ; this[index] = value;
                rloadloc this
                iloadloc index
                i2loadloc value
                setarrayelementi2
        ; }
                mleave
                eleave
    ; </fold>

    method int2.01d$$ard$$int$, \
                this, int2.01d, \
                index, int  ; returns int2 <fold >
        ; public int2 operator [](int index) {
                menter
        ; return this[index];
                rloadloc this
                iloadloc index
                getarrayelementi2
        ; }
                mleavex
                eleave
    ; </fold>
; </fold>