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

* correctly encode bitpacked arrays of elements that can't be bitpacked

Browse Source 
git-svn-id: trunk@32555 -
This commit is contained in:
Jonas Maebe 2015-11-29 21:46:06 +00:00
parent a27927e658
commit da8d276766
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/llvm/llvmdef.pas
View File

@ -419,7 +419,8 @@ implementation
llvmaddencodedtype_intern(tarraydef(def).elementdef,[],encodedstr);
encodedstr:=encodedstr+'*';
end
else if is_packed_array(def) then
else if is_packed_array(def) and
(tarraydef(def).elementdef.typ in [enumdef,orddef]) then
begin
encodedstr:=encodedstr+'['+tostr(tarraydef(def).size div tarraydef(def).elementdef.packedbitsize)+' x ';
{ encode as an array of integers with the size on which we