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

* fix tcg.a_load_cgparaloc_ref for ref. sizes of 7 on little endian systems

Browse Source 
git-svn-id: trunk@37002 -
This commit is contained in:
florian 2017-08-21 09:08:02 +00:00
parent 608aad5dd3
commit 99ce914a61
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/cgobj.pas
View File

@ -1202,7 +1202,7 @@ implementation
a_op_const_reg_reg(list,OP_SHR,cgsize,32,hreg,hreg);
a_load_reg_ref(list,paraloc.size,OS_16,hreg,href);
inc(href.offset,4);
inc(href.offset,2);
a_op_const_reg_reg(list,OP_SHR,cgsize,16,hreg,hreg);
a_load_reg_ref(list,paraloc.size,OS_8,hreg,href);
end