paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-20 14:09:12 +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, s,
processorname, processorname,
ppcbin, ppcbin,
versionStr,
processorstr : shortstring; processorstr : shortstring;
ppccommandline : ansistring; ppccommandline : ansistring;
i : longint; i : longint;
@ -109,9 +110,14 @@ program fpc;
ppcbin:='ppcppc'; ppcbin:='ppcppc';
processorname:='powerpc'; processorname:='powerpc';
{$endif powerpc} {$endif powerpc}
versionstr:=''; { Default is just the name }
for i:=1 to paramcount do for i:=1 to paramcount do
begin begin
s:=paramstr(i); s:=paramstr(i);
if pos('-V',s)=1 then
versionstr:=copy(s,3,length(s)-2)
else
begin
if pos('-P',s)=1 then if pos('-P',s)=1 then
begin begin
processorstr:=copy(s,3,length(s)-2); processorstr:=copy(s,3,length(s)-2);
@ -147,7 +153,10 @@ program fpc;
else else
ppccommandline:=ppccommandline+s+' '; ppccommandline:=ppccommandline+s+' ';
end; end;
end;
if versionstr<>'' then
ppcbin:=ppcbin+'-'+versionstr;
{ find the full path to the specified exe } { find the full path to the specified exe }
findexe(ppcbin); findexe(ppcbin);
@ -161,7 +170,10 @@ program fpc;
end. end.
{ {
$Log$ $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 * amiga has also no .exe
Revision 1.4 2002/05/18 13:34:27 peter Revision 1.4 2002/05/18 13:34:27 peter