git-svn-id: trunk@40945 -
@@ -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;
@@ -398,7 +398,7 @@ begin
FEmittedList:=TStringList.Create;
FEmittedList.Sorted:=True;
- Module:=ParseSource(Self,AFileName,ATarget,ACPU);
+ Module:=ParseSource(Self,AFileName,ATarget,ACPU,[poUseStreams,poSkipDefaultDefs]);
If UpdateMode then
begin
N:=FindDocNode(Module);
@@ -274,7 +274,7 @@ begin
if FProcessedUnits.IndexOf(Cmd)=-1 then
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