[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[tyndur-devel] [PATCH] Pascal-RTL: tar: Durch 512 teilbaren Dateigrößen



! Pascal-RTL: tar: Für genau durch 512 teilbare Dateien wurde ein Block
  zu viel aus dem Archiv gelesen.

Signed-off-by: Kevin Wolf <kevin@xxxxxxxxxx>
---
 src/modules/pas/lib/tar/tar.pas |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/src/modules/pas/lib/tar/tar.pas b/src/modules/pas/lib/tar/tar.pas
index dd49a05..ca3b12b 100644
--- a/src/modules/pas/lib/tar/tar.pas
+++ b/src/modules/pas/lib/tar/tar.pas
@@ -241,7 +241,7 @@ begin
     end;
 
     if (size mod TAR_BUFFER_SIZE) > 0 then begin
-        for i := 0 to ((size mod TAR_BUFFER_SIZE) div 512) do begin
+        for i := 0 to ((size mod TAR_BUFFER_SIZE - 1) div 512) do begin
             ReadNextBlock(i * 512);
         end;
         BlockWrite(outfile, buffer, size mod TAR_BUFFER_SIZE);
-- 
1.6.0.2