Free memory from afs_events
[openafs.git] / src / afs / DARWIN / osi_sleep.c
index c0f881c..2a4fb27 100644 (file)
@@ -8,35 +8,33 @@
  */
 
 #include <afsconfig.h>
-#include "../afs/param.h"
+#include "afs/param.h"
 
-RCSID("$Header$");
 
-#include "../afs/sysincludes.h" /* Standard vendor system headers */
-#include "../afs/afsincludes.h" /* Afs-based standard headers */
-#include "../afs/afs_stats.h"   /* afs statistics */
-
-
-static int osi_TimedSleep(char *event, afs_int32 ams, int aintok);
+#include "afs/sysincludes.h"   /* Standard vendor system headers */
+#include "afsincludes.h"       /* Afs-based standard headers */
+#include "afs/afs_stats.h"     /* afs statistics */
 
 static char waitV;
 
-
-void afs_osi_InitWaitHandle(struct afs_osi_WaitHandle *achandle)
+void
+afs_osi_InitWaitHandle(struct afs_osi_WaitHandle *achandle)
 {
     AFS_STATCNT(osi_InitWaitHandle);
     achandle->proc = (caddr_t) 0;
 }
 
 /* cancel osi_Wait */
-void afs_osi_CancelWait(struct afs_osi_WaitHandle *achandle)
+void
+afs_osi_CancelWait(struct afs_osi_WaitHandle *achandle)
 {
     caddr_t proc;
 
     AFS_STATCNT(osi_CancelWait);
     proc = achandle->proc;
-    if (proc == 0) return;
-    achandle->proc = (caddr_t) 0;   /* so dude can figure out he was signalled */
+    if (proc == 0)
+       return;
+    achandle->proc = (caddr_t) 0;      /* so dude can figure out he was signalled */
     afs_osi_Wakeup(&waitV);
 }
 
@@ -44,22 +42,24 @@ void afs_osi_CancelWait(struct afs_osi_WaitHandle *achandle)
  * Waits for data on ahandle, or ams ms later.  ahandle may be null.
  * Returns 0 if timeout and EINTR if signalled.
  */
