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

* -V support

Browse Source
This commit is contained in:
marco 2003-09-30 11:24:59 +00:00
parent 9749cc7a9e
commit 9b39a588c3
1 changed files with 46 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

80
compiler/utils/fpc.pp
View File

@ -88,6 +88,7 @@ program fpc;
s,
processorname,
ppcbin,
versionStr,
processorstr : shortstring;
ppccommandline : ansistring;
i : longint;
@ -109,45 +110,53 @@ program fpc;
ppcbin:='ppcppc';
processorname:='powerpc';
{$endif powerpc}
versionstr:=''; { Default is just the name }
for i:=1 to paramcount do
begin
s:=paramstr(i);
if pos('-P',s)=1 then
begin
processorstr:=copy(s,3,length(s)-2);
{ -PB is a special code that will show the
default compiler and exit immediatly. It's
main usage is for Makefile }
if processorstr='B' then
begin
{ report the full name of the ppcbin }
findexe(ppcbin);
writeln(ppcbin);
halt(0);
end
{ -PP is a special code that will show the
processor and exit immediatly. It's
main usage is for Makefile }
else if processorstr='P' then
begin
{ report the processor }
writeln(processorname);
halt(0);
end
else if processorstr='i386' then
ppcbin:='ppc386'
else if processorstr='m68k' then
ppcbin:='ppc68k'
else if processorstr='alpha' then
ppcbin:='ppcapx'
else if processorstr='powerpc' then
ppcbin:='ppcppc'
else error('Illegal processor type "'+processorstr+'"');
end
if pos('-V',s)=1 then
versionstr:=copy(s,3,length(s)-2)
else
ppccommandline:=ppccommandline+s+' ';
begin
if pos('-P',s)=1 then
begin
processorstr:=copy(s,3,length(s)-2);
{ -PB is a special code that will show the
default compiler and exit immediatly. It's
main usage is for Makefile }
if processorstr='B' then
begin
{ report the full name of the ppcbin }
findexe(ppcbin);
writeln(ppcbin);
halt(0);
end
{ -PP is a special code that will show the
processor and exit immediatly. It's
main usage is for Makefile }
else if processorstr='P' then
begin
{ report the processor }
writeln(processorname);
halt(0);
end
else if processorstr='i386' then
ppcbin:='ppc386'
else if processorstr='m68k' then
ppcbin:='ppc68k'
else if processorstr='alpha' then
ppcbin:='ppcapx'
else if processorstr='powerpc' then
ppcbin:='ppcppc'
else error('Illegal processor type "'+processorstr+'"');
end
else
ppccommandline:=ppccommandline+s+' ';
end;
end;
if versionstr<>'' then
ppcbin:=ppcbin+'-'+versionstr;
{ find the full path to the specified exe }
findexe(ppcbin);
@ -161,7 +170,10 @@ program fpc;
end.
{
$Log$
Revision 1.5 2003-04-08 16:01:40 peter
Revision 1.6 2003-09-30 11:24:59 marco
* -V support
Revision 1.5 2003/04/08 16:01:40 peter
* amiga has also no .exe
Revision 1.4 2002/05/18 13:34:27 peter