Converting a handle to an access type

funkey_monkey

Working in Ada95 - I'm passing a handle from packageA into packageB.Child.

I'm calling (anonymised representation)

packageB.Child.operation1(this => theDAta,
                          msg1 => theMsg1);

I'm getting a compilation error in packageA because it is passing a handle into packageB.Child and packageB.Child is expecting (needing) an access type). It should be noted that theData is a local defined handle for packageB.

error 1: expected an access type with designated private type "Object" define in packageB.Child.ads

error 2: found type "Handle" defined at packageB.ads

In packageB.Child I've defined the operation as:

procedure operation1(this    : access Object;
                     msgData : Type_Name);

PackageB.Child calls into the superclass (packageB):

SuperClass.operation1(this    => SuperClass.Object(this.all)'Access,
                      msgData => msgData);

My understanding is that as theData is a local it cannot be made into an access type. I don't want to pass the handle upwards into packageB as the number of sinks for theData means a large number of updates - and still doesn't resolve the fact that I need to switch from handle to access somewhere in the chain.

How do I change the handle into an access type?

I'm sure its simple enough, but I'm new to OOP and Ada doesn't have much of an online presence.

TIA.

funkey_monkey

Ingore - got it resolved.