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

Add 'U' to list of first pass parsing, required to set cs_compilesystem early and avoid false error

Browse Source 
git-svn-id: trunk@37908 -
This commit is contained in:
pierre 2018-01-04 16:37:13 +00:00
parent 2130c43685
commit 0c3486f6e4
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/options.pas
View File

@ -1024,12 +1024,14 @@ begin
if opt='' then if opt='' then
exit; exit;
{ only parse define,undef,target,verbosity,link etc options the firsttime } { only parse define,undef,target,verbosity,link etc options the firsttime
-Us must now also be first-passed to avoid rejection of -Sf options
earlier in command line }
if firstpass and if firstpass and
not( not(
(opt[1]='-') and (opt[1]='-') and
( (
((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','U'])) 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]='C') and (opt[3]='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']))