Lines Matching refs:contract
508 if ($max->{$jcps}) { # contract
593 my $contract = join(CODE_SEP, @decH);
594 @decH = ($contract) if $map->{$contract};
597 my $contract = join(CODE_SEP, @decH);
598 if ($map->{$contract}) {
599 @decH = ($contract);
601 $contract = join(CODE_SEP, @decH[0,1]);
602 $map->{$contract} and @decH = ($contract, $decH[2]);
608 my $contract = join(CODE_SEP, @decH[1,2]);
609 $map->{$contract} and @decH = ($decH[0], $contract);