paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 16:10:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* -Q back to -P, -L back to -V

Browse Source
This commit is contained in:
peter 2003-10-08 19:16:50 +00:00
parent aae403c0b4
commit fcd16aff24
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('-L',s)=1 then if pos('-V',s)=1 then
versionstr:=copy(s,3,length(s)-2) versionstr:=copy(s,3,length(s)-2)
else else
begin begin
if pos('-Q',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);
{ -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.7 2003-09-30 17:25:01 marco Revision 1.8 2003-10-08 19:16:50 peter
* -Q back to -P, -L back to -V
Revision 1.7 2003/09/30 17:25:01 marco
* -Q=-P and -L=-V * -Q=-P and -L=-V
Revision 1.6 2003/09/30 11:24:59 marco Revision 1.6 2003/09/30 11:24:59 marco