Browse Source

* Some fixes in fpdoc generation

git-svn-id: trunk@47610 -
michael 4 years ago
parent
commit
c7383e54cf
1 changed files with 4 additions and 2 deletions
  1. 4 2
      packages/fpmkunit/src/fpmkunit.pp

+ 4 - 2
packages/fpmkunit/src/fpmkunit.pp

@@ -4278,13 +4278,15 @@ begin
   Addln('  <units>');
   SL:=TStringList.Create;
   For T in P.Targets do
-    if (T.TargetType=ttUnit) and (T.TargetSourceFileName<>'') then
+    if (T.TargetType in [ttUnit,ttImplicitUnit]) and (T.TargetSourceFileName<>'') then
       begin
       SL.Clear;
-      Writeln(T.Name,' -> ',T.TargetSourceFileName);
+      // Writeln(T.Name,' -> ',T.TargetSourceFileName);
       FN:=AddPathPrefix(P,T.TargetSourceFileName);
       SL.Add('-d'+CPUToString(Defaults.CPU));
       SL.Add('-d'+OSToString(Defaults.OS));
+      if Defaults.OS in AllUnixOSes then
+        SL.Add('-dUNIX');
       SL.Add('-M'+ModeToString(T.Mode));
       // Include Path
       L:=TUnsortedDuplicatesStringList.Create;