瀏覽代碼

* Changes in initialisation/finalisation for streaming support

sg 25 年之前
父節點
當前提交
c49ba5a565
共有 1 個文件被更改,包括 6 次插入5 次删除
  1. 6 5
      fcl/linux/classes.pp

+ 6 - 5
fcl/linux/classes.pp

@@ -42,12 +42,10 @@ ClassAliasList : TStringList;
 
 
 initialization
-  ClassList := TThreadList.Create;
-  ClassAliasList := TStringList.Create;
+  CommonInit;
 
 finalization
-  ClassList.Free;
-  ClassAliasList.Free;
+  CommonCleanup;
 
   if ThreadsInited then
      DoneThreads;
@@ -55,7 +53,10 @@ finalization
 end.
 {
   $Log$
-  Revision 1.17  2000-06-27 17:17:34  lazarus
+  Revision 1.18  2000-06-29 16:32:06  sg
+  * Changes in initialisation/finalisation for streaming support
+
+  Revision 1.17  2000/06/27 17:17:34  lazarus
   Added code for registerclass, GetClass and RegisterClasses
   Shane