diff options
author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2016-09-07 16:09:10 +0000 |
---|---|---|
committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2016-09-07 16:09:10 +0000 |
commit | 440b510f41a90eda116019f3cf7e2d0c3fd2a23d (patch) | |
tree | 7b0d343064d32f1d074ce9b628c19a9134fca6e3 | |
parent | 755fa33c251e8788bca6428d13818bf5c146c1b6 (diff) | |
download | fpc-440b510f41a90eda116019f3cf7e2d0c3fd2a23d.tar.gz |
* fixed r34439 for big endian
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@34444 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | compiler/ngtcon.pas | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/ngtcon.pas b/compiler/ngtcon.pas index b0c964e698..9a83a46699 100644 --- a/compiler/ngtcon.pas +++ b/compiler/ngtcon.pas @@ -1042,14 +1042,14 @@ function get_next_varsym(def: tabstractrecorddef; const SymList:TFPHashObjectLis ftcb.emit_tai(tai_const.create_8bit(setval),def); 2: begin - if source_info.endian<>target_info.endian then + if target_info.endian=endian_big then setval:=swap(word(setval)); ftcb.emit_tai(tai_const.create_16bit(setval),def); end; 4: begin - if source_info.endian<>target_info.endian then - setval:=swap(setval); + if target_info.endian=endian_big then + setval:=swap(word(setval)) shl 16 or (swap(word(setval shr 16))); ftcb.emit_tai(tai_const.create_32bit(setval),def); end; else |