From 0f55367c377d796ad833e799c88a4d0685c2770d Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sat, 24 Aug 2019 09:51:13 +0000
Subject: [PATCH] * Add FPC define, check for unit for short description

git-svn-id: trunk@42786 -
---
 utils/fpdoc/makeskel.pp | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/utils/fpdoc/makeskel.pp b/utils/fpdoc/makeskel.pp
index 5c71648235..23c3daf2d4 100644
--- a/utils/fpdoc/makeskel.pp
+++ b/utils/fpdoc/makeskel.pp
@@ -23,8 +23,7 @@ program MakeSkel;
 {$h+}
 
 uses
-  SysUtils, Classes, Gettext,
-  dGlobals, PasTree, PParser,PScanner;
+  SysUtils, Classes, Gettext, dGlobals, PasTree, PParser,PScanner;
 
 resourcestring
   STitle = 'MakeSkel - FPDoc skeleton XML description file generator';
@@ -235,7 +234,9 @@ Function TSkelEngine.WriteElement(Var F : Text;El : TPasElement; ADocNode : TDoc
   begin
     Result:=(APasElement.ClassType=TPasArgument) or
             (APasElement.ClassType=TPasResultElement) or
-            (APasElement.ClassType=TPasEnumValue);
+            (APasElement.ClassType=TPasEnumValue) or
+            (aPaselement.ClassType=TPasUsesUnit) or
+            ((APasElement.CLassType=TPasVariable) and (APasElement.Parent is TPasRecordType));
   end;
 
   Function IsTypeVarConst(APasElement : TPasElement) : Boolean;
@@ -398,7 +399,7 @@ begin
     FEmittedList:=TStringList.Create;
     FEmittedList.Sorted:=True;
     try
-      Module:=ParseSource (Self,AFileName,ATarget,ACPU,[poUseStreams,poSkipDefaultDefs]);
+      Module:=ParseSource (Self,AFileName+' -dFPC',ATarget,ACPU,[poUseStreams,poSkipDefaultDefs]);
       If UpdateMode then
         begin
         N:=FindDocNode(Module);