hedgewars/uMisc.pas
changeset 12621 d972b31f8881
parent 11823 0fba6cb098a1
child 12855 1b2b84315d27
child 14808 9443dc6663ba
equal deleted inserted replaced
12620:22bbf0392b71 12621:d972b31f8881
   162 {$IOCHECKS OFF}
   162 {$IOCHECKS OFF}
   163 Assign(f, image^.filename);
   163 Assign(f, image^.filename);
   164 Rewrite(f, 1);
   164 Rewrite(f, 1);
   165 if IOResult = 0 then
   165 if IOResult = 0 then
   166     begin
   166     begin
       
   167     writeResult:= 0; // suppress fpc hint
   167     BlockWrite(f, head, sizeof(head), writeResult);
   168     BlockWrite(f, head, sizeof(head), writeResult);
   168     BlockWrite(f, image^.buffer^, size, writeResult);
   169     BlockWrite(f, image^.buffer^, size, writeResult);
   169     Close(f);
   170     Close(f);
   170     end
   171     end
   171 else
   172 else