Przeglądaj źródła

* add previously missing support for proper handling of -? from the fpc binary

git-svn-id: trunk@20695 -
Tomas Hajny 13 lat temu
rodzic
commit
2a57a6a307
1 zmienionych plików z 2 dodań i 0 usunięć
  1. 2 0
      compiler/utils/fpc.pp

+ 2 - 0
compiler/utils/fpc.pp

@@ -234,6 +234,8 @@ program fpc;
                 begin
                 begin
                   if pos('-h',s)=1 then
                   if pos('-h',s)=1 then
                     ppccommandline[ppccommandlinelen] := '-hF' + ParamStr (0)
                     ppccommandline[ppccommandlinelen] := '-hF' + ParamStr (0)
+                  else if pos('-?',s)=1 then
+                    ppccommandline[ppccommandlinelen] := '-?F' + ParamStr (0)
                   else
                   else
                     ppccommandline[ppccommandlinelen]:=s;
                     ppccommandline[ppccommandlinelen]:=s;
                   inc(ppccommandlinelen);
                   inc(ppccommandlinelen);