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

Using TPasTypeAliasType for alias type.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6676 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2018-10-06 12:16:20 +00:00
parent a3bcfc191f
commit 5844f338bf
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
wst/trunk/ws_helper/pascal_parser_intf.pas
View File

@ -520,7 +520,7 @@ function AddAlias(
ATable : TPasModule ATable : TPasModule
) : TPasTypeAliasType; ) : TPasTypeAliasType;
begin begin
Result := TPasTypeAliasType(AContainer.CreateElement(TPasAliasType,AName,ATable.InterfaceSection,visPublic,'',0)); Result := TPasTypeAliasType(AContainer.CreateElement(TPasTypeAliasType,AName,ATable.InterfaceSection,visPublic,'',0));
Result.DestType := AContainer.FindElementInModule(ABaseType,ATable) as TPasType; Result.DestType := AContainer.FindElementInModule(ABaseType,ATable) as TPasType;
if Assigned(Result.DestType) then if Assigned(Result.DestType) then
Result.DestType.AddRef(); Result.DestType.AddRef();