* 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 -
This commit is contained in:
Jonas Maebe 2012-04-11 18:06:00 +00:00
parent d545a72f1a
commit cc4169ef68

View File

@ -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