diff --git a/compiler/ppu.pas b/compiler/ppu.pas
index 6964ca38f9..3946151c38 100644
--- a/compiler/ppu.pas
+++ b/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);