import errors

[Szymon Guz <guzo@stud.ics.p.lodz.pl>]

Hi,
I'm trying to make a binding to a dll library written in C++ and I'va 
got a problem. I have two types in one package and two procedures that 
are named the same:

type A;
type B is new A;

procedure A(this:A_Access);
procedure A(this:B_Access);

and now I want to import them from the dll library, but writing sth like 
  this:

pragma Import(C,A,"AAA");
pragma Import(C,A,"BBB");

generates some compiler errors, so I tried to do it in this way:
the body of the procedures looks like this:

procedure A(this:A_Access) is
   procedure THIS_A(this:A_Access);
   pragma Import(C,THIS_A,"AAA");
begin
   THIS_A(this);
end;

procedure A(this:B_Access) is
   procedure THIS_A(this:B_Access);
   pragma Import(C,THIS_A,"BBB");
begin
   THIS_A(this);
end;

I thought that it should work fine, but now I see that there is a 
compiler error which I don't undestand:

undefined reference to 'AAA'

So i've got two questions:
what do I do wrong that I cannot import the functions in the *.adb file 
and I can in the *.ads file ?
how can I import the functions ?