Преглед на файлове

* 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;