Browse Source

* 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 years ago
parent
commit
530d5c125d
1 changed files with 3 additions and 3 deletions
  1. 3 3
      compiler/nset.pas

+ 3 - 3
compiler/nset.pas

@@ -261,13 +261,13 @@ implementation
              if assigned(tsetdef(right.resultdef).elementdef) then
              if assigned(tsetdef(right.resultdef).elementdef) then
                inserttypeconv(left,tsetdef(right.resultdef).elementdef);
                inserttypeconv(left,tsetdef(right.resultdef).elementdef);
            end
            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
            begin
              CGMessage(type_h_in_range_check);
              CGMessage(type_h_in_range_check);
              if is_signed(left.resultdef) then
              if is_signed(left.resultdef) then
-               inserttypeconv(left,sinttype)
+               inserttypeconv(left,s32inttype)
              else
              else
-               inserttypeconv(left,uinttype);
+               inserttypeconv(left,u32inttype);
            end;
            end;
 
 
          { empty set then return false }
          { empty set then return false }