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

* Fix for path of executable

Browse Source
This commit is contained in:
pierre 1999-03-07 23:00:47 +00:00
parent 7fea4eedc9
commit c68c0562c2
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/text/fpcompil.pas
View File

@ -205,7 +205,10 @@ begin
end;
WriteSwitches(SwitchesPath);
MainFile:=FixFileName(FExpand(FileName));
EXEFile:=FixFileName(GetEXEPath+NameOf(MainFile)+ExeExt);
If GetEXEPath<>'' then
EXEFile:=FixFileName(GetEXEPath+NameOf(MainFile)+ExeExt)
else
EXEFile:=DirOf(MainFile)+NameOf(MainFile)+ExeExt;
{ Reset }
CtrlBreakHit:=false;
{ Show Program Info }
@ -276,7 +279,10 @@ end;
end.
{
$Log$
Revision 1.15 1999-03-01 15:41:50 peter
Revision 1.16 1999-03-07 23:00:47 pierre
* Fix for path of executable
Revision 1.15 1999/03/01 15:41:50 peter
+ Added dummy entries for functions not yet implemented
* MenuBar didn't update itself automatically on command-set changes
* Fixed Debugging/Profiling options dialog