paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-24 06:19:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* generate integer type definitions for smallsets

Browse Source 
git-svn-id: branches/hlcgllvm@27016 -
This commit is contained in:
Jonas Maebe 2014-03-06 21:42:24 +00:00
parent 7d61ecf5ba
commit 2cb84bda6e
1 changed files with 4 additions and 1 deletions

5
compiler/llvm/llvmdef.pas
View File

@ -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