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

* LLVM does not have an intrinsic for int/frac, so don't replace frac with

Browse Source 
a call to runerror(207) there

git-svn-id: trunk@49337 -
This commit is contained in:
Jonas Maebe 2021-05-04 19:56:22 +00:00
parent 18a78020fa
commit 3c205f895c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/aarch64/math.inc
View File

@ -51,7 +51,7 @@
{$endif FPC_SYSTEM_HAS_SQRT} {$endif FPC_SYSTEM_HAS_SQRT}
{$ifndef VER3_2} {$if not defined(VER3_2) and not defined(CPULLVM)}
{$ifndef FPC_SYSTEM_HAS_FRAC} {$ifndef FPC_SYSTEM_HAS_FRAC}
{$define FPC_SYSTEM_HAS_FRAC} {$define FPC_SYSTEM_HAS_FRAC}
function fpc_frac_real(d : ValReal) : ValReal;compilerproc; function fpc_frac_real(d : ValReal) : ValReal;compilerproc;
@ -61,7 +61,7 @@
result:=0; result:=0;
end; end;
{$endif FPC_SYSTEM_HAS_FRAC} {$endif FPC_SYSTEM_HAS_FRAC}
{$endif VER3_2} {$endif not VER3_2 and not CPULLVM }
{$ifndef FPC_SYSTEM_HAS_INT} {$ifndef FPC_SYSTEM_HAS_INT}