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

* don't reuse the same type with the typed const builder for

Browse Source 
differently-sized types

git-svn-id: trunk@35153 -
This commit is contained in:
Jonas Maebe 2016-12-18 13:57:15 +00:00
parent 691c2d655e
commit d8c4980b2e
1 changed files with 11 additions and 2 deletions

13
compiler/ncgrtti.pas
View File

@ -631,16 +631,25 @@ implementation
otUByte,otUWord,otULong,otUByte,
otSByte,otSWord,otSLong,otSByte,
otUByte,otUWord,otUByte);
var
elesize: string[1];
begin
write_header(tcb,def,typekind);
case trans[def.ordtype] of
otUQWord,
otSQWord:
elesize:='8'
else
elesize:='4'
end;
tcb.begin_anonymous_record(
internaltypeprefixName[itp_rtti_ord_outer],
internaltypeprefixName[itp_rtti_ord_outer]+elesize,
defaultpacking,reqalign,
targetinfos[target_info.system]^.alignment.recordalignmin,
targetinfos[target_info.system]^.alignment.maxCrecordalign);
tcb.emit_ord_const(byte(trans[def.ordtype]),u8inttype);
tcb.begin_anonymous_record(
internaltypeprefixName[itp_rtti_ord_inner],
internaltypeprefixName[itp_rtti_ord_inner]+elesize,
defaultpacking,reqalign,
targetinfos[target_info.system]^.alignment.recordalignmin,
targetinfos[target_info.system]^.alignment.maxCrecordalign);