paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-06 11:18:36 +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']; end ['R0'];
{$ifndef FPC_SYSTEM_HAS_FILLCHAR}
{$define FPC_SYSTEM_HAS_FILLCHAR} {$define FPC_SYSTEM_HAS_FILLCHAR}
Procedure FillChar(var x;count:longint;value:byte);assembler;nostackframe; Procedure FillChar(var x;count:longint;value:byte);assembler;nostackframe;
asm asm
@ -136,7 +137,7 @@ asm
strb r2,[r3],#1 strb r2,[r3],#1
mov pc,lr mov pc,lr
end; end;
{$endif FPC_SYSTEM_HAS_FILLCHAR}
{$ifndef FPC_SYSTEM_HAS_MOVE} {$ifndef FPC_SYSTEM_HAS_MOVE}
{$define FPC_SYSTEM_HAS_MOVE} {$define FPC_SYSTEM_HAS_MOVE}

2
rtl/arm/math.inc
View File

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