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

* Changes in initialisation/finalisation for streaming support

Browse Source
This commit is contained in:
sg 2000-06-29 16:32:06 +00:00
parent 0916287bf7
commit c49ba5a565
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
fcl/linux/classes.pp
View File

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