paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 22:58:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: run parameters: working directory: support macros

Browse Source 
git-svn-id: trunk@32608 -
This commit is contained in:
mattias 2011-10-01 22:06:35 +00:00
parent 7136bc4b7a
commit 5f36b89cef
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/instantfpc/instantfpcregisterlaz.pas
View File

@ -83,6 +83,7 @@ begin
AProject.LazCompilerOptions.SetAlternativeCompile(
'instantfpc --skip-run -B -gl "-Fu$(ProjUnitPath)" $Name($(ProjFile))',true);
AProject.RunParameters.HostApplicationFilename:='$(InstantFPCCache)/$NameOnly($(ProjFile))';
AProject.RunParameters.WorkingDirectory:='$(ProjPath)';
// create program source
NewSource:=TStringList.Create;

3
ide/debugmanager.pas
View File

@ -51,7 +51,7 @@ uses
// IDE
LazConf, CompilerOptions, EditorOptions, EnvironmentOpts, KeyMapping,
SourceEditor, ProjectDefs, Project, IDEProcs, InputHistory, Debugger,
CmdLineDebugger, IDEOptionDefs, LazarusIDEStrConsts,
CmdLineDebugger, IDEOptionDefs, LazarusIDEStrConsts, TransferMacros,
MainBar, MainIntf, MainBase, BaseBuildManager,
SourceMarks,
DebuggerDlg, Watchesdlg, BreakPointsdlg, BreakPropertyDlg, LocalsDlg, WatchPropertyDlg,
@ -2083,6 +2083,7 @@ begin
Project1.RunParameterOptions.AssignEnvironmentTo(FDebugger.Environment);
NewWorkingDir:=Project1.RunParameterOptions.WorkingDirectory;
GlobalMacroList.SubstituteStr(NewWorkingDir);
if (NewWorkingDir<>'') and (not DirectoryExistsUTF8(NewWorkingDir)) then begin
MessageDlg(lisUnableToRun,
Format(lisTheWorkingDirectoryDoesNotExistPleaseCheckTheWorki, ['"',