소스 검색

* Some fixes in fpdoc generation

git-svn-id: trunk@47610 -
(cherry picked from commit c7383e54cfec6f49d14cb23ae66936a02b32e470)
michael 4 년 전
부모
커밋
8647d8b45e
1개의 변경된 파일4개의 추가작업 그리고 2개의 파일을 삭제
  1. 4 2
      packages/fpmkunit/src/fpmkunit.pp

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

@@ -4244,13 +4244,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;