Преглед изворни кода

* Fix spurious warning of already specified -t

Michael VAN CANNEYT пре 2 година
родитељ
комит
e9d7a6ed34
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      compiler/options.pas

+ 1 - 1
compiler/options.pas

@@ -2760,7 +2760,7 @@ begin
                  Message1(option_missing_arg,'-t')
                else
                  begin
-                 if More<>upper(self.parasubtarget) then
+                 if (self.parasubtarget<>'') and (More<>upper(self.parasubtarget)) then
                     Message1(option_subtarget_is_already_set,self.parasubtarget)
                  else
                     self.parasubtarget:=more;