reonu$ (6) --- on-unit for the REENTER$ condition        02/24/82


            _C_a_l_l_i_n_g _I_n_f_o_r_m_a_t_i_o_n

                 subroutine reonu$ (ptr)
                 pointer ptr

                 Library:  vswtlb (standard Subsystem library)


            _F_u_n_c_t_i_o_n

                 'Reonu$'  is called from the Primos condition mechanism when
                 the Primos internal command REN is given.  'Reonu$'  returns
                 to the caller who most recently declared 'reonu$' as its on-
                 unit for the "REENTER$" condition.


            _I_m_p_l_e_m_e_n_t_a_t_i_o_n

                 Using   information   passed  by  the  condition  mechanism,
                 'reonu$' finds the stack frame of the declarer  of  its  on-
                 unit and unwinds the stack with a call to the Primos routine
                 PL1$NL.


            _C_a_l_l_s

                 Primos pl1$nl


            _S_e_e _A_l_s_o

                 sys$$ (2)


























            reonu$ (6)                    - 1 -                    reonu$ (6)