Avoid range check error in TObjData.writebytes overloads using dynamic arrays

compiler/ogbase.pas

@@ -1728,12 +1728,14 @@ implementation
 
     procedure TObjData.writebytes(const Data: TByteDynArray; len: TObjSectionOfs);
     begin
-      WriteBytes(Data[0],len);
+      if len>0 then
+        WriteBytes(Data[0],len);
     end;
 
     procedure TObjData.writebytes(const Data: TAnsiCharDynArray; len: TObjSectionOfs);
     begin
-      WriteBytes(Data[0],len);
+      if len>0 then
+        WriteBytes(Data[0],len);
     end;