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

fcl-passrc: paswrite: write interfaces GUID

Browse Source 
git-svn-id: trunk@36615 -
This commit is contained in:
maciej-izak 2017-06-29 12:39:46 +00:00
parent 4001435454
commit 584ef096a0
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -243,6 +243,11 @@ begin
wrtln(')') wrtln(')')
else else
wrtln; wrtln;
if AClass.ObjKind = okInterface then
if Assigned(AClass.GUIDExpr) then
wrtln('['+AClass.InterfaceGUID+']');
IncIndent; IncIndent;
LastVisibility := visDefault; LastVisibility := visDefault;
for i := 0 to AClass.Members.Count - 1 do for i := 0 to AClass.Members.Count - 1 do