paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-30 17:51:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

* use reverse_longword() instead of reverse_byte(); fixes the management operators of records inside classes on big endian systems

Browse Source 
git-svn-id: trunk@39265 -
This commit is contained in:
svenbarth 2018-06-20 21:11:19 +00:00
parent af6f094420
commit 3f96c0baed
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/ncgrtti.pas
View File

@ -421,7 +421,7 @@ implementation
{ keep this in sync with the type declaration of TRecordInfoInitFlag(s) { keep this in sync with the type declaration of TRecordInfoInitFlag(s)
in both rttidecl.inc and typinfo.pp } in both rttidecl.inc and typinfo.pp }
if target_info.endian=endian_big then if target_info.endian=endian_big then
value:=reverse_byte(value); value:=reverse_longword(value);
tcb.emit_ord_const(value,u32inttype); tcb.emit_ord_const(value,u32inttype);
end; end;