瀏覽代碼

* generate integer type definitions for smallsets

git-svn-id: branches/hlcgllvm@27016 -
Jonas Maebe 11 年之前
父節點
當前提交
2cb84bda6e
共有 1 個文件被更改,包括 4 次插入1 次删除
  1. 4 1
      compiler/llvm/llvmdef.pas

+ 4 - 1
compiler/llvm/llvmdef.pas

@@ -254,7 +254,10 @@ implementation
               { just an array as far as llvm is concerned; don't use a "packed
                 array of i1" or so, this requires special support in backends
                 and guarantees nothing about the internal format }
-              encodedstr:=encodedstr+'['+tostr(tsetdef(def).size)+' x i8]';
+              if is_smallset(def) then
+                llvmaddencodedtype_intern(cgsize_orddef(def_cgsize(def)),inaggregate,false,encodedstr)
+              else
+                encodedstr:=encodedstr+'['+tostr(tsetdef(def).size)+' x i8]';
             end;
           formaldef :
             begin