paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 17:29:11 +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

6
rtl/z80/z80.inc
View File

@ -56,11 +56,10 @@ 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)
bit 7, b bit 7, b
@ -83,7 +82,6 @@ loop:
cp a, b cp a, b
jp NZ, loop jp NZ, loop
skip: skip:
end;
end; end;