From cc4169ef68ec70406770aee17af1f3538725ae5b Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Wed, 11 Apr 2012 18:06:00 +0000
Subject: [PATCH]   * 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 -
---
 compiler/aasmdata.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/aasmdata.pas b/compiler/aasmdata.pas
index bc9065ca5d..f3379ce0db 100644
--- a/compiler/aasmdata.pas
+++ b/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