separate (RPC) procedure RPC_SM_Disable_Allocate( Status : out DCE_Status.Status_Type) is -- **************************************************************************** procedure rpc_sm_disable_allocate(status : System.Address); pragma INTERFACE (C, rpc_sm_disable_allocate); Local_Status : DCE_Status.Status_Type; begin rpc_sm_disable_allocate(Local_Status'ADDRESS); Status := Local_Status; end RPC_SM_Disable_Allocate;