X-Git-Url: https://git.jankratochvil.net/?p=captive.git;a=blobdiff_plain;f=src%2FTraceFS%2Fchecktrace.pl;fp=src%2FTraceFS%2Fchecktrace.pl;h=688b65e18a28e61f5dc43d058d2bf388ad11c134;hp=7930d60b1d991be56512f8199d06d7cde7de570c;hb=72446ee0bb51e594f4743cc663903ef7173b1e45;hpb=fc006b3b5472f875fd03cb1b29079a1203010a30

diff --git a/src/TraceFS/checktrace.pl b/src/TraceFS/checktrace.pl
index 7930d60..688b65e 100755
--- a/src/TraceFS/checktrace.pl
+++ b/src/TraceFS/checktrace.pl
@@ -485,6 +485,7 @@ my($Bcb,$Buffer)=@_;
 	delete $Object->{"FileOffset"};
 
 	my $ref=\$CObject->{"map"};
+	# There may exist some pin bcbs even if we are creating the new map bcb.
 	Bcb_checkref $Object,$ref;
 }
 
@@ -531,6 +532,7 @@ my($Bcb,$Buffer)=@_;
 	$Object->{"Buffer"}=tohex(eval($Buffer)-$shift);
 
 	my $ref=\$CObject->{"pin"}{$Object->{"FileOffset"}};
+	# There may not exist map bcb even if we are creating the new pin bcb.
 	Bcb_checkref $Object,$ref;
 }