Fixed FPC bug in "TFileStream.position"<>0 when setting size=0

PascalCoin · Mar 12, 2020 · 5616943 · 5616943
1 parent 0424a4f
commit 5616943
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/core/UNetProtocol.pas b/src/core/UNetProtocol.pas
@@ -1904,6 +1904,7 @@ procedure TNetData.GetNewBlockChainFromClient(Connection: TNetConnection;
             [i,High(chunks),Connection.ClientRemoteAddr]);
           TLog.NewLog(ltDebug,CT_LogSender,Format('Concatening chunk %d/%d',[i,High(chunks)]));
           safeboxStream.Size:=0;
+          safeboxStream.Position := 0; // Added caused by FPC 3.0.4 bug that does not update position auto when setting size=0 at a TFileStream
           chunk1.Position:=0;
           chunks[i].chunkStream.Position:=0;
           If Not TPCSafeBox.ConcatSafeBoxStream(chunk1,chunks[i].chunkStream,safeboxStream,errors) then begin