Browse Source

* fix compilation for 64 bit platforms,
as suggested by Jonas

git-svn-id: trunk@6372 -

tom_at_work 18 years ago
parent
commit
dc21781f1d
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/ncgset.pas

+ 1 - 1
compiler/ncgset.pas

@@ -277,7 +277,7 @@ implementation
          genjumps := checkgenjumps(setparts,numparts,use_small);
 
          orgopsize := def_cgsize(left.resultdef);
-         uopsize := OS_INT;
+         uopsize := OS_32;
          if is_signed(left.resultdef) then
            opsize := tcgsize(ord(uopsize)+(ord(OS_S8)-ord(OS_8)))
          else