forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

revert canges made in 36d06688c8

This commit is contained in:
Basile Burg 2016-09-03 23:50:25 +02:00
parent 36d06688c8
commit 1f4fcd682e
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
4 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ce_dubproject.pas
View File

@ -567,7 +567,7 @@ begin
dubProcOutput(proc);
msgs := getMessageDisplay;
prjname := shortenPath(filename);
fCompiled := fDubProc.ExitCode = 0;
fCompiled := fDubProc.ExitStatus = 0;
if fCompiled then
msgs.message(prjname + ' has been successfully compiled',
self as ICECommonProject, amcProj, amkInf)

4
src/ce_libmaneditor.pas
View File

@ -449,7 +449,7 @@ begin
try
processOutputToStrings(dub, str);
while dub.Running do;
err := dub.ExitCode;
err := dub.ExitStatus;
for msg in str do
itf.message(msg, nil, amcMisc, amkAuto);
finally
@ -500,7 +500,7 @@ begin
try
processOutputToStrings(dub, str);
while dub.Running do ;
err := dub.ExitCode;
err := dub.ExitStatus;
for msg in str do
itf.message(msg, nil, amcMisc, amkAuto);
finally

8
src/ce_main.pas
View File

@ -2487,9 +2487,9 @@ begin
inph := EntitiesConnector.getSingleService('ICEProcInputHandler');
if (inph <> nil) then
(inph as ICEProcInputHandler).removeProcess(proc);
if (proc.ExitCode <> 0) then
if (proc.ExitStatus <> 0) then
fMsgs.message(format('error: the process (%s) has returned the signal %d',
[proc.Executable, proc.ExitCode]), fDoc, amcEdit, amkErr);
[proc.Executable, proc.ExitStatus]), fDoc, amcEdit, amkErr);
end;
procedure TCEMainForm.actSetRunnableSwExecute(Sender: TObject);
@ -2632,7 +2632,7 @@ begin
application.ProcessMessages;
if not asObj then
sysutils.DeleteFile(fname + objExt);
if (dmdProc.ExitCode = 0) then
if (dmdProc.ExitStatus = 0) then
begin
result := true;
fMsgs.message(shortenPath(fDoc.fileName, 25) + ' successfully compiled',
@ -2640,7 +2640,7 @@ begin
end
else begin
fMsgs.message(format('error: the process (%s) has returned the signal %d',
[dmdproc.Executable, dmdproc.ExitCode]), fDoc, amcEdit, amkErr);
[dmdproc.Executable, dmdproc.ExitStatus]), fDoc, amcEdit, amkErr);
fMsgs.message(shortenPath(fDoc.fileName, 25) + ' has not been compiled',
fDoc, amcEdit, amkErr);
end;

10
src/ce_nativeproject.pas
View File

@ -670,7 +670,7 @@ begin
processOutputToStrings(prc, lst);
while prc.Running do
sleep(1);
com := prc.ExitCode = 0;
com := prc.ExitStatus = 0;
for j := 0 to lst.Count -1 do
getMessageDisplay.message(lst[j], self as ICECommonProject, amcProj, amkAuto);
finally
@ -705,7 +705,7 @@ begin
if poUsePipes in prc.Options then
runProcOutput(prc);
finally
result := prc.ExitCode = 0;
result := prc.ExitStatus = 0;
prc.Free;
end;
end;
@ -849,9 +849,9 @@ begin
getprocInputHandler.removeProcess(TProcess(sender));
SetCurrentDirUTF8(fRunnerOldCwd);
//
if (proc.ExitCode <> 0) then
if (proc.ExitStatus <> 0) then
msgs.message(format('error: the process (%s) has returned the signal %d',
[proc.Executable, proc.ExitCode]), self as ICECommonProject, amcProj, amkErr);
[proc.Executable, proc.ExitStatus]), self as ICECommonProject, amcProj, amkErr);
end;
end;
@ -880,7 +880,7 @@ begin
compProcOutput(proc);
msgs := getMessageDisplay;
prjname := shortenPath(filename);
fCompiled := fCompilProc.ExitCode = 0;
fCompiled := fCompilProc.ExitStatus = 0;
updateOutFilename;
if fCompiled then
msgs.message(prjname + ' has been successfully compiled',