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

* fixed type when passing an address parameter to another address parameter

Browse Source 
git-svn-id: trunk@30715 -
This commit is contained in:
Jonas Maebe 2015-04-25 15:51:16 +00:00
parent b3e786eb77
commit 2102db1a0c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncgcal.pas
View File

@ -383,7 +383,7 @@ implementation
if (left.location.reference.index<>NR_NO) or if (left.location.reference.index<>NR_NO) or
(left.location.reference.offset<>0) then (left.location.reference.offset<>0) then
internalerror(200410107); internalerror(200410107);
hlcg.a_load_reg_cgpara(current_asmdata.CurrAsmList,voidpointertype,left.location.reference.base,tempcgpara) hlcg.a_load_reg_cgpara(current_asmdata.CurrAsmList,getpointerdef(left.resultdef),left.location.reference.base,tempcgpara)
end end
else else
begin begin