paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 22:46:01 +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 for i:=1 to paramcount do
begin begin
s:=paramstr(i); s:=paramstr(i);
if pos('-V',s)=1 then if pos('-L',s)=1 then
versionstr:=copy(s,3,length(s)-2) versionstr:=copy(s,3,length(s)-2)
else else
begin begin
if pos('-P',s)=1 then if pos('-Q',s)=1 then
begin begin
processorstr:=copy(s,3,length(s)-2); processorstr:=copy(s,3,length(s)-2);
{ -PB is a special code that will show the { -PB is a special code that will show the
@ -170,7 +170,10 @@ program fpc;
end. end.
{ {
$Log$ $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 * -V support
Revision 1.5 2003/04/08 16:01:40 peter Revision 1.5 2003/04/08 16:01:40 peter