Sfoglia il codice sorgente

+ handle -Cp in the first options processing pass

git-svn-id: trunk@29125 -
florian 10 anni fa
parent
commit
a237648545
1 ha cambiato i file con 1 aggiunte e 0 eliminazioni
  1. 1 0
      compiler/options.pas

+ 1 - 0
compiler/options.pas

@@ -973,6 +973,7 @@ begin
          (
           ((length(opt)>1) and (opt[2] in ['i','d','v','T','u','n','X','l'])) or
           ((length(opt)>3) and (opt[2]='F') and (opt[3]='e')) or
+          ((length(opt)>3) and (opt[2]='C') and (opt[3]='p')) or
           ((length(opt)>3) and (opt[2]='W') and (opt[3]='m'))
          )
         ) then