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

* simplified handling of loading a reference into a register of a

Browse Source 
larger size in case of structured types
   o also fixes the logic for big endian

git-svn-id: trunk@34029 -
This commit is contained in:
Jonas Maebe 2016-06-30 15:33:31 +00:00
parent f2c1e4234f
commit eeae34ea7d
1 changed files with 11 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
compiler/llvm/hlcgllvm.pas
View File

@ -684,6 +684,7 @@ implementation
procedure thlcgllvm.a_load_ref_reg(list: TAsmList; fromsize, tosize: tdef; const ref: treference; register: tregister);
var
tmpref,
tmpref2,
sref: treference;
hreg: tregister;
tmpsize: tdef;
@ -700,34 +701,16 @@ implementation
begin
if fromsize.size<tosize.size then
begin
{ if the target size is larger than the source size, we
have to perform the zero-extension using an integer type
(can't zero-extend a record/array) }
if fromsize.typ in [arraydef,recorddef] then
begin
{ typecast the pointer to the struct into a pointer to an
integer of equal size }
tmpsize:=def2intdef(fromsize,tosize);
g_ptrtypecast_ref(list,cpointerdef.getreusable(fromsize),cpointerdef.getreusable(tmpsize),sref);
{ load that integer }
a_load_ref_reg(list,tmpsize,tosize,sref,register);
end
else
begin
{ load the integer into an integer memory location with
the same size as the struct (the integer should be
unsigned, we don't want sign extensions here) }
if is_signed(fromsize) then
internalerror(2014012309);
tmpsize:=def2intdef(tosize,fromsize);
tg.gethltemp(list,tmpsize,tmpsize.size,tt_normal,tmpref);
{ typecast the struct-sized integer location into the
struct type }
a_load_ref_ref(list,fromsize,tmpsize,sref,tmpref);
{ load the struct in the register }
a_load_ref_reg(list,tmpsize,tosize,tmpref,register);
tg.ungettemp(list,tmpref);
end;
{ allocate a temp of size tosize, typecast it to the
(smaller) fromsize, load the source in it, and then
load the destination from it. The extra bits will contain
garbage, but they should never be used. }
tg.gethltemp(list,tosize,tosize.size,tt_persistent,tmpref);
tmpref2:=tmpref;
g_ptrtypecast_ref(list,cpointerdef.getreusable(tosize),cpointerdef.getreusable(fromsize),tmpref2);
a_load_ref_ref(list,fromsize,fromsize,sref,tmpref2);
a_load_ref_reg(list,tosize,tosize,tmpref,register);
tg.ungettemp(list,tmpref);
exit;
end
else