hedgewars/uMisc.pas
branchqmlfrontend
changeset 12855 1b2b84315d27
parent 11828 a69124eb7ce7
parent 12621 d972b31f8881
--- a/hedgewars/uMisc.pas	Thu Aug 11 23:05:14 2016 +0300
+++ b/hedgewars/uMisc.pas	Sun Dec 17 00:09:24 2017 +0100
@@ -164,6 +164,7 @@
 Rewrite(f, 1);
 if IOResult = 0 then
     begin
+    writeResult:= 0; // suppress fpc hint
     BlockWrite(f, head, sizeof(head), writeResult);
     BlockWrite(f, image^.buffer^, size, writeResult);
     Close(f);