瀏覽代碼

* limit the left hand side of "in" expressions to 2^32 for now
(fixes webtbs/tw8258 for 64 bit platforms)

git-svn-id: trunk@6393 -

Jonas Maebe 18 年之前
父節點
當前提交
530d5c125d
共有 1 個文件被更改,包括 3 次插入3 次删除
  1. 3 3
      compiler/nset.pas

+ 3 - 3
compiler/nset.pas

@@ -261,13 +261,13 @@ implementation
              if assigned(tsetdef(right.resultdef).elementdef) then
                inserttypeconv(left,tsetdef(right.resultdef).elementdef);
            end
-         else if not is_ordinal(left.resultdef) or (left.resultdef.size > uinttype.size) then
+         else if not is_ordinal(left.resultdef) or (left.resultdef.size > u32inttype.size) then
            begin
              CGMessage(type_h_in_range_check);
              if is_signed(left.resultdef) then
-               inserttypeconv(left,sinttype)
+               inserttypeconv(left,s32inttype)
              else
-               inserttypeconv(left,uinttype);
+               inserttypeconv(left,u32inttype);
            end;
 
          { empty set then return false }