瀏覽代碼

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

git-svn-id: trunk@20695 -
Tomas Hajny 13 年之前
父節點
當前提交
2a57a6a307
共有 1 個文件被更改,包括 2 次插入0 次删除
  1. 2 0
      compiler/utils/fpc.pp

+ 2 - 0
compiler/utils/fpc.pp

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