paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-06 00:47:16 +01:00
Code Issues Packages Projects Releases Wiki Activity

* because EXEFile was changed into an ansistring, @EXEFile was wrong, fixed, resolves #9057

Browse Source 
git-svn-id: trunk@8854 -
This commit is contained in:
florian 2007-10-19 21:39:16 +00:00
parent 4b172f5973
commit 1b554f08ce
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/fpmrun.inc
View File

@ -180,6 +180,7 @@ procedure TIDEApp.DoRun;
var
RunDirect : boolean;
oldcurrdir : string;
s : shortstring;
begin
{$ifndef NODEBUG}
if not assigned(Debugger) or not Debugger^.HasExe or not Debugger^.IsRunning then
@ -207,9 +208,10 @@ begin
ErrorBox(msg_nothingtorun,nil);
Exit;
end;
s:=EXEFile;
if not ExistsFile(ExeFile) then
begin
MsgParms[1].Ptr:=@EXEFile;
MsgParms[1].Ptr:=@s;
ErrorBox(msg_invalidfilename,@MsgParms);
Exit;
end;
@ -256,15 +258,17 @@ begin
{ In case we have something that the compiler touched }
AskToReloadAllModifiedFiles;
LastExitCode:=ExecuteResult;
s:=EXEFile;
If IOStatus<>0 then
begin
MsgParms[1].Ptr:=@EXEFile;
MsgParms[1].Ptr:=@s;
MsgParms[2].long:=IOStatus;
InformationBox(msg_programnotrundoserroris,@MsgParms);
end
else If LastExitCode<>0 then
begin
MsgParms[1].Ptr:=@EXEFile;
MsgParms[1].Ptr:=@s;
MsgParms[2].long:=LastExitCode;
InformationBox(msg_programfileexitedwithexitcode,@MsgParms);
end;