paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 20:26:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

* give an internalerror when we try to change the type of an asmsymbol from

Browse Source 
anything but none (= undefined) to local

git-svn-id: trunk@25266 -
This commit is contained in:
Jonas Maebe 2013-08-16 10:10:38 +00:00
parent d8c84706dd
commit da6d9cf3f3
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/aasmtai.pas
View File

@ -1288,6 +1288,10 @@ implementation
typ:=ait_symbol; typ:=ait_symbol;
sym:=_sym; sym:=_sym;
size:=siz; size:=siz;
{ don't redefine global/external symbols as local, as code to access
such symbols is different on some platforms }
if not(sym.bind in [AB_NONE,AB_LOCAL]) then
internalerror(2013081601);
sym.bind:=AB_LOCAL; sym.bind:=AB_LOCAL;
is_global:=false; is_global:=false;
end; end;