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

* use generic code for a_load_subsetref_regs_noindex on ppc64le

Browse Source 
git-svn-id: trunk@30216 -
This commit is contained in:
Jonas Maebe 2015-03-14 18:36:26 +00:00
parent c69265a61c
commit eee83ebb4a
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ppcgen/hlcgppc.pas
View File

@ -44,6 +44,7 @@ implementation
uses uses
cpubase,globtype, cpubase,globtype,
systems,
procinfo,cpupi, procinfo,cpupi,
symdef,defutil; symdef,defutil;
@ -54,6 +55,12 @@ implementation
fromsreg, tosreg: tsubsetregister; fromsreg, tosreg: tsubsetregister;
restbits: byte; restbits: byte;
begin begin
{ the code below is only valid for big endian }
if target_info.endian=endian_little then
begin
inherited;
exit
end;
restbits:=(sref.bitlen-(loadbitsize-sref.startbit)); restbits:=(sref.bitlen-(loadbitsize-sref.startbit));
if is_signed(subsetsize) then if is_signed(subsetsize) then
begin begin