paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 13:06:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* enum value rtti is now in orginal case

Browse Source
This commit is contained in:
peter 2004-01-22 16:33:22 +00:00
parent d42f4af064
commit 8f70c34b33
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/symdef.pas
View File

@ -1737,8 +1737,8 @@ implementation
hp:=tenumsym(firstenum);
while assigned(hp) do
begin
rttiList.concat(Tai_const.Create_8bit(length(hp.name)));
rttiList.concat(Tai_string.Create(hp.name));
rttiList.concat(Tai_const.Create_8bit(length(hp.realname)));
rttiList.concat(Tai_string.Create(hp.realname));
hp:=hp.nextenum;
end;
rttiList.concat(Tai_const.Create_8bit(0));
@ -6167,7 +6167,10 @@ implementation
end.
{
$Log$
Revision 1.200 2004-01-20 12:59:37 florian
Revision 1.201 2004-01-22 16:33:22 peter
* enum value rtti is now in orginal case
Revision 1.200 2004/01/20 12:59:37 florian
* common addnode code for x86-64 and i386
Revision 1.199 2004/01/15 15:16:18 daniel