int.01d.inc

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

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

; <fold int[] — родной код>
    if(used int.01d$getPointer$) ; <fold returns long>
                    fast        int.01d$getPointer$, \
                                this, int.01d
                    fenter
                    mov         r01q, [.this]
                    lea         r00q, [r01+avt.lang.Array$fldOffset+$08]
                    add         r00q, [r01+avt.lang.Array$fldOffset+$00]
                    decrcoth    r01q
                    fcltag_x    this
                    fleave
    end if ; </fold>

    if(used int.01d$getLength$) ; <fold returns long>
                    fast        int.01d$getLength$, \
                                this, int.01d
                    fenter
                    mov         r01q, [.this]
                    mov         r00d, [r01+avt.lang.Array$fldLength]
                    shl         r00q, $02
                    decrcoth    r01q
                    fcltag_x    this
                    fleave
    end if ; </fold>

    if(used int.01d$clone$) ; <fold returns int[]>
                    method      int.01d$clone$, \
                                this, int.01d
                    loc         length, int, \
                                result, avt.lang.Object.01d
        ; public int[] clone() {
                    menter      $05
        ; int length = fldLength;
                    rdifi_l     avt.lang.Array$fldLength, this
                    declarei    length
        ; int[] result = (int[]) getClass().allocateArray(length);
                    loadr_l     this
                    tpushr
                    invspec     avt.lang.Object$getClass$
                    tpushr
                    loadi_l     length
                    tpushi
                    invspec     avt.lang.Class$allocateArray$int$
                    castrto     int.01d
                    declarer    result
        ; Array.copy(this, 0, result, 0, length);
                    loadr_l     this
                    tpushr
                    loadi_g     $00000000
                    tpushi
                    loadr_l     result
                    tpushr
                    loadi_g     $00000000
                    tpushi
                    loadi_l     length
                    tpushi
                    invstat     avt.lang.Array$copy$int.01d$int$int.01d$int$int$
        ; return result;
                    loadr_l     result
        ; }
                    mleave
                    eleave
    end if ; </fold>

    if(used int.01d$$awr$$int$int$) ; <fold >
                    fast        int.01d$$awr$$int$int$, \
                                this, int.01d, \
                                index, int, \
                                value, int
                    fenter
                    mov         r02q, [.this]
                    mov         r01d, [.index]
                    cmp         r01d, [r02+avt.lang.Array$fldLength]
                    jb          @F
                    fthrow      ArrayIndexOutOfBoundsException
             @@:    lea         r00q, [r02+avt.lang.Array$fldOffset+$08]
                    add         r00q, [r02+avt.lang.Array$fldOffset+$00]
                    mov         r08d, [.value]
                    mov         dword [r00+r01*4+$00], r08d
                    decrcoth    r02q
                    fcltag_x    this
                    fleave
    end if ; </fold>

    if(used int.01d$$ard$$int$) ; <fold returns int>
                    fast        int.01d$$ard$$int$, \
                                this, int.01d, \
                                index, int
                    fenter
                    mov         r02q, [.this]
                    mov         r01d, [.index]
                    cmp         r01d, [r02+avt.lang.Array$fldLength]
                    jb          @F
                    fthrow      ArrayIndexOutOfBoundsException
             @@:    lea         r00q, [r02+avt.lang.Array$fldOffset+$08]
                    add         r00q, [r02+avt.lang.Array$fldOffset+$00]
                    mov         r00d, [r00+r01*4+$00]
                    decrcoth    r02q
                    fcltag_x    this
                    fleave
    end if ; </fold>

    if(used int.01d$setLength$int$) ; <fold >
                    fast        int.01d$setLength$int$, \
                                this, int.01d, \
                                newLength, int
                    fenter
                    mov         r01q, [.this]
                    mov         r00d, [.newLength]
                    cmp         r00d, [r01+avt.lang.Array$fldCapacity]
                    jbe         @F
                    fthrow      IllegalArrayLengthException
             @@:    mov         dword [r01+avt.lang.Array$fldLength], r00d
                    decrcoth    r01q
                    fcltag_x    this
                    fleave
    end if ; </fold>
; </fold>