소스 검색

* Correct options for parsing

git-svn-id: trunk@40945 -
michael 6 년 전
부모
커밋
3355bc65b0
3개의 변경된 파일3개의 추가작업 그리고 3개의 파일을 삭제
  1. 1 1
      utils/fpdoc/dglobals.pp
  2. 1 1
      utils/fpdoc/makeskel.pp
  3. 1 1
      utils/fpdoc/mkfpdoc.pp

+ 1 - 1
utils/fpdoc/dglobals.pp

@@ -1267,7 +1267,7 @@ begin
   M:=CurModule;
   CurModule:=Nil;
   try
-    ParseSource(Self,AInputLine,AOSTarget,ACPUTarget,[poUseStreams]);
+    ParseSource(Self,AInputLine,AOSTarget,ACPUTarget,[poUseStreams,poSkipDefaultDefs]);
     Result:=CurModule;
   finally
     CurModule:=M;

+ 1 - 1
utils/fpdoc/makeskel.pp

@@ -398,7 +398,7 @@ begin
     FEmittedList:=TStringList.Create;
     FEmittedList.Sorted:=True;
     try
-      Module:=ParseSource(Self,AFileName,ATarget,ACPU);
+      Module:=ParseSource(Self,AFileName,ATarget,ACPU,[poUseStreams,poSkipDefaultDefs]);
       If UpdateMode then
         begin
         N:=FindDocNode(Module);

+ 1 - 1
utils/fpdoc/mkfpdoc.pp

@@ -274,7 +274,7 @@ begin
         if FProcessedUnits.IndexOf(Cmd)=-1 then
           begin
           FProcessedUnits.Add(Cmd);
-          ParseSource(Engine,Cmd+' '+Arg, Options.OSTarget, Options.CPUTarget);
+          ParseSource(Engine,Cmd+' '+Arg, Options.OSTarget, Options.CPUTarget,[poUseStreams,poSkipDefaultDefs]);
           end;
       except
         on E: EParserError do