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

* fix loading of constants in registers in the LLVM CG if the constant

Browse Source 
does not fit in ptrsinttype

git-svn-id: trunk@41138 -
This commit is contained in:
Jonas Maebe 2019-01-29 21:39:26 +00:00
parent 2d01fe76f6
commit e52cf555ab
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/llvm/hlcgllvm.pas
View File

@ -553,8 +553,14 @@ implementation
procedure thlcgllvm.a_load_const_reg(list: TAsmList; tosize: tdef; a: tcgint; register: tregister);
var
fromsize: tdef;
begin
list.concat(taillvm.op_reg_size_const_size(llvmconvop(ptrsinttype,tosize,false),register,ptrsinttype,a,tosize))
if tosize.size<=ptrsinttype.size then
fromsize:=ptrsinttype
else
fromsize:=tosize;
list.concat(taillvm.op_reg_size_const_size(llvmconvop(fromsize,tosize,false),register,fromsize,a,tosize))
end;