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

* give internalerror if trying to take the address of something else

Browse Source 
than a LOC_REFERENCE or LOC_CREFERENCE

git-svn-id: trunk@5408 -
This commit is contained in:
Jonas Maebe 2006-11-16 20:23:55 +00:00
parent b8ff1ce664
commit e04e668640
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncgmem.pas
View File

@ -172,6 +172,8 @@ implementation
location_reset(location,LOC_REGISTER,OS_ADDR);
location.register:=cg.getaddressregister(current_asmdata.CurrAsmList);
if not(left.location.loc in [LOC_REFERENCE,LOC_CREFERENCE]) then
internalerror(2006111510);
cg.a_loadaddr_ref_reg(current_asmdata.CurrAsmList,left.location.reference,location.register);
end;