fcl-passrc: paswrite: write interfaces GUID

git-svn-id: trunk@36615 -

packages/fcl-passrc/src/paswrite.pp

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