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

* Fix bug #33681

Browse Source 
git-svn-id: trunk@38896 -
This commit is contained in:
michael 2018-05-03 07:09:05 +00:00
parent a6ec8c5e97
commit 7aa7f1b96f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/sysutils/sysencoding.inc
View File

@ -148,7 +148,7 @@ begin
try try
{$endif} {$endif}
for E := Low(FStandardEncodings) to High(FStandardEncodings) do for E := Low(FStandardEncodings) to High(FStandardEncodings) do
FStandardEncodings[E].Free; FreeAndNil(FStandardEncodings[E]);
{$ifdef FPC_HAS_FEATURE_THREADING} {$ifdef FPC_HAS_FEATURE_THREADING}
finally finally
LeaveCriticalSection(FLock); LeaveCriticalSection(FLock);