paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 15:49:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* stop when fpmake fails

Browse Source 
git-svn-id: trunk@9355 -
This commit is contained in:
peter 2007-11-30 00:15:50 +00:00
parent cc014d6a65
commit f3b26a94fe
3 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
utils/fppkg/fppkg.pp
View File

@ -304,7 +304,7 @@ begin
except
On E : Exception do
begin
Writeln(StdErr,SErrRunning);
Writeln(StdErr,SErrException);
Writeln(StdErr,E.Message);
Halt(1);
end;

3
utils/fppkg/pkgfpmake.pp
View File

@ -249,7 +249,8 @@ begin
FPMakeBin:='fpmake'+ExeExt;
SetCurrentDir(PackageBuildPath);
Result:=ExecuteProcess(FPMakeBin,Command+OOptions);
if Result<>0 then
Error(SErrExecutionFPMake,[Command]);
end;

3
utils/fppkg/pkgmessages.pp
View File

@ -22,7 +22,8 @@ Resourcestring
SErrNoPackageSpecified = 'No package specified';
SErrNoPackageAvailable = 'Package %s %s is not available';
SErrOnlyLocalDir = 'The speficied command "%s" works only on current dir, not on a (remote) package';
SErrRunning = 'The FPC make tool encountered the following error:';
SErrExecutionFPMake = 'Execution of FPMake %s failed';
SErrException = 'The FPC Package tool encountered the following error:';
SErrActionAlreadyRegistered= 'Action "%s" is already registered';
SErrActionNotFound = 'Action "%s" is not supported';
SErrFailedToCompileFPCMake = 'Could not compile fpmake driver program';