paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-23 12:50:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ handle -Cp in the first options processing pass

Browse Source 
git-svn-id: trunk@29125 -
This commit is contained in:
florian 2014-11-23 17:30:18 +00:00
parent 03521f0413
commit a237648545
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/options.pas
View File

@ -973,6 +973,7 @@ begin
( (
((length(opt)>1) and (opt[2] in ['i','d','v','T','u','n','X','l'])) or ((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]='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')) ((length(opt)>3) and (opt[2]='W') and (opt[3]='m'))
) )
) then ) then