瀏覽代碼

* fix range check error

git-svn-id: trunk@36945 -
florian 8 年之前
父節點
當前提交
0caccdc238
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/ngtcon.pas

+ 1 - 1
compiler/ngtcon.pas

@@ -1050,7 +1050,7 @@ function get_next_varsym(def: tabstractrecorddef; const SymList:TFPHashObjectLis
                         begin
                           if target_info.endian=endian_big then
                             setval:=swapendian(cardinal(setval));
-                          ftcb.emit_tai(tai_const.create_32bit(setval),def);
+                          ftcb.emit_tai(tai_const.create_32bit(longint(setval)),def);
                         end;
                       else
                         internalerror(2015112207);