paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-17 17:18:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix use of defines

Browse Source 
git-svn-id: trunk@45453 -
This commit is contained in:
michael 2020-05-21 08:59:56 +00:00
parent 56632b720c
commit a409f63a55
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
utils/fpdoc/mkfpdoc.pp
View File

@ -229,6 +229,7 @@ begin
Finally Finally
Free; Free;
end; end;
Writeln('Content file : ',APackage.ContentFile);
if Length(APackage.ContentFile) > 0 then if Length(APackage.ContentFile) > 0 then
Engine.WriteContentFile(APackage.ContentFile); Engine.WriteContentFile(APackage.ContentFile);
end; end;
@ -274,7 +275,7 @@ begin
if FProcessedUnits.IndexOf(Cmd)=-1 then if FProcessedUnits.IndexOf(Cmd)=-1 then
begin begin
FProcessedUnits.Add(Cmd); FProcessedUnits.Add(Cmd);
ParseSource(Engine,Cmd+' '+Arg, Options.OSTarget, Options.CPUTarget,[poUseStreams,poSkipDefaultDefs]); ParseSource(Engine,Cmd+' '+Arg, Options.OSTarget, Options.CPUTarget,[poUseStreams]);
end; end;
except except
on E: EParserError do on E: EParserError do