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

+ dump of tdefoptions.df_unique

Browse Source
This commit is contained in:
florian 2002-10-06 12:25:53 +00:00
parent 1665fc6a60
commit 4337ecfd55
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/utils/ppudump.pp
View File

@ -753,7 +753,8 @@ procedure readcommondef(const s:string);
type type
tdefoption=(df_none, tdefoption=(df_none,
df_has_inittable, { init data has been generated } df_has_inittable, { init data has been generated }
df_has_rttitable { rtti data has been generated } df_has_rttitable, { rtti data has been generated }
df_unique
); );
tdefoptions=set of tdefoption; tdefoptions=set of tdefoption;
var var
@ -764,6 +765,10 @@ begin
write (space,' Type symbol : '); write (space,' Type symbol : ');
readsymref; readsymref;
ppufile.getsmallset(defopts); ppufile.getsmallset(defopts);
if df_unique in defopts then
writeln (space,' Unique type symbol');
if df_has_rttitable in defopts then if df_has_rttitable in defopts then
begin begin
write (space,' RTTI symbol : '); write (space,' RTTI symbol : ');
@ -1860,7 +1865,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.31 2002-09-27 21:22:04 carl Revision 1.32 2002-10-06 12:25:53 florian
+ dump of tdefoptions.df_unique
Revision 1.31 2002/09/27 21:22:04 carl
* update system information * update system information
Revision 1.30 2002/09/26 12:03:54 florian Revision 1.30 2002/09/26 12:03:54 florian