paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-19 12:09:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed r34439 for big endian

Browse Source 
git-svn-id: trunk@34444 -
This commit is contained in:
Jonas Maebe 2016-09-07 16:09:10 +00:00
parent 473cec9d85
commit 997a958f72
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ngtcon.pas
View File

@ -1042,14 +1042,14 @@ function get_next_varsym(def: tabstractrecorddef; const SymList:TFPHashObjectLis
ftcb.emit_tai(tai_const.create_8bit(setval),def); ftcb.emit_tai(tai_const.create_8bit(setval),def);
2: 2:
begin begin
if source_info.endian<>target_info.endian then if target_info.endian=endian_big then
setval:=swap(word(setval)); setval:=swap(word(setval));
ftcb.emit_tai(tai_const.create_16bit(setval),def); ftcb.emit_tai(tai_const.create_16bit(setval),def);
end; end;
4: 4:
begin begin
if source_info.endian<>target_info.endian then if target_info.endian=endian_big then
setval:=swap(setval); setval:=swap(word(setval)) shl 16 or (swap(word(setval shr 16)));
ftcb.emit_tai(tai_const.create_32bit(setval),def); ftcb.emit_tai(tai_const.create_32bit(setval),def);
end; end;
else else