mirror of
https://github.com/AdaCore/PolyORB.git
synced 2026-02-12 13:01:15 -08:00
13 lines
228 B
Ada
13 lines
228 B
Ada
with Types; use Types;
|
|
|
|
package Ptypes is
|
|
|
|
pragma Remote_Call_Interface;
|
|
|
|
type Node_Access is access all Node_Type'Class;
|
|
|
|
procedure Register (A : Node_Access);
|
|
function Get_Node return Node_Access;
|
|
|
|
end Ptypes;
|