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

* setdef.typename, show Empty Set if elementtype is not set

Browse Source
This commit is contained in:
peter 2000-06-25 09:25:29 +00:00
parent 7d33870ef8
commit e2e7120ef7
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/symdef.inc
View File

@ -1787,7 +1787,10 @@
function tsetdef.gettypename : string;
begin
gettypename:='Set Of '+elementtype.def^.typename;
if assigned(elementtype.def) then
gettypename:='Set Of '+elementtype.def^.typename
else
gettypename:='Empty Set';
end;
@ -4127,7 +4130,10 @@ Const local_symtable_index : longint = $8001;
{
$Log$
Revision 1.202 2000-06-22 20:01:57 peter
Revision 1.203 2000-06-25 09:25:29 peter
* setdef.typename, show Empty Set if elementtype is not set
Revision 1.202 2000/06/22 20:01:57 peter
* int64,qword rtti support
Revision 1.201 2000/06/18 18:11:32 peter