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

* FillChar changed to a pure assembler procedure

Browse Source 
git-svn-id: branches/z80@44965 -
This commit is contained in:
nickysn 2020-04-21 16:48:54 +00:00
parent 7bfce62302
commit 2aa248bba2
1 changed files with 20 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/z80/z80.inc
View File

@ -56,10 +56,9 @@ end;
{$define FPC_SYSTEM_HAS_FILLCHAR} {$define FPC_SYSTEM_HAS_FILLCHAR}
Procedure FillChar(var x;count:SizeInt;value:byte); Procedure FillChar(var x;count:SizeInt;value:byte);assembler;
label label
skip, loop; skip, loop;
begin
asm asm
ld c, (count) ld c, (count)
ld b, (count+1) ld b, (count+1)
@ -84,7 +83,6 @@ loop:
jp NZ, loop jp NZ, loop
skip: skip:
end; end;
end;
{$IFNDEF INTERNAL_BACKTRACE} {$IFNDEF INTERNAL_BACKTRACE}