-int afs_osi_Wait(afs_int32 ams, struct afs_osi_WaitHandle *ahandle, int aintok)
+int
+afs_osi_Wait(afs_int32 ams, struct afs_osi_WaitHandle *ahandle, int aintok)
 {
     int code;
     afs_int32 endTime, tid;
-    struct proc *p=current_proc();
+    struct proc *p = current_proc();
 
     AFS_STATCNT(osi_Wait);
-    endTime = osi_Time() + (ams/1000);
+    endTime = osi_Time() + (ams / 1000);
     if (ahandle)
-       ahandle->proc = (caddr_t)p;
+       ahandle->proc = (caddr_t) p;
     do {
        AFS_ASSERT_GLOCK();
        code = 0;
-       code = osi_TimedSleep(&waitV, ams, aintok);
+       code = afs_osi_TimedSleep(&waitV, ams, aintok);
 
-       if (code) break;        /* if something happened, quit now */
+       if (code)
+           break;              /* if something happened, quit now */
        /* if we we're cancelled, quit now */
        if (ahandle && (ahandle->proc == (caddr_t) 0)) {
            /* we've been signalled */
@@ -71,84 +71,157 @@ int afs_osi_Wait(afs_int32 ams, struct afs_osi_WaitHandle *ahandle, int aintok)
 
 
 
-typedef struct afs_event {
-    struct afs_event *next;     /* next in hash chain */
-    char *event;                /* lwp event: an address */
-    int refcount;               /* Is it in use? */
-    int seq;                    /* Sequence number: this is incremented
-                                  by wakeup calls; wait will not return until
-                                  it changes */
-} afs_event_t;
-
-#define HASHSIZE 128
-afs_event_t *afs_evhasht[HASHSIZE];/* Hash table for events */
-#define afs_evhash(event)       (afs_uint32) ((((long)event)>>2) & (HASHSIZE-1));
+#ifdef AFS_DARWIN80_ENV
+#define EVTLOCK_INIT(e) \
+    do { \
+       (e)->lck = lck_mtx_alloc_init(openafs_lck_grp, 0); \
+       (e)->owner = 0; \
+    } while (0)
+#define EVTLOCK_LOCK(e) \
+    do { \
+       osi_Assert((e)->owner != current_thread()); \
+       lck_mtx_lock((e)->lck); \
+       osi_Assert((e)->owner == 0); \
+       (e)->owner = current_thread(); \
+    } while (0)
+#define EVTLOCK_UNLOCK(e) \
+    do { \
+       osi_Assert((e)->owner == current_thread()); \
+       (e)->owner = 0; \
+       lck_mtx_unlock((e)->lck); \
+    } while (0)
+#define EVTLOCK_DESTROY(e) lck_mtx_free((e)->lck, openafs_lck_grp)
+#else
+#define EVTLOCK_INIT(e)
+#define EVTLOCK_LOCK(e)
+#define EVTLOCK_UNLOCK(e)
+#define EVTLOCK_DESTROY(e)
+#endif
+afs_event_t *afs_evhasht[AFS_EVHASHSIZE];      /* Hash table for events */
+#define afs_evhash(event)       (afs_uint32) ((((long)event)>>2) & (AFS_EVHASHSIZE-1));
 int afs_evhashcnt = 0;
 
 /* Get and initialize event structure corresponding to lwp event (i.e. address)
  * */
-static afs_event_t *afs_getevent(char *event)
+static afs_event_t *
+afs_getevent(char *event)
 {
-    afs_event_t *evp, *newp = 0;
+    afs_event_t *evp, *oevp, *newp = 0;
     int hashcode;
 
     AFS_ASSERT_GLOCK();
     hashcode = afs_evhash(event);
     evp = afs_evhasht[hashcode];
     while (evp) {
+       EVTLOCK_LOCK(evp);
        if (evp->event == event) {
            evp->refcount++;
            return evp;
        }
        if (evp->refcount == 0)
            newp = evp;
+       EVTLOCK_UNLOCK(evp);
        evp = evp->next;
     }
     if (!newp) {
-       newp = (afs_event_t *) osi_AllocSmallSpace(sizeof (afs_event_t));
+       newp = (afs_event_t *) osi_AllocSmallSpace(sizeof(afs_event_t));
        afs_evhashcnt++;
        newp->next = afs_evhasht[hashcode];
        afs_evhasht[hashcode] = newp;
        newp->seq = 0;
+       EVTLOCK_INIT(newp);
     }
+    EVTLOCK_LOCK(newp);
     newp->event = event;
     newp->refcount = 1;
     return newp;
 }
 
 /* Release the specified event */
+#ifdef AFS_DARWIN80_ENV
+#define relevent(evp) \
+    do { \
+       osi_Assert((evp)->owner == current_thread()); \
+        (evp)->refcount--; \
+       (evp)->owner = 0; \
+       lck_mtx_unlock((evp)->lck); \
+    } while (0)
+#else
 #define relevent(evp) ((evp)->refcount--)
+#endif
 
 
-void afs_osi_Sleep(void *event)
+void
+afs_osi_Sleep(void *event)
 {
     struct afs_event *evp;
     int seq;
 
     evp = afs_getevent(event);
+#ifdef AFS_DARWIN80_ENV
+     AFS_ASSERT_GLOCK();
+     AFS_GUNLOCK();
+#endif
     seq = evp->seq;
     while (seq == evp->seq) {
+#ifdef AFS_DARWIN80_ENV
+       evp->owner = 0;
+       msleep(event, evp->lck, PVFS, "afs_osi_Sleep", NULL);
+       evp->owner = current_thread();
+#else
        AFS_ASSERT_GLOCK();
        AFS_GUNLOCK();
-#ifdef AFS_DARWIN14_ENV
-        /* this is probably safe for all versions, but testing is hard */
-        sleep(event, PVFS);
-#else
-       assert_wait((event_t)event, 0);
-       thread_block(0);
-#endif
+       /* this is probably safe for all versions, but testing is hard */
+       sleep(event, PVFS);
        AFS_GLOCK();
+#endif
     }
     relevent(evp);
+#ifdef AFS_DARWIN80_ENV
+    AFS_GLOCK();
+#endif
 }
 
-int afs_osi_SleepSig(void *event)
+void 
+afs_osi_fullSigMask()
+{
+#ifndef AFS_DARWIN80_ENV
+    struct uthread *user_thread = (struct uthread *)get_bsdthread_info(current_act());
+       
+    /* Protect original sigmask */
+    if (!user_thread->uu_oldmask) {
+       /* Back up current sigmask */
+       user_thread->uu_oldmask = user_thread->uu_sigmask;
+       /* Mask all signals */
+       user_thread->uu_sigmask = ~(sigset_t)0;
+    }
+#endif
+}
+
+void 
+afs_osi_fullSigRestore()
+{
+#ifndef AFS_DARWIN80_ENV
+    struct uthread *user_thread = (struct uthread *)get_bsdthread_info(current_act());
+       
+    /* Protect original sigmask */
+    if (user_thread->uu_oldmask) {
+       /* Restore original sigmask */
+       user_thread->uu_sigmask = user_thread->uu_oldmask;
+       /* Clear the oldmask */
+       user_thread->uu_oldmask = (sigset_t)0;
+    }
+#endif
+}
+
+int
+afs_osi_SleepSig(void *event)
 {
     afs_osi_Sleep(event);
     return 0;
 }
 
-/* osi_TimedSleep
+/* afs_osi_TimedSleep
  * 
  * Arguments:
  * event - event to sleep on
@@ -157,64 +230,101 @@ int afs_osi_SleepSig(void *event)
  *
  * Returns 0 if timeout and EINTR if signalled.
  */
-static int osi_TimedSleep(char *event, afs_int32 ams, int aintok)
+int
+afs_osi_TimedSleep(void *event, afs_int32 ams, int aintok)
 {
     int code = 0;
     struct afs_event *evp;
-    int ticks,seq;
+    int seq;
     int prio;
+#ifdef AFS_DARWIN80_ENV
+    struct timespec ts;
+#else
+    int ticks;
+#endif
 
-    ticks = ( ams * afs_hz )/1000;
 
 
     evp = afs_getevent(event);
-    seq=evp->seq;
+    seq = evp->seq;
     AFS_GUNLOCK();
-#ifdef AFS_DARWIN14_ENV
+#ifdef AFS_DARWIN80_ENV
+    if (aintok)
+        prio = PCATCH | PPAUSE;
+    else
+        prio = PVFS;
+    ts.tv_sec = ams / 1000;
+    ts.tv_nsec = (ams % 1000) * 1000000;
+    evp->owner = 0;
+    code = msleep(event, evp->lck, prio, "afs_osi_TimedSleep", &ts);
+    evp->owner = current_thread();
+#else
+    ticks = (ams * afs_hz) / 1000;
     /* this is probably safe for all versions, but testing is hard. */
     /* using tsleep instead of assert_wait/thread_set_timer/thread_block
-       allows shutdown to work in 1.4 */
+     * allows shutdown to work in 1.4 */
     /* lack of PCATCH does *not* prevent signal delivery, neither does 
-       a low priority. We would need to deal with ERESTART here if we 
-       wanted to mess with p->p_sigmask, and messing with p_sigignore is
-       not the way to go.... (someone correct me if I'm wrong)
-    */
+     * a low priority. We would need to deal with ERESTART here if we 
+     * wanted to mess with p->p_sigmask, and messing with p_sigignore is
+     * not the way to go.... (someone correct me if I'm wrong)
+     */
     if (aintok)
-       prio=PCATCH|PPAUSE;
+       prio = PCATCH | PPAUSE;
     else
-       prio=PVFS;
-    code=tsleep(event, prio, "afs_osi_TimedSleep", ticks);
-#else 
-    assert_wait((event_t)event, aintok ? THREAD_ABORTSAFE : THREAD_UNINT);
-    thread_set_timer(ticks, NSEC_PER_SEC / hz);
-    thread_block(0);
-    code=0;
-#endif
+       prio = PVFS;
+    code = tsleep(event, prio, "afs_osi_TimedSleep", ticks);
     AFS_GLOCK();
+#endif
     if (seq == evp->seq)
        code = EINTR;
-    
+
     relevent(evp);
+#ifdef AFS_DARWIN80_ENV
+    AFS_GLOCK();
+#endif
     return code;
 }
 
 
-int afs_osi_Wakeup(void *event)
+int
+afs_osi_Wakeup(void *event)
 {
     struct afs_event *evp;
-    int ret=1;
+    int ret = 1;
 
     evp = afs_getevent(event);
     if (evp->refcount > 1) {
-       evp->seq++;    
-#ifdef AFS_DARWIN14_ENV
-    /* this is probably safe for all versions, but testing is hard. */
-        wakeup(event);
-#else
-       thread_wakeup((event_t)event);
-#endif
-       ret=0;
+       evp->seq++;
+       /* this is probably safe for all versions, but testing is hard. */
+       wakeup(event);
+       ret = 0;
     }
     relevent(evp);
     return ret;
 }
+
+void
+shutdown_osisleep(void) {
+    struct afs_event *evp, *nevp, **pevpp;
+    int i;
+    for (i=0; i < AFS_EVHASHSIZE; i++) {
+       evp = afs_evhasht[i];
+       pevpp = &afs_evhasht[i];
+       while (evp) {
+           EVTLOCK_LOCK(evp);
+           nevp = evp->next;
+           if (evp->refcount == 0) {
+               EVTLOCK_DESTROY(evp);
+               *pevpp = evp->next;
+               osi_FreeSmallSpace(evp);
+               afs_evhashcnt--;
+           } else {
+               afs_warn("nonzero refcount in shutdown_osisleep()\n");
+               EVTLOCK_UNLOCK(evp);
+               pevpp = &evp->next;
+           }
+           evp = nevp;
+       }
+    }
+}
+