paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 13:31:20 +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
tdefoption=(df_none,
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;
var
@ -764,6 +765,10 @@ begin
write (space,' Type symbol : ');
readsymref;
ppufile.getsmallset(defopts);
if df_unique in defopts then
writeln (space,' Unique type symbol');
if df_has_rttitable in defopts then
begin
write (space,' RTTI symbol : ');
@ -1860,7 +1865,10 @@ begin
end.
{
$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
Revision 1.30 2002/09/26 12:03:54 florian