pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Free WST's generated record RTTI

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@911 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2009-07-16 17:36:49 +00:00
parent f597caeb28
commit 173d32bb05
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
wst/trunk/record_rtti.pas
View File

@@ -351,7 +351,7 @@ end;
procedure finalize_record_rtti(); procedure finalize_record_rtti();
begin begin
{$IFDEF WST_RECORD_RTTI} {$IFDEF WST_RECORD_RTTI}
if ( RawTypeInfoList = nil ) then begin if ( RawTypeInfoList <> nil ) then begin
while ( RawTypeInfoList.Count > 0 ) do begin while ( RawTypeInfoList.Count > 0 ) do begin
FreeRawTypeInfo(PTypeInfo(RawTypeInfoList.Items[0])); FreeRawTypeInfo(PTypeInfo(RawTypeInfoList.Items[0]));
RawTypeInfoList.Delete(0); RawTypeInfoList.Delete(0);