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

* don't internallerror when encountering an "absolute" type conversion to

Browse Source 
a differently sized def in LLVM

git-svn-id: trunk@32571 -
This commit is contained in:
Jonas Maebe 2015-12-02 22:29:23 +00:00
parent 86b02cf76e
commit 35714e5d50
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/llvm/nllvmcnv.pas
View File

@ -270,8 +270,9 @@ procedure tllvmtypeconvnode.second_nothing;
begin
if left.resultdef<>resultdef then
begin
{ handle sometype(voidptr^) }
{ handle sometype(voidptr^) and "absolute" }
if not is_void(left.resultdef) and
not(nf_absolute in flags) and
(left.resultdef.typ<>formaldef) and
(left.resultdef.size<>resultdef.size) then
internalerror(2014012216);