paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 20:01:27 +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 interface
uses uses
constexp,entfile; globtype,constexp,entfile;
{ Also write the ppu if only crc if done, this can be used with ppudump to { Also write the ppu if only crc if done, this can be used with ppudump to
see the differences between the intf and implementation } see the differences between the intf and implementation }
@ -167,6 +167,7 @@ type
function createfile:boolean;override; function createfile:boolean;override;
procedure writeheader;override; procedure writeheader;override;
procedure putdata(const b;len:integer);override; procedure putdata(const b;len:integer);override;
procedure putdata(b : tbytedynarray);
end; end;
implementation implementation
@ -522,6 +523,11 @@ begin
inc(entryidx,len);*) inc(entryidx,len);*)
end; end;
procedure tppufile.putdata(b: tbytedynarray);
begin
putdata(b[0],length(b));
end;
function tppufile.getheadersize: longint; function tppufile.getheadersize: longint;
begin begin
result:=sizeof(header); result:=sizeof(header);