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

* don't try to check whether the size of from and to in type conversion nodes

Browse Source 
are the same in case of open arrays (their size can't be determined at
    compile time) -- this is just a sanity check, which can't be performed in
    this case

git-svn-id: trunk@33979 -
This commit is contained in:
Jonas Maebe 2016-06-12 20:56:37 +00:00
parent e521a029b1
commit 2d1023140a
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/llvm/nllvmcnv.pas
View File

@ -259,6 +259,8 @@ procedure tllvmtypeconvnode.second_nothing;
if not is_void(left.resultdef) and if not is_void(left.resultdef) and
not(nf_absolute in flags) and not(nf_absolute in flags) and
(left.resultdef.typ<>formaldef) and (left.resultdef.typ<>formaldef) and
not is_open_array(resultdef) and
not is_open_array(left.resultdef) and
(left.resultdef.size<>resultdef.size) then (left.resultdef.size<>resultdef.size) then
internalerror(2014012216); internalerror(2014012216);
hlcg.location_force_mem(current_asmdata.CurrAsmList,left.location,left.resultdef); hlcg.location_force_mem(current_asmdata.CurrAsmList,left.location,left.resultdef);