paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 01:39: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

42
rtl/z80/z80.inc
View File

@ -56,34 +56,32 @@ end;
{$define FPC_SYSTEM_HAS_FILLCHAR}
Procedure FillChar(var x;count:SizeInt;value:byte);
Procedure FillChar(var x;count:SizeInt;value:byte);assembler;
label
skip, loop;
begin
asm
ld c, (count)
ld b, (count+1)
bit 7, b
jp NZ, skip
asm
ld c, (count)
ld b, (count+1)
bit 7, b
jp NZ, skip
ld a, b
or a, c
jp Z, skip
ld a, b
or a, c
jp Z, skip
ld e, (value)
ld a, 0
ld l, (x)
ld h, (x+1)
ld e, (value)
ld a, 0
ld l, (x)
ld h, (x+1)
loop:
ld (hl), e
inc hl
dec bc
cp a, c
jp NZ, loop
cp a, b
jp NZ, loop
ld (hl), e
inc hl
dec bc
cp a, c
jp NZ, loop
cp a, b
jp NZ, loop
skip:
end;
end;