#!/usr/bin/perl -w
use lib '/gpfs/haifa-p4/08/tm/team/hagaih/perlWithC/trans/blib/arch/auto/trans';
use lib '/gpfs/haifa-p4/08/tm/team/hagaih/perlWithC/trans/blib/lib';
use trans;
use Math::BigInt;
use Data::Dumper;

my $lpid=0;
my $pid=5;
my $raAddress=Math::BigInt->new("0x00000000_01F560C0");
my $result=trans::findEAsForGivenRAAndContext($raAddress, $lpid, $pid);
print $result->addressCount;