- Do not initialize/finalize resourcestrings in objpas.

  + Finalize resourcestrings in gettext.

git-svn-id: trunk@5640 -

fcl/inc/gettext.pp

@@ -332,4 +332,6 @@ begin
   end;
 end;
 
+finalization
+  finalizeresourcetabels;
 end.

rtl/objpas/objpas.pp

@@ -75,6 +75,7 @@ unit objpas;
 
    Function Hash(S : AnsiString) : LongWord;
    Procedure ResetResourceTables;
+   Procedure FinalizeResourceTables;
    Procedure SetResourceStrings (SetFunction :  TResourceIterator;arg:pointer);
    Procedure SetUnitResourceStrings (const UnitName:string;SetFunction :  TResourceIterator;arg:pointer);
 {$ifndef RESSTRSECTIONS}
@@ -509,7 +510,7 @@ end;
 
 
 Initialization
-  ResetResourceTables;
+{  ResetResourceTables;}
 finalization
   FinalizeResourceTables;
 end.