From fcd16aff24814021a785b58c8042c75353a9103e Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Wed, 8 Oct 2003 19:16:50 +0000
Subject: [PATCH]   * -Q back to -P, -L back to -V

---
 compiler/utils/fpc.pp | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/compiler/utils/fpc.pp b/compiler/utils/fpc.pp
index 7d5a95ad0e..6cd487663d 100644
--- a/compiler/utils/fpc.pp
+++ b/compiler/utils/fpc.pp
@@ -114,11 +114,11 @@ program fpc;
      for i:=1 to paramcount do
        begin
           s:=paramstr(i);
-          if pos('-L',s)=1 then
+          if pos('-V',s)=1 then
               versionstr:=copy(s,3,length(s)-2)
           else
             begin
-              if pos('-Q',s)=1 then
+              if pos('-P',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.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
 
   Revision 1.6  2003/09/30 11:24:59  marco