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

* ce compilation fixed

Browse Source 
git-svn-id: trunk@6457 -
This commit is contained in:
florian 2007-02-12 18:39:39 +00:00
parent cf6f8efacf
commit b5b86f6d73
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/arm/arm.inc
View File

@ -139,7 +139,9 @@ asm
end; end;
{$ifndef FPC_SYSTEM_HAS_MOVE}
{$define FPC_SYSTEM_HAS_MOVE} {$define FPC_SYSTEM_HAS_MOVE}
{$define FPC_SYSTEM_FPC_MOVE}
procedure Move_pld(const source;var dest;count:longint);assembler;nostackframe; procedure Move_pld(const source;var dest;count:longint);assembler;nostackframe;
asm asm
pld [r0] pld [r0]
@ -284,6 +286,7 @@ asm
.long moveproc .long moveproc
end; end;
{$endif FPC_SYSTEM_HAS_MOVE}
var var
fpc_system_lock: longint; export name 'fpc_system_lock'; fpc_system_lock: longint; export name 'fpc_system_lock';
@ -399,7 +402,6 @@ begin
InterLockedIncrement(l); InterLockedIncrement(l);
end; end;
procedure fpc_cpucodeinit; procedure fpc_cpucodeinit;
begin begin
cpu_has_edsp:=true; cpu_has_edsp:=true;
@ -408,8 +410,10 @@ begin
pld [r0] pld [r0]
end; end;
in_edsp_test:=false; in_edsp_test:=false;
{$ifdef FPC_SYSTEM_FPC_MOVE}
if cpu_has_edsp then if cpu_has_edsp then
moveproc:=@move_pld moveproc:=@move_pld
else else
moveproc:=@move_blended; moveproc:=@move_blended;
{$endif FPC_SYSTEM_FPC_MOVE}
end; end;