git://git.jankratochvil.net
/
captive.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixed message typo.
[captive.git]
/
src
/
TraceFS
/
checktrace.pl
diff --git
a/src/TraceFS/checktrace.pl
b/src/TraceFS/checktrace.pl
index
9c1964d
..
61c63e8
100755
(executable)
--- a/
src/TraceFS/checktrace.pl
+++ b/
src/TraceFS/checktrace.pl
@@
-1151,7
+1151,7
@@
while (<>) {
push @{$LastLeave{$ProcessThread}},$Object;
}
elsif (my($FileObject,$FileName,$Flags,$SectionObjectPointer,$SharedCacheMap)=
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={
my $aref=$EnterLeave{$ProcessThread};
warn "Empty stack during 'data' line" if !($Object=${$aref}[$#$aref]);
my $data={