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

* Write byte dyn array

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-03-17 17:16:04 +01:00
parent 5e641960ac
commit 98f6c64f82
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/wpobase.pas
View File

@ -822,7 +822,7 @@ implementation
calledentries:=tbitset.create_bytesize(len); calledentries:=tbitset.create_bytesize(len);
if (len <> calledentries.datasize) then if (len <> calledentries.datasize) then
internalerror(2009060301); internalerror(2009060301);
ppufile.readdata(calledentries.data^,len); ppufile.readdata(calledentries.data);
end; end;
@ -837,7 +837,7 @@ implementation
begin begin
ppufile.putderef(objdefderef); ppufile.putderef(objdefderef);
ppufile.putlongint(calledentries.datasize); ppufile.putlongint(calledentries.datasize);
ppufile.putdata(calledentries.data^,calledentries.datasize); ppufile.putdata(calledentries.data);
end; end;