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

* take into account the fact that bitpacked ordinal fields are all encoded

Browse Source 
as bytes in the LLVM type, so typecast them to the correct type (which is
    the size that will be used by hlcg.a_load*subsetref*)

git-svn-id: trunk@32565 -
This commit is contained in:
Jonas Maebe 2015-12-01 21:52:23 +00:00
parent bbbceb08d9
commit 8df979e5e8
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/llvm/nllvmmem.pas
View File

@ -66,6 +66,7 @@ implementation
function tllvmsubscriptnode.handle_platform_subscript: boolean;
var
newbase: tregister;
fielddef: tdef;
begin
if not(location.loc in [LOC_REFERENCE,LOC_CREFERENCE]) then
internalerror(2014011905);
@ -74,7 +75,20 @@ implementation
{ typecast the result to the expected type, but don't actually index
(that still has to be done by the generic code, so return false) }
newbase:=hlcg.getaddressregister(current_asmdata.CurrAsmList,cpointerdef.getreusable(resultdef));
hlcg.a_loadaddr_ref_reg(current_asmdata.CurrAsmList,left.resultdef,cpointerdef.getreusable(resultdef),location.reference,newbase);
if is_ordinal(resultdef) and
(resultdef.packedbitsize mod 8<>0) then
fielddef:=
cgsize_orddef(
int_cgsize(
packedbitsloadsize(resultdef.packedbitsize)
)
)
else
fielddef:=resultdef;
hlcg.a_loadaddr_ref_reg(current_asmdata.CurrAsmList,
left.resultdef,
cpointerdef.getreusable(fielddef),
location.reference,newbase);
reference_reset_base(location.reference,newbase,0,location.reference.alignment);
result:=false;
end