mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 10:19:30 +02:00
* 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:
parent
d545a72f1a
commit
cc4169ef68
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user