paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-25 03:29:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug id #37513 : type helper declaration incomplete

Browse Source 
git-svn-id: trunk@46320 -
This commit is contained in:
michael 2020-08-08 09:12:37 +00:00
parent a78d5ba112
commit b68c68b48b
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-passrc/src/paswrite.pp
View File

@ -633,6 +633,14 @@ begin
okRecordHelper: Add('record helper');
okClassHelper: Add('class helper');
end;
if (AClass.ObjKind in [okTypeHelper,okRecordHelper,okClassHelper]) then
begin
if not Assigned(AClass.HelperForType) then
Add(' for unknowntype')
else
Add(' for '+AClass.HelperForType.SafeName)
end;
if AClass.IsForward then
exit;
if (AClass.ObjKind=okClass) and (ACLass.ExternalName<>'') and NotOption(woNoExternalClass) then