From: Howard Chu Date: Tue, 12 Oct 2010 11:02:59 +0000 (+0000) Subject: ITS#6669 remove obsolete SunOS4 LWP support X-Git-Tag: MIGRATION_CVS2GIT~463 X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=1c9853c67402faef6d70a3a7e2e02d687e75e7c6;p=openldap ITS#6669 remove obsolete SunOS4 LWP support --- diff --git a/libraries/libldap_r/thr_lwp.c b/libraries/libldap_r/thr_lwp.c deleted file mode 100644 index 515ca38260..0000000000 --- a/libraries/libldap_r/thr_lwp.c +++ /dev/null @@ -1,378 +0,0 @@ -/* thr_lwp.c - wrappers around SunOS LWP threads */ -/* $OpenLDAP$ */ -/* This work is part of OpenLDAP Software . - * - * Copyright 1998-2010 The OpenLDAP Foundation. - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted only as authorized by the OpenLDAP - * Public License. - * - * A copy of this license is available in file LICENSE in the - * top-level directory of the distribution or, alternatively, at - * . - */ - -/* BUGS: - * - slurpd calls the get_stack/free_stack functions. Should be fixed, so - * they can become static. - */ - -#include "portable.h" - -#if defined( HAVE_LWP ) - -/************* - * * - * SunOS LWP * - * * - *************/ - -/* This implementation NEEDS WORK. It currently does not compile */ - -#include - -#include -#include - -#include "ldap-int.h" - -#include "ldap_pvt_thread.h" /* Get the thread interface */ -#define LDAP_THREAD_IMPLEMENTATION -#include "ldap_thr_debug.h" /* May rename the symbols defined below */ - -#include -#include - -#define MAX_STACK 51200 -#define MAX_THREADS 20 - -/* - * Initialize LWP by spinning of a schedular - */ -int -ldap_int_thread_initialize( void ) -{ - thread_t tid; - stkalign_t *stack; - int stackno; - - if (( stack = get_stack( &stackno )) == NULL ) { - return -1; - } - - lwp_create( &tid, lwp_scheduler, MINPRIO, 0, stack, 1, stackno ); - return 0; -} - -int -ldap_int_thread_destroy( void ) -{ - /* need to destroy lwp_scheduler thread and clean up private - variables */ - return 0; -} - -struct stackinfo { - int stk_inuse; - stkalign_t *stk_stack; -}; - -static struct stackinfo *stacks; - -static stkalign_t * ldap_int_thread_get_stack( int *stacknop ) -{ - int i; - - if ( stacks == NULL ) { - stacks = (struct stackinfo *) LDAP_CALLOC( 1, MAX_THREADS * - sizeof(struct stackinfo) ); - - if( stacks == NULL ) { - Debug( LDAP_DEBUG_ANY, "stacks allocation failed", - 0, 0, 0 ); - return NULL; - } - } - - for ( i = 0; i < MAX_THREADS; i++ ) { - if ( stacks[i].stk_inuse == 0 ) { - break; - } - } - - if ( i == MAX_THREADS ) { - Debug( LDAP_DEBUG_ANY, - "no more stacks (max %d) - increase MAX_THREADS for more", - MAX_THREADS, 0, 0 ); - return( NULL ); - } - - if ( stacks[i].stk_stack == NULL ) { - stacks[i].stk_stack = (stkalign_t *) LDAP_MALLOC( - (MAX_STACK / sizeof(stkalign_t) + 1 ) - * sizeof(stkalign_t) ); - - if( stacks[i].stk_stack == NULL ) { - Debug( LDAP_DEBUG_ANY, "stack allocation failed", - 0, 0, 0 ); - return( NULL ); - } - } - - *stacknop = i; - stacks[i].stk_inuse = 1; - return( stacks[i].stk_stack + MAX_STACK / sizeof(stkalign_t) ); -} - -static void -ldap_int_thread_free_stack( int stackno ) -{ - if ( stackno < 0 || stackno > MAX_THREADS ) { - Debug( LDAP_DEBUG_ANY, "free_stack of bogus stack %d\n", - stackno, 0, 0 ); - } - - stacks[stackno].stk_inuse = 0; -} - -static void -lwp_create_stack( void *(*func)(), void *arg, int stackno ) -{ - (*func)( arg ); - - ldap_int_thread_free_stack( stackno ); -} - -int -ldap_pvt_thread_create( ldap_pvt_thread_t * thread, - int detach, - void *(*start_routine)( void *), - void *arg) -{ - stkalign_t *stack; - int stackno; - - if ( (stack = ldap_int_thread_get_stack( &stackno )) == NULL ) { - return( -1 ); - } - return( lwp_create( thread, lwp_create_stack, MINPRIO, 0, - stack, 3, start_routine, arg, stackno ) ); -} - -void -ldap_pvt_thread_exit( void *retval ) -{ - lwp_destroy( SELF ); -} - -unsigned int -ldap_pvt_thread_sleep( - unsigned int interval -) -{ - thread_t mylwp; - tl_t *t, *nt; - time_t now; - - - if ( lwp_self( &mylwp ) < 0 ) { - return -1; - } - - time( &now ); - - mon_enter( &sglob->tsl_mon ); - - if ( sglob->tsl_list != NULL ) { - for ( t = sglob->tsl_list; t != NULL; t = t->tl_next ) { - if ( SAMETHREAD( t->tl_tid, mylwp )) { - /* We're already sleeping? */ - t->tl_wake = now + interval; - mon_exit( &sglob->tsl_mon ); - lwp_suspend( mylwp ); - return 0; - } - } - } - - nt = (tl_t *) LDAP_MALLOC( sizeof( tl_t )); - - if( nt == NULL ) return -1; - - nt->tl_next = sglob->tsl_list; - nt->tl_wake = now + interval; - nt->tl_tid = mylwp; - sglob->tsl_list = nt; - - mon_exit( &sglob->tsl_mon ); - - lwp_suspend( mylwp ); - return 0; -} - -/* - * The lwp_scheduler thread periodically checks to see if any threads - * are due to be resumed. If there are, it resumes them. Otherwise, - * it computes the lesser of ( 1 second ) or ( the minimum time until - * a thread need to be resumed ) and puts itself to sleep for that amount - * of time. - */ -static void -lwp_scheduler( - int stackno -) -{ - time_t now, min; - struct timeval interval; - tl_t *t; - - while ( !sglob->slurpd_shutdown ) { - mon_enter( &sglob->tsl_mon ); - - time( &now ); - min = 0L; - if ( sglob->tsl_list != NULL ) { - for ( t = sglob->tsl_list; t != NULL; t = t->tl_next ) { - if (( t->tl_wake > 0L ) && ( t->tl_wake < now )) { - lwp_resume( t->tl_tid ); - t->tl_wake = 0L; - } - - if (( t->tl_wake > now ) && ( t->tl_wake < min )) { - min = t->tl_wake; - } - } - } - - mon_exit( &sglob->tsl_mon ); - - interval.tv_usec = 0L; - if ( min == 0L ) { - interval.tv_sec = 1L; - } else { - interval.tv_sec = min; - } - - lwp_sleep( &interval ); - } - - mon_enter( &sglob->tsl_mon ); - - for ( t = sglob->tsl_list; t != NULL; t = t->tl_next ) { - lwp_resume( t->tl_tid ); - } - - mon_exit( &sglob->tsl_mon ); - - free_stack( stackno ); -} - -int -ldap_pvt_thread_join( ldap_pvt_thread_t thread, void **thread_return ) -{ - lwp_join( thread ); - return 0; -} - -int -ldap_pvt_thread_kill( ldap_pvt_thread_t thread, int signo ) -{ - return 0; -} - -int -ldap_pvt_thread_yield( void ) -{ - lwp_yield( SELF ); - return 0; -} - -int -ldap_pvt_thread_cond_init( ldap_pvt_thread_cond_t *cond ) -{ - /* - * lwp cv_create requires the monitor id be passed in - * when the cv is created, pthreads passes it when the - * condition is waited for. so, we fake the creation - * here and actually do it when the cv is waited for - * later. - */ - - cond->lcv_created = 0; - - return( 0 ); -} - -int -ldap_pvt_thread_cond_signal( ldap_pvt_thread_cond_t *cond ) -{ - return( cond->lcv_created ? cv_notify( cv->lcv_cv ) : 0 ); -} - -int -ldap_pvt_thread_cond_wait( ldap_pvt_thread_cond_t *cond, - ldap_pvt_thread_mutex_t *mutex ) -{ - if ( ! cond->lcv_created ) { - cv_create( &cond->lcv_cv, *mutex ); - cond->lcv_created = 1; - } - - return( cv_wait( cond->lcv_cv ) ); -} - -int -ldap_pvt_thread_mutex_init( ldap_pvt_thread_mutex_t *mutex ) -{ - return( mon_create( mutex ) ); -} - -int -ldap_pvt_thread_mutex_destroy( ldap_pvt_thread_mutex_t *mutex ) -{ - return( mon_destroy( *mutex ) ); -} - -int -ldap_pvt_thread_mutex_lock( ldap_pvt_thread_mutex_t *mutex ) -{ - return( mon_enter( *mutex ) ); -} - -int -ldap_pvt_thread_mutex_unlock( ldap_pvt_thread_mutex_t *mutex ) -{ - return( mon_exit( *mutex ) ); -} - -int -ldap_pvt_thread_mutex_trylock( ldap_pvt_thread_mutex_t *mp ) -{ - return( mon_cond_enter( *mp ) ); -} - -int -ldap_pvt_thread_cond_destroy( ldap_pvt_thread_cond_t *cv ) -{ - return( cv->lcv_created ? cv_destroy( cv->lcv_cv ) : 0 ); -} - -int -ldap_pvt_thread_cond_broadcast( ldap_pvt_thread_cond_t *cv ) -{ - return( cv->lcv_created ? cv_broadcast( cv->lcv_cv ) : 0 ); -} - -ldap_pvt_thread_t -ldap_pvt_thread_self( void ) -{ - thread_t mylwp; - - lwp_self( &mylwp ); - - return mylwp; -} - -#endif /* HAVE_LWP */