paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 08:38:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use HAS_MINMAX_INTRINSICS define

Browse Source
This commit is contained in:
florian 2025-01-06 15:19:34 +01:00
parent 14dbb7cb76
commit b4d3468f68
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/nflw.pas
View File

@ -1570,14 +1570,19 @@ implementation
include(flags,nf_internal);
end;
{$ifndef llvm}
{$if defined(i386) or defined(x86_64) or defined(xtensa) or defined(aarch64) or defined(riscv)}
{$define HAS_MINMAX_INTRINSICS}
{$endif defined(i386) or defined(x86_64) or defined(xtensa) or defined(aarch64) or defined(riscv)}
{$endif llvm}
function tifnode.internalsimplify(warn: boolean) : tnode;
{$if defined(i386) or defined(x86_64) or defined(xtensa) or defined(aarch64)}
{$if defined(HAS_MINMAX_INTRINSICS)}
var
thenstmnt, elsestmnt: tnode;
in_nr: tinlinenumber;
paratype: tdef;
{$endif defined(i386) or defined(x86_64) or defined(xtensa) or defined(aarch64)}
{$endif defined(HAS_MINMAX_INTRINSICS)}
begin
result:=nil;
{ optimize constant expressions }
@ -1604,8 +1609,7 @@ implementation
CGMessagePos(right.fileinfo,cg_w_unreachable_code);
end;
end;
{$ifndef llvm}
{$if defined(i386) or defined(x86_64) or defined(xtensa) or defined(aarch64)}
{$if defined(HAS_MINMAX_INTRINSICS)}
{ use min/max intrinsic?
convert (with <op> being <, >, >=, <=
if a <op> b then
@ -1733,8 +1737,7 @@ implementation
);
node_reset_pass1_write(Result);
end;
{$endif defined(i386) or defined(x86_64) or defined(xtensa) or defined(aarch64)}
{$endif llvm}
{$endif defined(HAS_MINMAX_INTRINSICS)}
end;