;
; Реализация среды исполнения языка программирования
; Объектно-ориентированный продвинутый векторный транслятор
;
; Copyright © 2021, 2024 Малик Разработчик
;
; Это свободная программа: вы можете перераспространять ее и/или изменять
; ее на условиях Меньшей Стандартной общественной лицензии GNU в том виде,
; в каком она была опубликована Фондом свободного программного обеспечения;
; либо версии 3 лицензии, либо (по вашему выбору) любой более поздней версии.
;
; Эта программа распространяется в надежде, что она будет полезной,
; но БЕЗО ВСЯКИХ ГАРАНТИЙ; даже без неявной гарантии ТОВАРНОГО ВИДА
; или ПРИГОДНОСТИ ДЛЯ ОПРЕДЕЛЕННЫХ ЦЕЛЕЙ. Подробнее см. в Меньшей Стандартной
; общественной лицензии GNU.
;
; Вы должны были получить копию Меньшей Стандартной общественной лицензии GNU
; вместе с этой программой. Если это не так, см.
; <https://www.gnu.org/licenses/>.
;
; <fold avt.lang.DebugInfo — родной код>
if(used avt.lang.DebugInfo$getSourceFileNameLength$long$) ; <fold returns int>
fast avt.lang.DebugInfo$getSourceFileNameLength$long$, \
sourceFileNamePointer, long
fenter
mov r00q, [.sourceFileNamePointer]
movzx r00d, word [r00+$00]
fleave
end if ; </fold>
if(used avt.lang.DebugInfo$getMethodNameLength$long$) ; <fold returns int>
fast avt.lang.DebugInfo$getMethodNameLength$long$, \
methodNamePointer, long
fenter
mov r00q, [.methodNamePointer]
movzx r00d, byte [r00+$00]
fleave
end if ; </fold>
if(used avt.lang.DebugInfo$getLineNumber$long$) ; <fold returns int>
fast avt.lang.DebugInfo$getLineNumber$long$, \
debugInfoEntryPointer, long
fenter
mov r00q, [.debugInfoEntryPointer]
mov r00d, [r00+$0c]
fleave
end if ; </fold>
if(used avt.lang.DebugInfo$getDebugInfoEntryPointer$long$) ; <fold returns long>
fast avt.lang.DebugInfo$getDebugInfoEntryPointer$long$, \
codePointer, long
fenter
mov r00q, [.codePointer]
lea r08q, [dbgi$ient]
lea r09q, [dbgi$ient.$iend$]
.L.0000: movsxd r01q, [r08+$00]
lea r01q, [r08+r01*1+$00]
cmp r00q, r01q
jl .L.0001
mov r02d, [r08+$04]
lea r02q, [r01+r02*1+$00]
cmp r00q, r02q
jge .L.0001
lea r00q, [r08+$00]
freturn
.L.0001: lea r08q, [r08+$20]
cmp r08q, r09q
jl .L.0000
xor r00q, r00q
fleave
end if ; </fold>
if(used avt.lang.DebugInfo$getMethodNamePointer$long$) ; <fold returns long>
fast avt.lang.DebugInfo$getMethodNamePointer$long$, \
debugInfoEntryPointer, long
fenter
mov r02q, [.debugInfoEntryPointer]
movsxd r01q, [r02+$14]
lea r00q, [r02+r01*1+$00]
fleave
end if ; </fold>
if(used avt.lang.DebugInfo$getSourceFileNamePointer$long$) ; <fold returns long>
fast avt.lang.DebugInfo$getSourceFileNamePointer$long$, \
debugInfoEntryPointer, long
fenter
mov r02q, [.debugInfoEntryPointer]
movsxd r01q, [r02+$08]
lea r00q, [r02+r01*1+$00]
fleave
end if ; </fold>
if(used avt.lang.DebugInfo$getEnclosingClass$long$) ; <fold returns avt.lang.Class>
fast avt.lang.DebugInfo$getEnclosingClass$long$, \
debugInfoEntryPointer, long
fenter
mov r02q, [.debugInfoEntryPointer]
movsxd r01q, [r02+$10]
lea r00q, [r02+r01*1+$00]
incrcoth r00q
fleave
end if ; </fold>
; </fold>
