Преглед изворни кода

* cleanup of r34444

git-svn-id: trunk@34482 -
Jonas Maebe пре 9 година
родитељ
комит
ad0299e0cd
1 измењених фајлова са 2 додато и 2 уклоњено
  1. 2 2
      compiler/ngtcon.pas

+ 2 - 2
compiler/ngtcon.pas

@@ -1043,13 +1043,13 @@ function get_next_varsym(def: tabstractrecorddef; const SymList:TFPHashObjectLis
                       2:
                       2:
                         begin
                         begin
                           if target_info.endian=endian_big then
                           if target_info.endian=endian_big then
-                            setval:=swap(word(setval));
+                            setval:=swapendian(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 target_info.endian=endian_big then
                           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);
                           ftcb.emit_tai(tai_const.create_32bit(setval),def);
                         end;
                         end;
                       else
                       else