paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-01 16:44:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed arm-linux compilation with FPC_USE_LIBC

Browse Source 
git-svn-id: trunk@8809 -
This commit is contained in:
florian 2007-10-14 21:05:44 +00:00
parent c03f19fa50
commit 76b95fb058
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/arm/arm.inc
View File

@ -87,6 +87,7 @@ asm
end ['R0'];
{$ifndef FPC_SYSTEM_HAS_FILLCHAR}
{$define FPC_SYSTEM_HAS_FILLCHAR}
Procedure FillChar(var x;count:longint;value:byte);assembler;nostackframe;
asm
@ -136,7 +137,7 @@ asm
strb r2,[r3],#1
mov pc,lr
end;
{$endif FPC_SYSTEM_HAS_FILLCHAR}
{$ifndef FPC_SYSTEM_HAS_MOVE}
{$define FPC_SYSTEM_HAS_MOVE}

2
rtl/arm/math.inc
View File

@ -29,6 +29,7 @@
runerror(207);
result:=0;
end;
{$ifndef FPC_SYSTEM_HAS_SQRT}
{$define FPC_SYSTEM_HAS_SQRT}
function fpc_sqrt_real(d : ValReal) : ValReal;compilerproc;
begin
@ -36,6 +37,7 @@
runerror(207);
result:=0;
end;
{$endif FPC_SYSTEM_HAS_SQRT}
{$endif}
(* atn isn't supported by the linux fpe it seems
{$define FPC_SYSTEM_HAS_ARCTAN}