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