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;
}
$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;
}