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

Fix compilation of m68k-linux rtl with -dFPC_USE_LIBC

Browse Source 
(cherry picked from commit 870d612e15)
This commit is contained in:
Pierre Muller 2022-06-08 00:20:57 +02:00
parent 07e3224feb
commit db50354ac6
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/m68k/m68k.inc
View File

@ -130,6 +130,7 @@ asm
end;
{$ifndef FPC_SYSTEM_HAS_FILLCHAR}
{$define FPC_SYSTEM_HAS_FILLCHAR}
procedure FillChar(var x; count : longint; value : byte); assembler; register; nostackframe;
asm
@ -258,7 +259,7 @@ asm
bne @LfillByte
@Lquit:
end;
{$endif ndef FPC_SYSTEM_HAS_FILLCHAR}
{$ifdef dummy}
{ procedure strcopy(dstr,sstr : pointer;len : longint);[public,alias: 'STRCOPY'];}
@ -394,6 +395,7 @@ end;
{$endif dummy}
{$ifndef FPC_SYSTEM_HAS_MOVE}
{$define FPC_SYSTEM_HAS_MOVE}
procedure move(const source;var dest;count : longint); assembler;
{ base pointer+8 = source }
@ -446,6 +448,7 @@ asm
{ end fast loop mode }
@LMOVE5:
end;
{$endif ndef FPC_SYSTEM_HAS_MOVE}
{$ifdef CPUM68K_HAS_UNALIGNED}