Browse Source

* Fix spurious warning of already specified -t

Michael VAN CANNEYT 2 năm trước cách đây
mục cha
commit
e9d7a6ed34
1 tập tin đã thay đổi với 1 bổ sung1 xóa
  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;