paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 22:06:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

Remove wrong close call after failed Reset

Browse Source 
git-svn-id: trunk@29200 -
This commit is contained in:
pierre 2014-12-04 13:10:08 +00:00
parent 6c6616ed14
commit 606b0a99c7
1 changed files with 17 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/inc/charset.pp
View File

@ -421,10 +421,7 @@ unit charset;
Assign(f,filename); Assign(f,filename);
Reset(f); Reset(f);
if (IOResult<>0) then if (IOResult<>0) then
begin
Close(f);
exit; exit;
end;
locSize:=FileSize(f); locSize:=FileSize(f);
if (locSize<SizeOf(TSerializedMapHeader)) then if (locSize<SizeOf(TSerializedMapHeader)) then
begin begin