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

* only handle a_load_const_ref() directly when storing ordinals, as in case

Browse Source 
of pointers llvm only supports 0 (as null, which we don't generate either)

git-svn-id: trunk@30676 -
This commit is contained in:
Jonas Maebe 2015-04-19 21:37:49 +00:00
parent e2cf90ad8a
commit 3496129f79
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/llvm/hlcgllvm.pas
View File

@ -473,8 +473,16 @@ implementation
var
sref: treference;
begin
sref:=make_simple_ref(list,ref,tosize);
list.concat(taillvm.op_size_const_size_ref(la_store,tosize,a,getpointerdef(tosize),sref))
{ llvm instructions do not support pointer constants -> only directly
encode for integers; a_load_const_reg() handles pointers properly }
if is_ordinal(tosize) or
is_64bit(tosize) then
begin
sref:=make_simple_ref(list,ref,tosize);
list.concat(taillvm.op_size_const_size_ref(la_store,tosize,a,getpointerdef(tosize),sref))
end
else
inherited;
end;