瀏覽代碼

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

git-svn-id: trunk@6372 -

tom_at_work 18 年之前
父節點
當前提交
dc21781f1d
共有 1 個文件被更改,包括 1 次插入1 次删除
  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