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

* attempt to correct bitpacked arrays on big-endian systems after r43186. this fixed tparray13 test on m68k at least

Browse Source 
git-svn-id: trunk@46347 -
This commit is contained in:
Károly Balogh 2020-08-09 21:31:18 +00:00
parent 8761545848
commit 2de0be9633
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ngtcon.pas
View File

@ -350,11 +350,11 @@ function get_next_varsym(def: tabstractrecorddef; const SymList:TFPHashObjectLis
{ carry-over to the next element? } { carry-over to the next element? }
if (shiftcount<0) then if (shiftcount<0) then
begin begin
if shiftcount>=AIntBits then if shiftcount>=-AIntBits then
bp.nextval:=(value and ((aword(1) shl (-shiftcount))-1)) shl bp.nextval:=(value and ((aword(1) shl (-shiftcount))-1)) shl
(AIntBits+shiftcount) (AIntBits+shiftcount)
else else
bp.nextval:=0 bp.nextval:=0;
end end
end end
else else