paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 09:10:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Check for ppudump in the same folder as pas2jni only if there is a path to pas2jni executable is available in ParamStr(0).

Browse Source 
git-svn-id: trunk@24326 -
This commit is contained in:
yury 2013-04-26 08:16:54 +00:00
parent 3d7033d81e
commit 226fb92d61
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
utils/pas2jni/ppuparser.pas
View File

@ -176,11 +176,16 @@ begin
p:=TProcess.Create(nil);
try
if ppudumpprog = '' then begin
ppudumpprog:='ppudump';
// Check for ppudump in the same folder as pas2jni
ppudumpprog:=ExtractFilePath(ParamStr(0)) + 'ppudump' + ExtractFileExt(ParamStr(0));
if not FileExists(ppudumpprog) then
ppudumpprog:='ppudump';
s:=ExtractFilePath(ParamStr(0));
if s <> '' then begin
s:=s + ppudumpprog + ExtractFileExt(ParamStr(0));
if FileExists(s) then
ppudumpprog:=s;
end;
end;
writeln(ppudumpprog);
p.Executable:=ppudumpprog;
p.Parameters.Add(un);
p.Options:=[poUsePipes, poNoConsole, poStderrToOutPut];