浏览代码

Add -Ff to firstpass options

Michael Ring 1 年之前
父节点
当前提交
f6651f8855
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/options.pas

+ 1 - 1
compiler/options.pas

@@ -1591,7 +1591,7 @@ begin
          (opt[1]='-') and
          (opt[1]='-') and
          (
          (
           ((length(opt)>1) and (opt[2] in ['i','d','v','T','t','u','n','x','X','l','U'])) or
           ((length(opt)>1) and (opt[2] in ['i','d','v','T','t','u','n','x','X','l','U'])) or
-          ((length(opt)>3) and (opt[2]='F') and (opt[3]='e')) or
+          ((length(opt)>3) and (opt[2]='F') and (opt[3] in ['e','f'])) or
           ((length(opt)>2) and (opt[2]='C') and (opt[3] in ['a','b','f','p'])) or
           ((length(opt)>2) and (opt[2]='C') and (opt[3] in ['a','b','f','p'])) or
           ((length(opt)>3) and (opt[2]='W') and (opt[3] in ['m','p']))
           ((length(opt)>3) and (opt[2]='W') and (opt[3] in ['m','p']))
          )
          )