fix projects output cant be run anymore when empty symstring

This commit is contained in:
Basile Burg 2014-08-25 08:48:25 +02:00
parent 30ddf44dfb
commit 116e8f5af0
1 changed files with 2 additions and 2 deletions

View File

@ -1371,10 +1371,10 @@ begin
repeat repeat
prm := ExtractDelimited(i, runArgs, [' ']); prm := ExtractDelimited(i, runArgs, [' ']);
prm := expandSymbolicString(prm); prm := expandSymbolicString(prm);
if prm <> '' then if prm <> '``' then
runProc.Parameters.AddText(prm); runProc.Parameters.AddText(prm);
Inc(i); Inc(i);
until prm = ''; until prm = '``';
procname := aProject.outputFilename; procname := aProject.outputFilename;
if not fileExists(procname) then if not fileExists(procname) then