Bläddra i källkod

* generate integer type definitions for smallsets

git-svn-id: branches/hlcgllvm@27016 -
Jonas Maebe 11 år sedan
förälder
incheckning
2cb84bda6e
1 ändrade filer med 4 tillägg och 1 borttagningar
  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