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

Force SrcExeExt for prog parameter in ExecuteRemote function

Browse Source 
git-svn-id: trunk@26208 -
This commit is contained in:
pierre 2013-12-10 08:41:30 +00:00
parent 85f138b409
commit bd91a8da7e
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tests/utils/dotest.pp
View File

@ -304,6 +304,16 @@ begin
SplitFileBase:=n; SplitFileBase:=n;
end; end;
Function SplitFileExt(const s:string):string;
var
p : dirstr;
n : namestr;
e : extstr;
begin
FSplit(s,p,n,e);
SplitFileExt:=e;
end;
function ForceExtension(Const HStr,ext:String):String; function ForceExtension(Const HStr,ext:String):String;
{ {
@ -1154,13 +1164,15 @@ begin
LibraryExists:=false; LibraryExists:=false;
end; end;
function ExecuteRemote(const prog,args:string;out StartTicks,EndTicks : int64):boolean; function ExecuteRemote(prog,args:string;out StartTicks,EndTicks : int64):boolean;
const const
MaxTrials = 5; MaxTrials = 5;
var var
Trials : longint; Trials : longint;
Res : boolean; Res : boolean;
begin begin
if SplitFileExt(prog)='' then
prog:=prog+SrcExeExt;
Verbose(V_Debug,'RemoteExecuting '+Prog+' '+args); Verbose(V_Debug,'RemoteExecuting '+Prog+' '+args);
StartTicks:=GetMicroSTicks; StartTicks:=GetMicroSTicks;
Res:=false; Res:=false;