;
; Реализация среды исполнения языка программирования
; Объектно-ориентированный продвинутый векторный транслятор
;
; Copyright © 2021, 2024 Малик Разработчик
;
; Это свободная программа: вы можете перераспространять ее и/или изменять
; ее на условиях Меньшей Стандартной общественной лицензии GNU в том виде,
; в каком она была опубликована Фондом свободного программного обеспечения;
; либо версии 3 лицензии, либо (по вашему выбору) любой более поздней версии.
;
; Эта программа распространяется в надежде, что она будет полезной,
; но БЕЗО ВСЯКИХ ГАРАНТИЙ; даже без неявной гарантии ТОВАРНОГО ВИДА
; или ПРИГОДНОСТИ ДЛЯ ОПРЕДЕЛЕННЫХ ЦЕЛЕЙ. Подробнее см. в Меньшей Стандартной
; общественной лицензии GNU.
;
; Вы должны были получить копию Меньшей Стандартной общественной лицензии GNU
; вместе с этой программой. Если это не так, см.
; <https://www.gnu.org/licenses/>.
;
; <fold приведение значения типа double* к другим типам>
if(used inst$castdtoi) ; <fold returns int>
proc inst$castdtoi
vcvttsd2si dsc0, xmm0
vmovd xmm1, dsc0
vmovq xmm2, [cons$double8.imax]
vcmpsd xmm2, xmm2, xmm0, $02
vcmpsd xmm3, xmm0, xmm0, $07
vpsrldq xmm2, xmm2, $04
vpsrldq xmm3, xmm3, $04
vpaddd xmm0, xmm1, xmm2
vpand xmm0, xmm0, xmm3
vmovd dsc0, xmm0
ret
end_proc
end if ; </fold>
if(used inst$castdtol) ; <fold returns long>
proc inst$castdtol
vcvttsd2si qsc0, xmm0
vmovq xmm1, qsc0
vmovq xmm2, [cons$double8.lmax]
vcmpsd xmm2, xmm2, xmm0, $02
vcmpsd xmm3, xmm0, xmm0, $07
vpaddq xmm0, xmm1, xmm2
vpand xmm0, xmm0, xmm3
vmovq qsc0, xmm0
ret
end_proc
end if ; </fold>
if(used inst$castd2toi2) ; <fold returns int2>
proc inst$castd2toi2
vcvttpd2dq xmm1, xmm0
vmovdqa xmm2, [cons$double8.imax]
vmovdqa xmm3, [cons$int8.m1_0]
vcmppd msk1, xmm2, xmm0, $02
vcmppd msk2, xmm0, xmm0, $07
vmovdqa32 xmm2{k1}{z}, xmm3
vmovdqa32 xmm3{k2}{z}, xmm3
vpaddd xmm0, xmm1, xmm2
vpand xmm0, xmm0, xmm3
ret
end_proc
end if ; </fold>
if(used inst$castd2tol2) ; <fold returns long2>
proc inst$castd2tol2
vcvttpd2qq xmm1, xmm0
vmovdqa xmm2, [cons$double8.lmax]
vcmppd xmm2, xmm2, xmm0, $02
vcmppd xmm3, xmm0, xmm0, $07
vpaddq xmm0, xmm1, xmm2
vpand xmm0, xmm0, xmm3
ret
end_proc
end if ; </fold>
if(used inst$castd4toi4) ; <fold returns int4>
proc inst$castd4toi4
vcvttpd2dq xmm1, ymm0
vmovdqa ymm2, [cons$double8.imax]
vmovdqa xmm3, [cons$int8.m1]
vcmppd msk1, ymm2, ymm0, $02
vcmppd msk2, ymm0, ymm0, $07
vmovdqa32 xmm2{k1}{z}, xmm3
vmovdqa32 xmm3{k2}{z}, xmm3
vpaddd xmm0, xmm1, xmm2
vpand xmm0, xmm0, xmm3
ret
end_proc
end if ; </fold>
if(used inst$castd4tol4) ; <fold returns long4>
proc inst$castd4tol4
vcvttpd2qq ymm1, ymm0
vmovdqa ymm2, [cons$double8.lmax]
vcmppd ymm2, ymm2, ymm0, $02
vcmppd ymm3, ymm0, ymm0, $07
vpaddq ymm0, ymm1, ymm2
vpand ymm0, ymm0, ymm3
ret
end_proc
end if ; </fold>
if(used inst$castd8toi8) ; <fold returns int8>
proc inst$castd8toi8
vcvttpd2dq ymm1, zmm0
vmovdqa64 zmm2, [cons$double8.imax]
vmovdqa ymm3, [cons$int8.m1]
vcmppd msk1, zmm2, zmm0, $02
vcmppd msk2, zmm0, zmm0, $07
vmovdqa32 ymm2{k1}{z}, ymm3
vmovdqa32 ymm3{k2}{z}, ymm3
vpaddd ymm0, ymm1, ymm2
vpand ymm0, ymm0, ymm3
ret
end_proc
end if ; </fold>
if(used inst$castd8tol8) ; <fold returns long8>
proc inst$castd8tol8
vcvttpd2qq zmm1, zmm0
vmovdqa64 zmm2, [cons$double8.lmax]
vmovdqa64 zmm3, [cons$long8.m1]
vcmppd msk1, zmm2, zmm0, $02
vcmppd msk2, zmm0, zmm0, $07
vmovdqa64 zmm2{k1}{z}, zmm3
vmovdqa64 zmm3{k2}{z}, zmm3
vpaddq zmm0, zmm1, zmm2
vpandq zmm0, zmm0, zmm3
ret
end_proc
end if ; </fold>
; </fold>
