From 0c3486f6e4e3a05f5a8c26d8379865e0310ef421 Mon Sep 17 00:00:00 2001 From: pierre Date: Thu, 4 Jan 2018 16:37:13 +0000 Subject: [PATCH] Add 'U' to list of first pass parsing, required to set cs_compilesystem early and avoid false error git-svn-id: trunk@37908 - --- compiler/options.pas | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/compiler/options.pas b/compiler/options.pas index a301b9bffa..d67196bd15 100644 --- a/compiler/options.pas +++ b/compiler/options.pas @@ -1024,12 +1024,14 @@ begin if opt='' then 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 not( (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]='C') and (opt[3]='p')) or ((length(opt)>3) and (opt[2]='W') and (opt[3] in ['m','p']))