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

* support writing more than 1024 zeros in tobjectwriter.writezeros

Browse Source 
git-svn-id: trunk@31379 -
This commit is contained in:
nickysn 2015-08-24 01:09:53 +00:00
parent fa8841d575
commit 368ba47d6e
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/owbase.pas
View File

@ -203,8 +203,17 @@ var
empty : array[0..1023] of byte; empty : array[0..1023] of byte;
begin begin
if l>sizeof(empty) then if l>sizeof(empty) then
internalerror(200404081); begin
if l>0 then fillchar(empty,sizeof(empty),0);
while l>sizeof(empty) do
begin
Write(empty,sizeof(empty));
Dec(l,sizeof(empty));
end;
if l>0 then
Write(empty,l);
end
else if l>0 then
begin begin
fillchar(empty,l,0); fillchar(empty,l,0);
Write(empty,l); Write(empty,l);