Explorar el Código

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

git-svn-id: trunk@6372 -

tom_at_work hace 18 años
padre
commit
dc21781f1d
Se han modificado 1 ficheros con 1 adiciones y 1 borrados
  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