2
0
Эх сурвалжийг харах

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

git-svn-id: trunk@37908 -
pierre 7 жил өмнө
parent
commit
0c3486f6e4

+ 4 - 2
compiler/options.pas

@@ -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']))