paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-05 13:38:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ support for -Xp to path the compiler executables to fpc

Browse Source 
git-svn-id: trunk@5040 -
This commit is contained in:
florian 2006-10-28 14:06:55 +00:00
parent 9c6c972509
commit edf01e4460
2 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/options.pas
View File

@ -1258,6 +1258,7 @@ begin
else
include(initglobalswitches,cs_link_map);
end;
'p' : ; { Ignore used by fpc.pp }
'r' :
begin
rlinkpath:=Copy(more,2,length(More)-1);

21
compiler/utils/fpc.pp
View File

@ -71,6 +71,9 @@ program fpc;
findclose(Info);
end;
var
extrapath : ansistring;
function findexe(var ppcbin:string): boolean;
var
path : string;
@ -79,9 +82,16 @@ program fpc;
findexe:=false;
ppcbin:=ppcbin+exeext;
if (extrapath<>'') and (extrapath[length(extrapath)]<>DirectorySeparator) then
extrapath:=extrapath+DirectorySeparator;
{ get path of fpc.exe }
path:=splitpath(paramstr(0));
if FileExists(path+ppcbin) then
if FileExists(extrapath+ppcbin) then
begin
ppcbin:=extrapath+ppcbin;
findexe:=true;
end
else if FileExists(path+ppcbin) then
begin
ppcbin:=path+ppcbin;
findexe:=true;
@ -111,6 +121,7 @@ program fpc;
ppccommandline:='';
cpusuffix :=''; // if not empty, signals attempt at cross
// compiler.
extrapath :='';
{$ifdef i386}
ppcbin:='ppc386';
processorname:='i386';
@ -204,8 +215,10 @@ program fpc;
ppcbin:='ppcross'+cpusuffix;
end;
end
else
ppccommandline:=ppccommandline+s+' ';
else if pos('-Xp',s)=1 then
extrapath:=copy(s,4,length(s)-3)
else
ppccommandline:=ppccommandline+s+' ';
end;
end;
@ -233,4 +246,4 @@ program fpc;
if errorvalue<>0 then
error(ppcbin+' returned an error exitcode (normal if you did not specify a source file to be compiled)');
halt(errorvalue);
end.
end.