+parse also 'object header reference count' of dumped 'FileObject'
authorshort <>
Wed, 13 Aug 2003 08:45:00 +0000 (08:45 +0000)
committershort <>
Wed, 13 Aug 2003 08:45:00 +0000 (08:45 +0000)
src/TraceFS/checktrace.pl

index 9c1964d..61c63e8 100755 (executable)
@@ -1151,7 +1151,7 @@ while (<>) {
                push @{$LastLeave{$ProcessThread}},$Object;
                }
        elsif (my($FileObject,$FileName,$Flags,$SectionObjectPointer,$SharedCacheMap)=
-                       /^FileObject=($hex): FileName=(?:NULL|'(.*)'),Flags=($hex),SectionObjectPointer=($hex),->SharedCacheMap=($hex)/) {
+                       /^FileObject=($hex): FileName=(?:NULL|'(.*)'),(?:ref=[+-]\d+,)?Flags=($hex),SectionObjectPointer=($hex),->SharedCacheMap=($hex)/) {
                my $aref=$EnterLeave{$ProcessThread};
                warn "Empty stack during 'data' line" if !($Object=${$aref}[$#$aref]);
                my $data={