+ support writing more than 1024 zeros in TObjSection.WriteZeros

git-svn-id: trunk@31505 -

compiler/ogbase.pas

@@ -921,15 +921,23 @@ implementation
       var
         empty : array[0..1023] of byte;
       begin
+        result:=Size;
         if l>sizeof(empty) then
-          internalerror(200404082);
-        if l>0 then
           begin
-            fillchar(empty,l,0);
-            result:=Write(empty,l);
+            fillchar(empty,sizeof(empty),0);
+            while l>sizeof(empty) do
+              begin
+                Write(empty,sizeof(empty));
+                Dec(l,sizeof(empty));
+              end;
+            if l>0 then
+              Write(empty,l);
           end
-        else
-          result:=Size;
+        else if l>0 then
+          begin
+            fillchar(empty,l,0);
+            Write(empty,l);
+          end;
       end;