DebugInfo.inc

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

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

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

    method avt.lang.DebugInfo$getSourceNameLength$long$, \
                sourceNamePointer, long  ; returns int <fold >
                menter
                lverify sourceNamePointer, TAG_LONG
                xor     r0d, r0d
                mov     r1d, avt.lang.Int$MAX_VALUE
                mov     r6, [.sourceNamePointer]
                mov     r7, r6
                cld
                repne scasw
                lea     r0, [r7-$02]
                sub     r0, r6
                sar     r0, $01
                call    inst$ipush
                mleaved
                eleave
    ; </fold>

    method avt.lang.DebugInfo$getElementNameLength$long$, \
                elementNamePointer, long  ; returns int <fold >
                menter
                lverify elementNamePointer, TAG_LONG
                xor     r0d, r0d
                mov     r1d, avt.lang.Int$MAX_VALUE
                mov     r6, [.elementNamePointer]
                mov     r7, r6
                cld
                repne scasb
                lea     r0, [r7-$01]
                sub     r0, r6
                call    inst$ipush
                mleaved
                eleave
    ; </fold>

    method avt.lang.DebugInfo$getLineNumber$long$, \
                debugInfoPointer, long  ; returns int <fold >
                menter
                lverify debugInfoPointer, TAG_LONG
                mov     r6, [.debugInfoPointer]
                mov     r0d, [r6+$0c]
                call    inst$ipush
                mleaved
                eleave
    ; </fold>

    method avt.lang.DebugInfo$get$long$, \
                codePointer, long  ; returns long <fold >
                menter
                lverify codePointer, TAG_LONG
                mov     r0, [.codePointer]
                lea     r6, [debuginfo$entry]
                lea     r7, [debuginfo$end]
        .L.000: movsxd  r1, [r6+$00]
                lea     r1, [r6+r1*1]
                cmp     r0, r1
                jl      .L.001
                movsxd  r2, [r6+$04]
                lea     r2, [r1+r2*1]
                cmp     r0, r2
                jge     .L.001
                mov     r0, r6
                jmp     .L.RET
        .L.001: lea     r6, [r6+$20]
                cmp     r6, r7
                jl      .L.000
                xor     r0, r0
        .L.RET: call    inst$lpush
                mleaveq
                eleave
    ; </fold>

    method avt.lang.DebugInfo$getSourceNamePointer$long$, \
                debugInfoPointer, long  ; returns long <fold >
                menter
                lverify debugInfoPointer, TAG_LONG
                mov     r6, [.debugInfoPointer]
                movsxd  r1, [r6+$08]
                lea     r0, [r6+r1*1]
                call    inst$lpush
                mleaveq
                eleave
    ; </fold>

    method avt.lang.DebugInfo$getMethodNamePointer$long$, \
                debugInfoPointer, long  ; returns long <fold >
                menter
                lverify debugInfoPointer, TAG_LONG
                mov     r6, [.debugInfoPointer]
                movsxd  r1, [r6+$14]
                lea     r0, [r6+r1*1]
                call    inst$lpush
                mleaveq
                eleave
    ; </fold>

    method avt.lang.DebugInfo$getEnclosingClass$long$, \
                debugInfoPointer, long  ; returns avt.lang.Class <fold >
                menter
                lverify debugInfoPointer, TAG_LONG
                mov     r6, [.debugInfoPointer]
                movsxd  r1, [r6+$10]
                lea     r0, [r6+r1*1]
                call    inst$rpush
                mleaver
                eleave
    ; </fold>
; </fold>