Removed already disabled 'CcPinMappedData_double' cludge.

diff --git a/src/TraceFS/checktrace.pl b/src/TraceFS/checktrace.pl
index 688b65e..2949af2 100755 (executable)
--- a/src/TraceFS/checktrace.pl
+++ b/src/TraceFS/checktrace.pl
@@ -583,19 +583,6 @@ my($Bcb)=@_;
 
        my $Bcb2=$CObject->{"pin"}{tohex(eval($Object->{"FileOffset"})&~0xFFF)};
        my $BObject2=BObject $Bcb2 if $Bcb2;
-       if ($BObject2 && $BObject2->{"CcPinMappedData_double"}
-                       && eval($BObject2->{"CcPinMappedData_double"})==eval($Object->{"FileOffset"})) {        # unaligned yet
-               my $BmapBuffer=eval($BmapObject->{"Buffer"})+(eval($Object->{"FileOffset"})&~0xFFF);
-               warn "CcPinMappedData-double cludge non-matching new Bcb $Bcb != old Bcb ".$BObject2->{"Bcb"}
-                               if $Bcb ne $BObject2->{"Bcb"};
-               warn "CcPinMappedData-double cludge non-matching Buffer new Bcb $Bcb Buffer $BmapBuffer"
-                                               ." != old Bcb ".$BObject2->{"Bcb"}." Buffer ".$BObject2->{"Buffer"}
-                               if eval($BmapBuffer)!=eval($BObject2->{"Buffer"});
-               return;
-               }
-
-       # It appears as this cludge is not needed:
-#      $Object->{"CcPinMappedData_double"}=$Object->{"FileOffset"};    # unaligned yet
 
        pin_new_leave $Bcb,$Buffer;
 #      print STDERR "$.:".Dumper($Object);
@@ -606,7 +593,6 @@ sub CcSetDirtyPinnedData($$)
 my($Bcb,$Lsn)=@_;
 
        return if !(my $BObject=BObject $Bcb);
-       delete $BObject->{"CcPinMappedData_double"};
 }
 
 sub CcRemapBcb($)
@@ -630,7 +616,6 @@ sub unpin($)
 my($Bcb)=@_;
 
        return if !(my $BObject=BObject $Bcb);
-       delete $BObject->{"CcPinMappedData_double"};
        return if --$BObject->{"ref_count"};
        return if !(my $CObject=CObject $BObject->{"SharedCacheMap"});
        if ($BObject->{"type"} eq "map") {