paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-26 03:59:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

added debugln in case BuildLazarus fails to help diagnose the exact problem

Browse Source 
git-svn-id: trunk@8783 -
This commit is contained in:
vincents 2006-02-20 19:02:08 +00:00
parent 7f659b2099
commit 87fb7cfa39
1 changed files with 20 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
ide/main.pp
View File

@ -7643,7 +7643,10 @@ begin
'',EnvironmentOptions.CompilerFilename, '',EnvironmentOptions.CompilerFilename,
EnvironmentOptions.MakeFilename, EnvironmentOptions.MakeFilename,
Flags+[blfWithoutLinkingIDE]); Flags+[blfWithoutLinkingIDE]);
if Result<>mrOk then exit; if Result<>mrOk then begin
DebugLn('TMainIDE.DoBuildLazarus: Build Lazarus without linking failed.');
exit;
end;
// then compile the IDE // then compile the IDE
if ([blfWithStaticPackages,blfOnlyIDE]*Flags=[]) if ([blfWithStaticPackages,blfOnlyIDE]*Flags=[])
@ -7655,11 +7658,17 @@ begin
or MiscellaneousOptions.BuildLazOpts.WithStaticPackages then begin or MiscellaneousOptions.BuildLazOpts.WithStaticPackages then begin
// compile auto install static packages // compile auto install static packages
Result:=PkgBoss.DoCompileAutoInstallPackages([]); Result:=PkgBoss.DoCompileAutoInstallPackages([]);
if Result<>mrOk then exit; if Result<>mrOk then begin
DebugLn('TMainIDE.DoBuildLazarus: Compile AutoInstall Packages failed.');
exit;
end;
// create uses section addition for lazarus.pp // create uses section addition for lazarus.pp
Result:=PkgBoss.DoSaveAutoInstallConfig; Result:=PkgBoss.DoSaveAutoInstallConfig;
if Result<>mrOk then exit; if Result<>mrOk then begin
DebugLn('TMainIDE.DoBuildLazarus: Save AutoInstall Config failed.');
exit;
end;
// create inherited compiler options // create inherited compiler options
PkgOptions:=PkgBoss.DoGetIDEInstallPackageOptions(InheritedOptionStrings); PkgOptions:=PkgBoss.DoGetIDEInstallPackageOptions(InheritedOptionStrings);
@ -7675,14 +7684,20 @@ begin
EnvironmentOptions.LazarusDirectory, EnvironmentOptions.LazarusDirectory,
InheritedOptionStrings[icoUnitPath], InheritedOptionStrings[icoUnitPath],
CompiledUnitExt,'IDE'); CompiledUnitExt,'IDE');
if Result<>mrOk then exit; if Result<>mrOk then begin
DebugLn('TMainIDE.DoBuildLazarus: Check UnitPath for ambiguous pascal files failed.');
exit;
end;
end; end;
// save extra options // save extra options
IDEBuildFlags:=Flags+[blfOnlyIDE]; IDEBuildFlags:=Flags+[blfOnlyIDE];
Result:=SaveIDEMakeOptions(MiscellaneousOptions.BuildLazOpts, Result:=SaveIDEMakeOptions(MiscellaneousOptions.BuildLazOpts,
MacroList,PkgOptions,IDEBuildFlags); MacroList,PkgOptions,IDEBuildFlags);
if Result<>mrOk then exit; if Result<>mrOk then begin
DebugLn('TMainIDE.DoBuildLazarus: Save IDEMake options failed.');
exit;
end;
// make ide // make ide
SourceNotebook.ClearErrorLines; SourceNotebook.ClearErrorLines;