Explorar o código

* Allow to write tbytedynarray

Michaël Van Canneyt hai 4 meses
pai
achega
5e641960ac
Modificáronse 1 ficheiros con 7 adicións e 1 borrados
  1. 7 1
      compiler/ppu.pas

+ 7 - 1
compiler/ppu.pas

@@ -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);