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

* By default try to use ppudump from the folder where pas2jni is located.

Browse Source 
git-svn-id: trunk@24319 -
This commit is contained in:
yury 2013-04-25 10:32:58 +00:00
parent 3dd976c06f
commit 65a4585012
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
utils/pas2jni/ppuparser.pas
View File

@ -50,7 +50,7 @@ type
end;
var
ppudumpprog: string = 'ppudump';
ppudumpprog: string;
implementation
@ -175,6 +175,12 @@ begin
un:=FindUnit(AName);
p:=TProcess.Create(nil);
try
if ppudumpprog = '' then begin
// Check for ppudump in the same folder as pas2jni
ppudumpprog:=ExtractFilePath(ParamStr(0)) + 'ppudump' + ExtractFileExt(ParamStr(0));
if not FileExists(ppudumpprog) then
ppudumpprog:='ppudump';
end;
p.Executable:=ppudumpprog;
p.Parameters.Add(un);
p.Options:=[poUsePipes, poNoConsole, poStderrToOutPut];