-:    0:Source:/home/MPI/testing/mpich2/mpich2/src/mpid/common/sock/poll/sock_init.i
        -:    0:Graph:sock.gcno
        -:    0:Data:-
        -:    0:Runs:0
        -:    0:Programs:0
        -:    1:/* -*- Mode: C; c-basic-offset:4 ; -*- */
        -:    2:
        -:    3:/*
        -:    4: *  (C) 2001 by Argonne National Laboratory.
        -:    5: *      See COPYRIGHT in top-level directory.
        -:    6: */
        -:    7:
        -:    8:/* FIXME: The usual missing documentation (what are these routines for?
        -:    9:   preconditions?  who calls? post conditions? */
        -:   10:#undef FUNCNAME
        -:   11:#define FUNCNAME MPIDU_Sock_init
        -:   12:#undef FCNAME
        -:   13:#define FCNAME MPIU_QUOTE(FUNCNAME)
        -:   14:int MPIDU_Sock_init(void)

    #####:   15:{
        -:   16:    MPIDI_STATE_DECL(MPID_STATE_MPIDU_SOCK_INIT);
        -:   17:
        -:   18:    MPIDI_FUNC_ENTER(MPID_STATE_MPIDU_SOCK_INIT);
        -:   19:
    #####:   20:    MPIDU_Socki_initialized++;
        -:   21:

        -:   22:    MPIDI_FUNC_EXIT(MPID_STATE_MPIDU_SOCK_INIT);

    #####:   23:    return MPI_SUCCESS;
        -:   24:}
        -:   25:
        -:   26:/* FIXME: Who calls?  When?  Should this be a finalize handler instead? */
        -:   27:#undef FUNCNAME
        -:   28:#define FUNCNAME MPIDU_Sock_finalize
        -:   29:#undef FCNAME
        -:   30:#define FCNAME MPIU_QUOTE(FUNCNAME)
        -:   31:int MPIDU_Sock_finalize(void)
    #####:   32:{
    #####:   33:    int mpi_errno = MPI_SUCCESS;
        -:   34:    MPIDI_STATE_DECL(MPID_STATE_MPIDU_SOCK_FINALIZE);
        -:   35:
        -:   36:    MPIDU_SOCKI_VERIFY_INIT(mpi_errno, fn_exit);
        -:   37:    
        -:   38:    MPIDI_FUNC_ENTER(MPID_STATE_MPIDU_SOCK_FINALIZE);
        -:   39:
    #####:   40:    MPIDU_Socki_initialized--;
        -:   41:
    #####:   42:    if (MPIDU_Socki_initialized == 0)
        -:   43:    {
    #####:   44:	MPIDU_Socki_free_eventq_mem();
        -:   45:    }
        -:   46:
        -:   47:#ifdef USE_SOCK_VERIFY
        -:   48:  fn_exit:
        -:   49:#endif

        -:   50:    MPIDI_FUNC_EXIT(MPID_STATE_MPIDU_SOCK_FINALIZE);

    #####:   51:    return mpi_errno;
        -:   52:}