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); dubProcOutput(proc);
msgs := getMessageDisplay; msgs := getMessageDisplay;
prjname := shortenPath(filename); prjname := shortenPath(filename);
fCompiled := fDubProc.ExitCode = 0; fCompiled := fDubProc.ExitStatus = 0;
if fCompiled then if fCompiled then
msgs.message(prjname + ' has been successfully compiled', msgs.message(prjname + ' has been successfully compiled',
self as ICECommonProject, amcProj, amkInf) self as ICECommonProject, amcProj, amkInf)

4
src/ce_libmaneditor.pas
View File

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

8
src/ce_main.pas
View File

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

10
src/ce_nativeproject.pas
View File

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