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

* made internalerror unique

Browse Source 
git-svn-id: branches/hlcgllvm@28201 -
This commit is contained in:
Jonas Maebe 2014-07-12 22:13:39 +00:00
parent 8504ef3e87
commit b494f76b81
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/llvm/nllvmcnv.pas
View File

@ -82,7 +82,7 @@ procedure tllvmtypeconvnode.second_nothing;
if left.resultdef<>resultdef then if left.resultdef<>resultdef then
begin begin
if left.resultdef.size<>resultdef.size then if left.resultdef.size<>resultdef.size then
internalerror(2014012213); internalerror(2014012216);
hlcg.location_force_mem(current_asmdata.CurrAsmList,left.location,left.resultdef); hlcg.location_force_mem(current_asmdata.CurrAsmList,left.location,left.resultdef);
hreg:=hlcg.getaddressregister(current_asmdata.CurrAsmList,getpointerdef(resultdef)); hreg:=hlcg.getaddressregister(current_asmdata.CurrAsmList,getpointerdef(resultdef));
hlcg.a_loadaddr_ref_reg(current_asmdata.CurrAsmList,left.resultdef,getpointerdef(resultdef),left.location.reference,hreg); hlcg.a_loadaddr_ref_reg(current_asmdata.CurrAsmList,left.resultdef,getpointerdef(resultdef),left.location.reference,hreg);