Browse Source

* Fix bug #33681

git-svn-id: trunk@38896 -
michael 7 năm trước cách đây
mục cha
commit
7aa7f1b96f

+ 1 - 1
rtl/objpas/sysutils/sysencoding.inc

@@ -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);