mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 08:46:09 +02:00
+ Patch for intFpExecVEMaybeP to use the right path (From Colin Western)
This commit is contained in:
parent
b2934cbac7
commit
ac5c742443
@ -313,11 +313,12 @@ Begin
|
|||||||
|
|
||||||
// execp puts newcmd here.
|
// execp puts newcmd here.
|
||||||
args^:=pchar(newcmd);
|
args^:=pchar(newcmd);
|
||||||
End;
|
End else
|
||||||
|
newcmd:=pathname;
|
||||||
// repeat
|
// repeat
|
||||||
// if searchpath then args^:=pchar(commandtorun)
|
// if searchpath then args^:=pchar(commandtorun)
|
||||||
|
|
||||||
IntFpExecVEMaybeP:=fpExecVE(Args^,Args,MyEnv);
|
IntFpExecVEMaybeP:=fpExecVE(newcmd,Args,MyEnv);
|
||||||
{
|
{
|
||||||
// Code that if exec fails due to permissions, tries to run it with sh
|
// Code that if exec fails due to permissions, tries to run it with sh
|
||||||
// Should we deallocate p on fail? -> no fpexit is run no matter what
|
// Should we deallocate p on fail? -> no fpexit is run no matter what
|
||||||
@ -1254,7 +1255,10 @@ End.
|
|||||||
|
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.78 2004-11-21 11:28:21 peter
|
Revision 1.79 2005-01-22 20:56:11 michael
|
||||||
|
+ Patch for intFpExecVEMaybeP to use the right path (From Colin Western)
|
||||||
|
|
||||||
|
Revision 1.78 2004/11/21 11:28:21 peter
|
||||||
* fixed bootstrap with 1.0.10 and 1.9.4
|
* fixed bootstrap with 1.0.10 and 1.9.4
|
||||||
|
|
||||||
Revision 1.77 2004/11/19 13:15:15 marco
|
Revision 1.77 2004/11/19 13:15:15 marco
|
||||||
|
Loading…
Reference in New Issue
Block a user