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

* Allow to write tbytedynarray

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-03-17 17:15:38 +01:00
parent 58df41dcf0
commit 5e641960ac
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ppu.pas
View File

@ -26,7 +26,7 @@ unit ppu;
interface
uses
constexp,entfile;
globtype,constexp,entfile;
{ Also write the ppu if only crc if done, this can be used with ppudump to
see the differences between the intf and implementation }
@ -167,6 +167,7 @@ type
function createfile:boolean;override;
procedure writeheader;override;
procedure putdata(const b;len:integer);override;
procedure putdata(b : tbytedynarray);
end;
implementation
@ -522,6 +523,11 @@ begin
inc(entryidx,len);*)
end;
procedure tppufile.putdata(b: tbytedynarray);
begin
putdata(b[0],length(b));
end;
function tppufile.getheadersize: longint;
begin
result:=sizeof(header);