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

Mark global symbols with assembler references as non-regable

Browse Source 
git-svn-id: trunk@25155 -
This commit is contained in:
Jeppe Johansen 2013-07-21 13:41:10 +00:00
parent dddc78514d
commit 0977d76f42
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/raatt.pas
View File

@ -1518,7 +1518,18 @@ unit raatt;
begin
case sym.typ of
staticvarsym :
hs:=tstaticvarsym(sym).mangledname;
begin
{ we always assume in asm statements that }
{ that the variable is valid. }
tabstractvarsym(sym).varstate:=vs_readwritten;
inc(tabstractvarsym(sym).refs);
{ variable can't be placed in a register }
tabstractvarsym(sym).varregable:=vr_none;
{ and anything may happen with its address }
tabstractvarsym(sym).addr_taken:=true;
hs:=tstaticvarsym(sym).mangledname;
end;
localvarsym,
paravarsym :
Message(asmr_e_no_local_or_para_allowed);