ResourceEnumerator.inc

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

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

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

    method avt.lang.ResourceEnumerator$nextResource$, \
                this, avt.lang.ResourceEnumerator  ; <fold >
                menter
                lverify this, TAG_OBJECT
                mov     r0, [.this]
                mov     r1, [r0+avt.lang.ResourceEnumerator$fldResourcePointer]
                movzx   r2d, word[r1]
                xor     r6, r6
                test    r2, r2
                jz      .L.RET
                lea     r6, [r1+r2*1+$02]
                mov     r7, r6
                neg     r7
                and     r7, $03
                lea     r6, [r6+r7*1]
                mov     r7d, [r6]
                lea     r1, [r6+r7*1+$04]
                mov     r2, r1
                neg     r2
                and     r2, $0f
                lea     r1, [r1+r2*1]
                movzx   r2d, word[r1]
                xor     r6, r6
                test    r2, r2
                jz      .L.RET
                lea     r6, [r1+r2*1+$02]
                mov     r7, r6
                neg     r7
                and     r7, $03
                mov     r6d, [r6+r7*1]
        .L.RET: mov     dword[r0+avt.lang.ResourceEnumerator$fldDataLength], r6d
                mov     dword[r0+avt.lang.ResourceEnumerator$fldNameLength], r2d
                mov     qword[r0+avt.lang.ResourceEnumerator$fldResourcePointer], r1
                mleave
                eleave
    ; </fold>

    method avt.lang.ResourceEnumerator$initialize$, \
                this, avt.lang.ResourceEnumerator  ; <fold >
                menter
                lverify this, TAG_OBJECT
                mov     r0, [.this]
                lea     r1, [resources$begin]
                movzx   r2d, word[r1]
                xor     r6, r6
                test    r2, r2
                jz      .L.RET
                lea     r6, [r1+r2*1+$02]
                mov     r7, r6
                neg     r7
                and     r7, $03
                mov     r6d, [r6+r7*1]
        .L.RET: mov     dword[r0+avt.lang.ResourceEnumerator$fldDataLength], r6d
                mov     dword[r0+avt.lang.ResourceEnumerator$fldNameLength], r2d
                mov     qword[r0+avt.lang.ResourceEnumerator$fldResourcePointer], r1
                mleave
                eleave
    ; </fold>
; </fold>