Include dependency graph for zero_fork.c:

Functions
void	process_init (void)
void	process_fini (void)
int	main (int argc, char **argv)
Variables
int	EventSet1 = PAPI_NULL
int	PAPI_event
int	mask1
int	num_events1 = 2
long long	elapsed_us
long long	elapsed_cyc
long long **	values
char	event_name [PAPI_MAX_STR_LEN]
int	retval
int	num_tests = 1

Function Documentation

int main	(	int	argc,
		char **	argv
	)

Definition at line 84 of file zero_fork.c.

{
    int flops1;
    int retval;

    tests_quiet( argc, argv );  /* Set TESTS_QUIET variable */
# if (defined(__ALPHA) && defined(__osf__))
    test_skip( __FILE__, __LINE__, "main: fork not supported.", 0 );
#endif

    printf( "This tests if PAPI_library_init(),2*fork(),PAPI_library_init() works.\n" );
    /* Initialize PAPI for this process */
    process_init(  );
    flops1 = 1000000;
    if ( fork(  ) == 0 ) {
        /* Initialize PAPI for the child process */
        process_init(  );
        /* Let the child process do work */
        do_flops( flops1 );
        /* Measure the child process */
        process_fini(  );
        exit( 0 );
    }
    flops1 = 2000000;
    if ( fork(  ) == 0 ) {
        /* Initialize PAPI for the child process */
        process_init(  );
        /* Let the child process do work */
        do_flops( flops1 );
        /* Measure the child process */
        process_fini(  );
        exit( 0 );
    }
    /* Let this process do work */
    flops1 = 4000000;
    do_flops( flops1 );

    /* Wait for child to finish */
    wait( &retval );
    /* Wait for child to finish */
    wait( &retval );

    /* Measure this process */
    process_fini(  );

    test_pass( __FILE__, NULL, 0 );
    return 0;
}

Here is the call graph for this function:

void process_fini ( void )

Definition at line 58 of file zero_fork.c.

{
    retval = PAPI_stop( EventSet1, values[0] );
    if ( retval != PAPI_OK ) {
        test_fail( __FILE__, __LINE__, "PAPI_stop", retval );
    }

    elapsed_us = PAPI_get_real_usec(  ) - elapsed_us;
    elapsed_cyc = PAPI_get_real_cyc(  ) - elapsed_cyc;

    remove_test_events( &EventSet1, mask1 );

    printf( "Process %d %-12s : \t%lld\n", ( int ) getpid(  ), event_name,
            values[0][1] );
    printf( "Process %d PAPI_TOT_CYC : \t%lld\n", ( int ) getpid(  ),
            values[0][0] );
    printf( "Process %d Real usec    : \t%lld\n", ( int ) getpid(  ),
            elapsed_us );
    printf( "Process %d Real cycles  : \t%lld\n", ( int ) getpid(  ),
            elapsed_cyc );

    free_test_space( values, num_tests );

}

Here is the call graph for this function:

Here is the caller graph for this function:

void process_init ( void )

Definition at line 25 of file zero_fork.c.

{
    printf( "Process %d \n", ( int ) getpid(  ) );

    /* Initialize PAPI library */
    retval = PAPI_library_init( PAPI_VER_CURRENT );
    if ( retval != PAPI_VER_CURRENT ) {
       test_fail( __FILE__, __LINE__, "PAPI_library_init", retval );
    }

    /* add PAPI_TOT_CYC and one of the events in 
       PAPI_FP_INS, PAPI_FP_OPS or PAPI_TOT_INS, 
       depends on the availability of the event 
       on the platform                           */
    EventSet1 = add_two_events( &num_events1, &PAPI_event, &mask1 );

    values = allocate_test_space( num_tests, num_events1 );

    retval = PAPI_event_code_to_name( PAPI_event, event_name );
    if ( retval != PAPI_OK ) {
       test_fail( __FILE__, __LINE__, "PAPI_event_code_to_name", retval );
    }

    elapsed_us = PAPI_get_real_usec(  );
    elapsed_cyc = PAPI_get_real_cyc(  );

    retval = PAPI_start( EventSet1 );
    if ( retval != PAPI_OK ) {
        test_fail( __FILE__, __LINE__, "PAPI_start", retval );
    }
}