paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 06:29:38 +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

14
compiler/utils/fpc.pp
View File

@ -88,6 +88,7 @@ program fpc;
s,
processorname,
ppcbin,
versionStr,
processorstr : shortstring;
ppccommandline : ansistring;
i : longint;
@ -109,9 +110,14 @@ 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('-V',s)=1 then
versionstr:=copy(s,3,length(s)-2)
else
begin
if pos('-P',s)=1 then
begin
processorstr:=copy(s,3,length(s)-2);
@ -147,7 +153,10 @@ program fpc;
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