paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-26 22:50:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* also fix rtti for named enumerations

Browse Source 
* updated test program to test both named and unnamed enumerations

git-svn-id: trunk@10741 -
This commit is contained in:
tom_at_work 2008-04-20 20:02:23 +00:00
parent a872515d06
commit 553b524c0a
2 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/ncgrtti.pas
View File

@ -393,6 +393,7 @@ implementation
hp : tenumsym;
begin
current_asmdata.asmlists[al_rtti].concat(Tai_const.Create_8bit(tkEnumeration));
current_asmdata.asmlists[al_rtti].concat(Cai_align.Create(cshortstringtype.alignment));
write_rtti_name(def);
if (tf_requires_proper_alignment in target_info.flags) then
current_asmdata.asmlists[al_rtti].concat(Cai_align.Create(sizeof(TConstPtrUInt)));

17
tests/webtbs/tw10033.pp
View File

@ -2,13 +2,17 @@
// writing and reading of rtti for enums, both "dense" and
// "sparse" enumerations (different rtti is generated and
// different code used for generating and reading)
{$mode objfpc}
type
// "dense" unnamed enumeration
Txx = set of (_one, _two, _three);
// "sparse" unnamed enumeration
Tyy = set of (_zero := 0, _ten := 10, _twenty := 20);
// "dense" enumeration
Tx = (one,two,three);
Txxx = set of Tx;
// "sparse" enumeration
Ty =(zero := 0, ten := 10, twenty := 20);
Ty = (zero := 0, ten := 10, twenty := 20);
Tyyy = set of Ty;
procedure error(number : longint);
@ -21,8 +25,17 @@ var
x : txxx;
y : tyyy;
err : word;
_x : txx;
_y : tyy;
begin
writeln(low(_x));
writeln(high(_x));
writeln(low(_y));
writeln(high(_y));
writeln(low(x));
writeln(high(x));