;
; Реализация среды исполнения языка программирования
; Объектно-ориентированный продвинутый векторный транслятор
;
; Copyright © 2021, 2024 Малик Разработчик
;
; Это свободная программа: вы можете перераспространять ее и/или изменять
; ее на условиях Меньшей Стандартной общественной лицензии GNU в том виде,
; в каком она была опубликована Фондом свободного программного обеспечения;
; либо версии 3 лицензии, либо (по вашему выбору) любой более поздней версии.
;
; Эта программа распространяется в надежде, что она будет полезной,
; но БЕЗО ВСЯКИХ ГАРАНТИЙ; даже без неявной гарантии ТОВАРНОГО ВИДА
; или ПРИГОДНОСТИ ДЛЯ ОПРЕДЕЛЕННЫХ ЦЕЛЕЙ. Подробнее см. в Меньшей Стандартной
; общественной лицензии GNU.
;
; Вы должны были получить копию Меньшей Стандартной общественной лицензии GNU
; вместе с этой программой. Если это не так, см.
; <https://www.gnu.org/licenses/>.
;
; <fold приведение значения типа float* к другим типам>
if(used inst$castftoi) ; <fold returns int>
proc inst$castftoi
vcvttss2si dsc0, xmm0
vmovd xmm1, dsc0
vmovd xmm2, [cons$float8.imax]
vcmpss xmm2, xmm2, xmm0, $02
vcmpss xmm3, xmm0, xmm0, $07
vpaddd xmm0, xmm1, xmm2
vpand xmm0, xmm0, xmm3
vmovd dsc0, xmm0
ret
end_proc
end if ; </fold>
if(used inst$castftol) ; <fold returns long>
proc inst$castftol
vcvtss2sd xmm0, xmm0, xmm0
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$castf2toi2) ; <fold returns int2>
proc inst$castf2toi2
vcvttps2dq xmm1, xmm0
vmovdqa xmm2, [cons$float8.imax]
vcmpps xmm2, xmm2, xmm0, $02
vcmpps xmm3, xmm0, xmm0, $07
vpaddd xmm0, xmm1, xmm2
vpand xmm0, xmm0, xmm3
ret
end_proc
end if ; </fold>
if(used inst$castf2tol2) ; <fold returns long2>
proc inst$castf2tol2
vcvtps2pd xmm0, xmm0
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$castf4toi4) ; <fold returns int4>
proc inst$castf4toi4
vcvttps2dq xmm1, xmm0
vmovdqa xmm2, [cons$float8.imax]
vcmpps xmm2, xmm2, xmm0, $02
vcmpps xmm3, xmm0, xmm0, $07
vpaddd xmm0, xmm1, xmm2
vpand xmm0, xmm0, xmm3
ret
end_proc
end if ; </fold>
if(used inst$castf4tol4) ; <fold returns long4>
proc inst$castf4tol4
vcvtps2pd ymm0, xmm0
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$castf8toi8) ; <fold returns int8>
proc inst$castf8toi8
vcvttps2dq ymm1, ymm0
vmovdqa ymm2, [cons$float8.imax]
vcmpps ymm2, ymm2, ymm0, $02
vcmpps ymm3, ymm0, ymm0, $07
vpaddd ymm0, ymm1, ymm2
vpand ymm0, ymm0, ymm3
ret
end_proc
end if ; </fold>
if(used inst$castf8tol8) ; <fold returns long8>
proc inst$castf8tol8
vcvtps2pd zmm0, ymm0
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>