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

* -Q=-P and -L=-V

Browse Source
This commit is contained in:
marco 2003-09-30 17:25:01 +00:00
parent 077a2d12c0
commit 957a3d4b36
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/utils/fpc.pp
View File

@ -114,11 +114,11 @@ program fpc;
for i:=1 to paramcount do
begin
s:=paramstr(i);
if pos('-V',s)=1 then
if pos('-L',s)=1 then
versionstr:=copy(s,3,length(s)-2)
else
begin
if pos('-P',s)=1 then
if pos('-Q',s)=1 then
begin
processorstr:=copy(s,3,length(s)-2);
{ -PB is a special code that will show the
@ -170,7 +170,10 @@ program fpc;
end.
{
$Log$
Revision 1.6 2003-09-30 11:24:59 marco
Revision 1.7 2003-09-30 17:25:01 marco
* -Q=-P and -L=-V
Revision 1.6 2003/09/30 11:24:59 marco
* -V support
Revision 1.5 2003/04/08 16:01:40 peter