;
; Реализация среды исполнения языка программирования
; Объектно-ориентированный продвинутый векторный транслятор
;
; Copyright © 2021, 2024 Малик Разработчик
;
; Это свободная программа: вы можете перераспространять ее и/или изменять
; ее на условиях Меньшей Стандартной общественной лицензии GNU в том виде,
; в каком она была опубликована Фондом свободного программного обеспечения;
; либо версии 3 лицензии, либо (по вашему выбору) любой более поздней версии.
;
; Эта программа распространяется в надежде, что она будет полезной,
; но БЕЗО ВСЯКИХ ГАРАНТИЙ; даже без неявной гарантии ТОВАРНОГО ВИДА
; или ПРИГОДНОСТИ ДЛЯ ОПРЕДЕЛЕННЫХ ЦЕЛЕЙ. Подробнее см. в Меньшей Стандартной
; общественной лицензии GNU.
;
; Вы должны были получить копию Меньшей Стандартной общественной лицензии GNU
; вместе с этой программой. Если это не так, см.
; <https://www.gnu.org/licenses/>.
;
; <fold запись полей инстанций>
; <fold приватные макросы — должны использоваться только этим текстом исходного кода>
macro _wrif {
mov r01q, [rsp+$00]
_chknull r01q
__cltag_x $00
__pop $01
}
macro _wrifr {
mov r01q, [rsp+$00]
_chknullr r01q
__cltag_x $00
__pop $01
}
macro _wrife {
mov r01q, [rsp+$00]
_chknulle r01q
__cltag_x $00
__pop $01
}
; </fold>
; <fold объектная ссылка на стаке, значение на аккумуляторе>
macro wrifr fieldFullName* {
local .L.0000
_wrifr
test qsc0, qsc0
jz .L.0000
incrcobj qsc0
decrcoth qsc0
.L.0000: xchg qword [r01+fieldFullName], qsc0
tstdecrcobj qsc0
decrcoth r01q
}
macro wrifc fieldFullName* {
_wrif
mov word [r01+fieldFullName], wsc0
decrcoth r01q
}
macro wrife fieldFullName* {
_wrife
fstp tbyte [r01+fieldFullName]
decrcoth r01q
}
macro wrifd fieldFullName* {
_wrif
vmovq qword [r01+fieldFullName], xmm0
decrcoth r01q
}
macro wrifd2 fieldFullName* {
_wrif
vmovdqa xword [r01+fieldFullName], xmm0
decrcoth r01q
}
macro wrifd4 fieldFullName* {
_wrif
vmovdqu yword [r01+fieldFullName], ymm0
decrcoth r01q
}
macro wrifd8 fieldFullName* {
_wrif
vmovdqu64 zword [r01+fieldFullName], zmm0
decrcoth r01q
}
macro wriff fieldFullName* {
_wrif
vmovd dword [r01+fieldFullName], xmm0
decrcoth r01q
}
macro wriff2 fieldFullName* {
_wrif
vmovq qword [r01+fieldFullName], xmm0
decrcoth r01q
}
macro wriff4 fieldFullName* {
_wrif
vmovdqa xword [r01+fieldFullName], xmm0
decrcoth r01q
}
macro wriff8 fieldFullName* {
_wrif
vmovdqu yword [r01+fieldFullName], ymm0
decrcoth r01q
}
macro wrifb fieldFullName* {
_wrif
mov byte [r01+fieldFullName], bsc0
decrcoth r01q
}
macro wrifb2 fieldFullName* {
_wrif
vmovd dsc0, xmm0
mov word [r01+fieldFullName], wsc0
decrcoth r01q
}
macro wrifb4 fieldFullName* {
_wrif
vmovd dword [r01+fieldFullName], xmm0
decrcoth r01q
}
macro wrifb8 fieldFullName* {
_wrif
vmovq qword [r01+fieldFullName], xmm0
decrcoth r01q
}
macro wrifs fieldFullName* {
_wrif
mov word [r01+fieldFullName], wsc0
decrcoth r01q
}
macro wrifs2 fieldFullName* {
_wrif
vmovd dword [r01+fieldFullName], xmm0
decrcoth r01q
}
macro wrifs4 fieldFullName* {
_wrif
vmovq qword [r01+fieldFullName], xmm0
decrcoth r01q
}
macro wrifs8 fieldFullName* {
_wrif
vmovdqa xword [r01+fieldFullName], xmm0
decrcoth r01q
}
macro wrifi fieldFullName* {
_wrif
mov dword [r01+fieldFullName], dsc0
decrcoth r01q
}
macro wrifi2 fieldFullName* {
_wrif
vmovq qword [r01+fieldFullName], xmm0
decrcoth r01q
}
macro wrifi4 fieldFullName* {
_wrif
vmovdqa xword [r01+fieldFullName], xmm0
decrcoth r01q
}
macro wrifi8 fieldFullName* {
_wrif
vmovdqu yword [r01+fieldFullName], ymm0
decrcoth r01q
}
macro wrifl fieldFullName* {
_wrif
mov qword [r01+fieldFullName], qsc0
decrcoth r01q
}
macro wrifl2 fieldFullName* {
_wrif
vmovdqa xword [r01+fieldFullName], xmm0
decrcoth r01q
}
macro wrifl4 fieldFullName* {
_wrif
vmovdqu yword [r01+fieldFullName], ymm0
decrcoth r01q
}
macro wrifl8 fieldFullName* {
_wrif
vmovdqu64 zword [r01+fieldFullName], zmm0
decrcoth r01q
}
; </fold>
; </fold>