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

* cleanup of r34444

Browse Source 
git-svn-id: trunk@34482 -
This commit is contained in:
Jonas Maebe 2016-09-10 16:16:48 +00:00
parent 09e7bc3096
commit ad0299e0cd
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

@ -1043,13 +1043,13 @@ function get_next_varsym(def: tabstractrecorddef; const SymList:TFPHashObjectLis
2:
begin
if target_info.endian=endian_big then
setval:=swap(word(setval));
setval:=swapendian(word(setval));
ftcb.emit_tai(tai_const.create_16bit(setval),def);
end;
4:
begin
if target_info.endian=endian_big then
setval:=swap(word(setval)) shl 16 or (swap(word(setval shr 16)));
setval:=swapendian(cardinal(setval));
ftcb.emit_tai(tai_const.create_32bit(setval),def);
end;
else