paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 14:29:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

Converter: Set IsConsoleApp in a different place to avoid AV.

Browse Source 
git-svn-id: trunk@29527 -
This commit is contained in:
juha 2011-02-13 15:05:15 +00:00
parent f4437ee29b
commit 29469237ae
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
converter/convertdelphi.pas
View File

@ -533,8 +533,10 @@ begin
fCTLink.AskAboutError:=Assigned(fOwnerConverter);
// Create a toold for missing units.
fUsedUnitsTool:=TUsedUnitsTool.Create(fCTLink, fOrigUnitFilename);
if Assigned(fOwnerConverter) then
if Assigned(fOwnerConverter) then begin
fUsedUnitsTool.CheckPackDepEvent:=@fOwnerConverter.CheckPackageDependency;
fUsedUnitsTool.IsConsoleApp:=fOwnerConverter.fIsConsoleApp;
end;
end;
function TConvertDelphiUnit.FixLfmFilename(ADfmFilename: string): TModalResult;
@ -1423,7 +1425,6 @@ var
Converter: TConvertDelphiUnit;
begin
Converter:=TConvertDelphiUnit.Create(Self, AUnitInfo.Filename,[]);
Converter.fUsedUnitsTool.IsConsoleApp:=fIsConsoleApp;
Converter.fUnitInfo:=AUnitInfo;
ConvUnits.Add(Converter);
Result:=Converter.CopyAndLoadFile;