Browse Source

* don't raise an internalerror when the the binding type of a weak external
symbol is changed to something else (binding a weak symbol to a real
implementation in the current file is valid)

git-svn-id: trunk@20834 -

Jonas Maebe 13 năm trước cách đây
mục cha
commit
cc4169ef68
1 tập tin đã thay đổi với 1 bổ sung1 xóa
  1. 1 1
      compiler/aasmdata.pas

+ 1 - 1
compiler/aasmdata.pas

@@ -404,7 +404,7 @@ implementation
          begin
            { Redefine is allowed, but the types must be the same. The redefine
              is needed for Darwin where the labels are first allocated }
-           if (hp.bind<>AB_EXTERNAL) then
+           if not(hp.bind in [AB_EXTERNAL,AB_WEAK_EXTERNAL]) then
              begin
                if (hp.bind<>_bind) and
                   (hp.typ<>_typ) then