In browsing through the latest changes to the ppudump program, I noticed something that looks to be an error. It causes any object/class with virtual method(s) to also be flagged as being "IsForward". The following patch corrects it

Index: ppudump.pp
=================================================================== --- ppudump.pp (revision 3919)
+++ ppudump.pp (working copy)
@@ -1165,7 +1165,7 @@
const
symopts=13;
symopt : array[1..symopts] of tsymopt=(
- (mask:oo_has_virtual; str:'IsForward'),
+ (mask:oo_is_forward; str:'IsForward'), (mask:oo_has_virtual; str:'HasVirtual'),
(mask:oo_has_private; str:'HasPrivate'),
(mask:oo_has_protected; str:'HasProtected'),