irix-afs-osi-credp-declared-elsewhere-20040311
[openafs.git] / src / afs / afs_osi.c
1 /*
2  * Copyright 2000, International Business Machines Corporation and others.
3  * All Rights Reserved.
4  *
5  * This software has been released under the terms of the IBM Public
6  * License.  For details, see the LICENSE file in the top-level source
7  * directory or online at http://www.openafs.org/dl/license10.html
8  */
9
10 #include <afsconfig.h>
11 #include "afs/param.h"
12
13 RCSID
14     ("$Header$");
15
16 #include "afs/sysincludes.h"    /* Standard vendor system headers */
17 #include "afsincludes.h"        /* Afs-based standard headers */
18 #include "afs/afs_stats.h"      /* afs statistics */
19 #ifdef AFS_AIX_ENV
20 #include <sys/adspace.h>        /* for vm_att(), vm_det() */
21 #endif
22
23 static char memZero;            /* address of 0 bytes for kmem_alloc */
24
25 struct osimem {
26     struct osimem *next;
27 };
28
29 /* osi_Init -- do once per kernel installation initialization.
30  *     -- On Solaris this is called from modload initialization.
31  *     -- On AIX called from afs_config.
32  *     -- On HP called from afsc_link.
33  *     -- On SGI called from afs_init. */
34
35 #ifdef AFS_SGI53_ENV
36 lock_t afs_event_lock;
37 #endif
38
39 #ifdef AFS_SGI64_ENV
40 flid_t osi_flid;
41 #endif
42
43 #ifndef AFS_SGI_ENV
44 /* I'm unsure where it's really coming from on Irix; afs_osi.h conflicts... */
45 struct AFS_UCRED *afs_osi_credp;
46 #endif
47
48 void
49 osi_Init(void)
50 {
51     static int once = 0;
52     if (once++ > 0)             /* just in case */
53         return;
54 #if     defined(AFS_HPUX_ENV)
55     osi_InitGlock();
56 #else /* AFS_HPUX_ENV */
57 #if defined(AFS_GLOBAL_SUNLOCK)
58 #if defined(AFS_SGI62_ENV)
59     mutex_init(&afs_global_lock, MUTEX_DEFAULT, "afs_global_lock");
60 #elif defined(AFS_OSF_ENV)
61     usimple_lock_init(&afs_global_lock);
62     afs_global_owner = (thread_t) 0;
63 #elif defined(AFS_FBSD50_ENV)
64     mtx_init(&afs_global_mtx, "AFS global lock", NULL, MTX_DEF);
65 #elif defined(AFS_DARWIN_ENV) || defined(AFS_XBSD_ENV)
66     lockinit(&afs_global_lock, PLOCK, "afs global lock", 0, 0);
67     afs_global_owner = 0;
68 #elif defined(AFS_AIX41_ENV)
69     lock_alloc((void *)&afs_global_lock, LOCK_ALLOC_PIN, 1, 1);
70     simple_lock_init((void *)&afs_global_lock);
71 #elif !defined(AFS_LINUX22_ENV)
72     /* Linux initialization in osi directory. Should move the others. */
73     mutex_init(&afs_global_lock, "afs_global_lock", MUTEX_DEFAULT, NULL);
74 #endif
75     /* afs_rxglobal_lock is initialized in rx_Init. */
76 #endif /* AFS_GLOBAL_SUNLOCK */
77 #endif /* AFS_HPUX_ENV */
78
79     if (!afs_osicred_initialized) {
80 #ifdef AFS_XBSD_ENV
81         /* Can't just invent one, must use crget() because of mutex */
82         afs_osi_credp = crdup(osi_curcred());
83 #else
84         memset(&afs_osi_cred, 0, sizeof(struct AFS_UCRED));
85         crhold(&afs_osi_cred);  /* don't let it evaporate */
86         afs_osi_credp = &afs_osi_cred;
87 #endif
88         afs_osicred_initialized = 1;
89     }
90 #ifdef AFS_SGI64_ENV
91     osi_flid.fl_pid = osi_flid.fl_sysid = 0;
92 #endif
93
94     init_et_to_sys_error();
95 }
96
97 int
98 osi_Active(register struct vcache *avc)
99 {
100     AFS_STATCNT(osi_Active);
101 #if defined(AFS_SUN_ENV) || defined(AFS_AIX_ENV) || defined(AFS_OSF_ENV) || defined(AFS_SUN5_ENV) || (AFS_LINUX20_ENV) || defined(AFS_DARWIN_ENV) || defined(AFS_XBSD_ENV)
102     if ((avc->opens > 0) || (avc->states & CMAPPED))
103         return 1;               /* XXX: Warning, verify this XXX  */
104 #elif   defined(AFS_MACH_ENV)
105     if (avc->opens > 0
106         || ((avc->v.v_flag & VTEXT) && !inode_uncache_try(avc)))
107         return 1;
108 #elif defined(AFS_SGI_ENV)
109     if ((avc->opens > 0) || AFS_VN_MAPPED(AFSTOV(avc)))
110         return 1;
111 #else
112     if (avc->opens > 0 || (AFSTOV(avc)->v_flag & VTEXT))
113         return (1);
114 #endif
115     return 0;
116 }
117
118 /* this call, unlike osi_FlushText, is supposed to discard caches that may
119    contain invalid information if a file is written remotely, but that may
120    contain valid information that needs to be written back if the file is
121    being written locally.  It doesn't subsume osi_FlushText, since the latter
122    function may be needed to flush caches that are invalidated by local writes.
123
124    avc->pvnLock is already held, avc->lock is guaranteed not to be held (by
125    us, of course).
126 */
127 void
128 osi_FlushPages(register struct vcache *avc, struct AFS_UCRED *credp)
129 {
130     afs_hyper_t origDV;
131     ObtainReadLock(&avc->lock);
132     /* If we've already purged this version, or if we're the ones
133      * writing this version, don't flush it (could lose the
134      * data we're writing). */
135     if ((hcmp((avc->m.DataVersion), (avc->mapDV)) <= 0)
136         || ((avc->execsOrWriters > 0) && afs_DirtyPages(avc))) {
137         ReleaseReadLock(&avc->lock);
138         return;
139     }
140     ReleaseReadLock(&avc->lock);
141     ObtainWriteLock(&avc->lock, 10);
142     /* Check again */
143     if ((hcmp((avc->m.DataVersion), (avc->mapDV)) <= 0)
144         || ((avc->execsOrWriters > 0) && afs_DirtyPages(avc))) {
145         ReleaseWriteLock(&avc->lock);
146         return;
147     }
148     if (hiszero(avc->mapDV)) {
149         hset(avc->mapDV, avc->m.DataVersion);
150         ReleaseWriteLock(&avc->lock);
151         return;
152     }
153
154     AFS_STATCNT(osi_FlushPages);
155     hset(origDV, avc->m.DataVersion);
156     afs_Trace3(afs_iclSetp, CM_TRACE_FLUSHPAGES, ICL_TYPE_POINTER, avc,
157                ICL_TYPE_INT32, origDV.low, ICL_TYPE_INT32, avc->m.Length);
158
159     ReleaseWriteLock(&avc->lock);
160     AFS_GUNLOCK();
161     osi_VM_FlushPages(avc, credp);
162     AFS_GLOCK();
163     ObtainWriteLock(&avc->lock, 88);
164
165     /* do this last, and to original version, since stores may occur
166      * while executing above PUTPAGE call */
167     hset(avc->mapDV, origDV);
168     ReleaseWriteLock(&avc->lock);
169 }
170
171 afs_lock_t afs_ftf;             /* flush text lock */
172
173 #ifdef  AFS_TEXT_ENV
174
175 /* This call is supposed to flush all caches that might be invalidated
176  * by either a local write operation or a write operation done on
177  * another client.  This call may be called repeatedly on the same
178  * version of a file, even while a file is being written, so it
179  * shouldn't do anything that would discard newly written data before
180  * it is written to the file system. */
181
182 void
183 osi_FlushText_really(register struct vcache *vp)
184 {
185     afs_hyper_t fdv;            /* version before which we'll flush */
186
187     AFS_STATCNT(osi_FlushText);
188     /* see if we've already flushed this data version */
189     if (hcmp(vp->m.DataVersion, vp->flushDV) <= 0)
190         return;
191
192 #ifdef AFS_DEC_ENV
193     {
194         void afs_gfs_FlushText();
195         afs_gfs_FlushText(vp);
196         return;
197     }
198 #else
199
200     MObtainWriteLock(&afs_ftf, 317);
201     hset(fdv, vp->m.DataVersion);
202
203     /* why this disgusting code below?
204      *    xuntext, called by xrele, doesn't notice when it is called
205      * with a freed text object.  Sun continually calls xrele or xuntext
206      * without any locking, as long as VTEXT is set on the
207      * corresponding vnode.
208      *    But, if the text object is locked when you check the VTEXT
209      * flag, several processes can wait in xuntext, waiting for the
210      * text lock; when the second one finally enters xuntext's
211      * critical region, the text object is already free, but the check
212      * was already done by xuntext's caller.
213      *    Even worse, it turns out that xalloc locks the text object
214      * before reading or stating a file via the vnode layer.  Thus, we
215      * could end up in getdcache, being asked to bring in a new
216      * version of a file, but the corresponding text object could be
217      * locked.  We can't flush the text object without causing
218      * deadlock, so now we just don't try to lock the text object
219      * unless it is guaranteed to work.  And we try to flush the text
220      * when we need to a bit more often at the vnode layer.  Sun
221      * really blew the vm-cache flushing interface.
222      */
223
224 #if defined (AFS_HPUX_ENV)
225     if (vp->v.v_flag & VTEXT) {
226         xrele(vp);
227
228         if (vp->v.v_flag & VTEXT) {     /* still has a text object? */
229             MReleaseWriteLock(&afs_ftf);
230             return;
231         }
232     }
233 #endif
234
235     /* next do the stuff that need not check for deadlock problems */
236     mpurge(vp);
237
238     /* finally, record that we've done it */
239     hset(vp->flushDV, fdv);
240     MReleaseWriteLock(&afs_ftf);
241
242 #endif /* AFS_DEC_ENV */
243 }
244
245 #ifdef AFS_DEC_ENV
246 /* I don't really like using xinval() here, because it kills processes
247  * a bit aggressively.  Previous incarnations of this functionality
248  * used to use xrele() instead of xinval, and didn't invoke
249  * cacheinval().  But they would panic.  So it might be worth looking
250  * into some middle ground...
251  */
252 static void
253 afs_gfs_FlushText(register struct vcache *vp)
254 {
255     afs_hyper_t fdv;            /* version before which we'll flush */
256     register struct text *xp;
257     struct gnode *gp;
258
259     MObtainWriteLock(&afs_ftf, 318);
260     hset(fdv, vp->m.DataVersion);
261     gp = afs_vntogn(vp);
262
263     if (!gp) {
264         /* this happens frequently after cores are created. */
265         MReleaseWriteLock(&afs_ftf);
266         return;
267     }
268
269     if (gp->g_flag & GTEXT) {
270         if (gp->g_textp) {
271             xp = (struct text *)gp->g_textp;
272             /* if text object is locked, give up */
273             if (xp && (xp->x_flag & XLOCK)) {
274                 MReleaseWriteLock(&afs_ftf);
275                 return;
276             }
277         } else
278             xp = NULL;
279
280         if (gp->g_flag & GTEXT) {       /* still has a text object? */
281             xinval(gp);
282         }
283     }
284
285     /* next do the stuff that need not check for deadlock problems */
286     /*    maybe xinval(gp); here instead of above */
287     binval(NODEV, gp);
288     cacheinval(gp);
289     /* finally, record that we've done it */
290     hset(vp->flushDV, fdv);
291
292     MReleaseWriteLock(&afs_ftf);
293 }
294 #endif /* AFS_DEC_ENV */
295
296 #endif /* AFS_TEXT_ENV */
297
298 /* mask signals in afsds */
299 void
300 afs_osi_MaskSignals(void)
301 {
302 #ifdef AFS_LINUX22_ENV
303     osi_linux_mask();
304 #endif
305 }
306
307 /* unmask signals in rxk listener */
308 void
309 afs_osi_UnmaskRxkSignals(void)
310 {
311 }
312
313 /* register rxk listener proc info */
314 void
315 afs_osi_RxkRegister(void)
316 {
317 #ifdef AFS_LINUX22_ENV
318     osi_linux_rxkreg();
319 #endif
320 }
321
322 /* procedure for making our processes as invisible as we can */
323 void
324 afs_osi_Invisible(void)
325 {
326 #ifdef AFS_LINUX22_ENV
327     afs_osi_MaskSignals();
328 #elif defined(AFS_DEC_ENV)
329     u.u_procp->p_type |= SSYS;
330 #elif defined(AFS_SUN5_ENV)
331     curproc->p_flag |= SSYS;
332 #elif defined(AFS_HPUX101_ENV) && !defined(AFS_HPUX1123_ENV)
333     set_system_proc(u.u_procp);
334 #elif defined(AFS_DARWIN_ENV)
335     /* maybe call init_process instead? */
336     current_proc()->p_flag |= P_SYSTEM;
337 #elif defined(AFS_XBSD_ENV)
338     curproc->p_flag |= P_SYSTEM;
339 #elif defined(AFS_SGI_ENV)
340     vrelvm();
341 #endif
342
343     AFS_STATCNT(osi_Invisible);
344 }
345
346
347 #if !defined(AFS_LINUX20_ENV) && !defined(AFS_FBSD_ENV)
348 /* set the real time */
349 void
350 afs_osi_SetTime(osi_timeval_t * atv)
351 {
352 #if defined(AFS_AIX32_ENV)
353     struct timestruc_t t;
354
355     t.tv_sec = atv->tv_sec;
356     t.tv_nsec = atv->tv_usec * 1000;
357     ksettimer(&t);              /*  Was -> settimer(TIMEOFDAY, &t); */
358 #elif defined(AFS_SUN55_ENV)
359     stime(atv->tv_sec);
360 #elif defined(AFS_SUN5_ENV)
361     /*
362      * To get more than second resolution we can use adjtime. The problem
363      * is that the usecs from the server are wrong (by now) so it isn't
364      * worth complicating the following code.
365      */
366     struct stimea {
367         time_t time;
368     } sta;
369
370     sta.time = atv->tv_sec;
371
372     stime(&sta, NULL);
373 #elif defined(AFS_SGI_ENV)
374     struct stimea {
375         sysarg_t time;
376     } sta;
377
378     AFS_GUNLOCK();
379     sta.time = atv->tv_sec;
380     stime(&sta);
381     AFS_GLOCK();
382 #elif defined(AFS_DARWIN_ENV)
383     AFS_GUNLOCK();
384     setthetime(atv);
385     AFS_GLOCK();
386 #else
387     /* stolen from kern_time.c */
388 #ifndef AFS_AUX_ENV
389     boottime.tv_sec += atv->tv_sec - time.tv_sec;
390 #endif
391 #ifdef AFS_HPUX_ENV
392     {
393 #if !defined(AFS_HPUX1122_ENV)
394         /* drop the setting of the clock for now. spl7 is not
395          * known on hpux11.22
396          */
397         register ulong_t s;
398         struct timeval t;
399         t.tv_sec = atv->tv_sec;
400         t.tv_usec = atv->tv_usec;
401         s = spl7();
402         time = t;
403         (void)splx(s);
404         resettodr(atv);
405 #endif
406     }
407 #else
408     {
409         register int s;
410         s = splclock();
411         time = *atv;
412         (void)splx(s);
413     }
414     resettodr();
415 #endif
416 #ifdef  AFS_AUX_ENV
417     logtchg(atv->tv_sec);
418 #endif
419 #endif /* AFS_DARWIN_ENV */
420     AFS_STATCNT(osi_SetTime);
421 }
422 #endif /* AFS_LINUX20_ENV */
423
424
425 void *
426 afs_osi_Alloc(size_t x)
427 {
428     register struct osimem *tm = NULL;
429     register int size;
430
431     AFS_STATCNT(osi_Alloc);
432     /* 0-length allocs may return NULL ptr from AFS_KALLOC, so we special-case
433      * things so that NULL returned iff an error occurred */
434     if (x == 0)
435         return &memZero;
436
437     AFS_STATS(afs_stats_cmperf.OutStandingAllocs++);
438     AFS_STATS(afs_stats_cmperf.OutStandingMemUsage += x);
439 #ifdef AFS_LINUX20_ENV
440     return osi_linux_alloc(x, 1);
441 #elif defined(AFS_FBSD_ENV)
442     return osi_fbsd_alloc(x, 1);
443 #else
444     size = x;
445     tm = (struct osimem *)AFS_KALLOC(size);
446 #ifdef  AFS_SUN_ENV
447     if (!tm)
448         osi_Panic("osi_Alloc: Couldn't allocate %d bytes; out of memory!\n",
449                   size);
450 #endif
451     return (void *)tm;
452 #endif
453 }
454
455 #if     defined(AFS_SUN_ENV) || defined(AFS_SGI_ENV)
456
457 void *
458 afs_osi_Alloc_NoSleep(size_t x)
459 {
460     register struct osimem *tm;
461     register int size;
462
463     AFS_STATCNT(osi_Alloc);
464     /* 0-length allocs may return NULL ptr from AFS_KALLOC, so we special-case
465      * things so that NULL returned iff an error occurred */
466     if (x == 0)
467         return &memZero;
468
469     size = x;
470     AFS_STATS(afs_stats_cmperf.OutStandingAllocs++);
471     AFS_STATS(afs_stats_cmperf.OutStandingMemUsage += x);
472     tm = (struct osimem *)AFS_KALLOC_NOSLEEP(size);
473     return (void *)tm;
474 }
475
476 #endif /* SUN || SGI */
477
478 void
479 afs_osi_Free(void *x, size_t asize)
480 {
481     AFS_STATCNT(osi_Free);
482     if (x == &memZero)
483         return;                 /* check for putting memZero back */
484
485     AFS_STATS(afs_stats_cmperf.OutStandingAllocs--);
486     AFS_STATS(afs_stats_cmperf.OutStandingMemUsage -= asize);
487 #if defined(AFS_LINUX20_ENV)
488     osi_linux_free(x);
489 #elif defined(AFS_FBSD_ENV)
490     osi_fbsd_free(x);
491 #else
492     AFS_KFREE((struct osimem *)x, asize);
493 #endif
494 }
495
496 void
497 afs_osi_FreeStr(char *x)
498 {
499     afs_osi_Free(x, strlen(x) + 1);
500 }
501
502 /* ? is it moderately likely that there are dirty VM pages associated with
503  * this vnode?
504  *
505  *  Prereqs:  avc must be write-locked
506  *
507  *  System Dependencies:  - *must* support each type of system for which
508  *                          memory mapped files are supported, even if all
509  *                          it does is return TRUE;
510  *
511  * NB:  this routine should err on the side of caution for ProcessFS to work
512  *      correctly (or at least, not to introduce worse bugs than already exist)
513  */
514 #ifdef  notdef
515 int
516 osi_VMDirty_p(struct vcache *avc)
517 {
518     int dirtyPages;
519
520     if (avc->execsOrWriters <= 0)
521         return 0;               /* can't be many dirty pages here, I guess */
522
523 #if defined (AFS_AIX32_ENV)
524 #ifdef  notdef
525     /* because of the level of hardware involvment with VM and all the
526      * warnings about "This routine must be called at VMM interrupt
527      * level", I thought it would be safest to disable interrupts while
528      * looking at the software page fault table.  */
529
530     /* convert vm handle into index into array:  I think that stoinio is
531      * always zero...  Look into this XXX  */
532 #define VMHASH(handle) ( \
533                         ( ((handle) & ~vmker.stoinio)  \
534                          ^ ((((handle) & ~vmker.stoinio) & vmker.stoimask) << vmker.stoihash) \
535                          ) & 0x000fffff)
536
537     if (avc->segid) {
538         unsigned int pagef, pri, index, next;
539
540         index = VMHASH(avc->segid);
541         if (scb_valid(index)) { /* could almost be an ASSERT */
542
543             pri = disable_ints();
544             for (pagef = scb_sidlist(index); pagef >= 0; pagef = next) {
545                 next = pft_sidfwd(pagef);
546                 if (pft_modbit(pagef)) {        /* has page frame been modified? */
547                     enable_ints(pri);
548                     return 1;
549                 }
550             }
551             enable_ints(pri);
552         }
553     }
554 #undef VMHASH
555 #endif
556 #endif /* AFS_AIX32_ENV */
557
558 #if defined (AFS_SUN_ENV)
559     if (avc->states & CMAPPED) {
560         struct page *pg;
561         for (pg = avc->v.v_s.v_Pages; pg; pg = pg->p_vpnext) {
562             if (pg->p_mod) {
563                 return 1;
564             }
565         }
566     }
567 #endif
568     return 0;
569 }
570 #endif /* notdef */
571
572
573 /*
574  * Solaris osi_ReleaseVM should not drop and re-obtain the vcache entry lock.
575  * This leads to bad races when osi_ReleaseVM() is called from
576  * afs_InvalidateAllSegments().
577
578  * We can do this because Solaris osi_VM_Truncate() doesn't care whether the
579  * vcache entry lock is held or not.
580  *
581  * For other platforms, in some cases osi_VM_Truncate() doesn't care, but
582  * there may be cases where it does care.  If so, it would be good to fix
583  * them so they don't care.  Until then, we assume the worst.
584  *
585  * Locking:  the vcache entry lock is held.  It is dropped and re-obtained.
586  */
587 void
588 osi_ReleaseVM(struct vcache *avc, struct AFS_UCRED *acred)
589 {
590 #ifdef  AFS_SUN5_ENV
591     AFS_GUNLOCK();
592     osi_VM_Truncate(avc, 0, acred);
593     AFS_GLOCK();
594 #else
595     ReleaseWriteLock(&avc->lock);
596     AFS_GUNLOCK();
597     osi_VM_Truncate(avc, 0, acred);
598     AFS_GLOCK();
599     ObtainWriteLock(&avc->lock, 80);
600 #endif
601 }
602
603
604 void
605 shutdown_osi(void)
606 {
607     AFS_STATCNT(shutdown_osi);
608     if (afs_cold_shutdown) {
609         LOCK_INIT(&afs_ftf, "afs_ftf");
610     }
611 }
612
613 #ifndef AFS_OBSD_ENV
614 int
615 afs_osi_suser(void *credp)
616 {
617 #if defined(AFS_SUN5_ENV)
618     return afs_suser(credp);
619 #else
620     return afs_suser();
621 #endif
622 }
623 #endif
624
625 #if AFS_GCPAGS
626
627 /* afs_osi_TraverseProcTable() - Walk through the systems process
628  * table, calling afs_GCPAGs_perproc_func() for each process.
629  */
630
631 #if defined(AFS_SUN5_ENV)
632 void
633 afs_osi_TraverseProcTable(void)
634 {
635     struct proc *prp;
636     for (prp = practive; prp != NULL; prp = prp->p_next) {
637         afs_GCPAGs_perproc_func(prp);
638     }
639 }
640 #endif
641
642 #if defined(AFS_HPUX_ENV)
643
644 /*
645  * NOTE: h/proc_private.h gives the process table locking rules
646  * It indicates that access to p_cred must be protected by
647  * mp_mtproc_lock(p);
648  * mp_mtproc_unlock(p);
649  *
650  * The code in sys/pm_prot.c uses pcred_lock() to protect access to
651  * the process creds, and uses mp_mtproc_lock() only for audit-related
652  * changes.  To be safe, we use both.
653  */
654
655 void
656 afs_osi_TraverseProcTable(void)
657 {
658     register proc_t *p;
659     int endchain = 0;
660
661     MP_SPINLOCK(activeproc_lock);
662     MP_SPINLOCK(sched_lock);
663     pcred_lock();
664
665     /*
666      * Instead of iterating through all of proc[], traverse only
667      * the list of active processes.  As an example of this,
668      * see foreach_process() in sys/vm_sched.c.
669      *
670      * We hold the locks for the entire scan in order to get a
671      * consistent view of the current set of creds.
672      */
673
674     for (p = proc; endchain == 0; p = &proc[p->p_fandx]) {
675         if (p->p_fandx == 0) {
676             endchain = 1;
677         }
678
679         if (system_proc(p))
680             continue;
681
682         mp_mtproc_lock(p);
683         afs_GCPAGs_perproc_func(p);
684         mp_mtproc_unlock(p);
685     }
686
687     pcred_unlock();
688     MP_SPINUNLOCK(sched_lock);
689     MP_SPINUNLOCK(activeproc_lock);
690 }
691 #endif
692
693 #if defined(AFS_SGI_ENV)
694
695 #ifdef AFS_SGI65_ENV
696 /* TODO: Fix this later. */
697 static int
698 SGI_ProcScanFunc(void *p, void *arg, int mode)
699 {
700     return 0;
701 }
702 #else /* AFS_SGI65_ENV */
703 static int
704 SGI_ProcScanFunc(proc_t * p, void *arg, int mode)
705 {
706     afs_int32(*perproc_func) (struct proc *) = arg;
707     int code = 0;
708     /* we pass in the function pointer for arg,
709      * mode ==0 for startup call, ==1 for each valid proc,
710      * and ==2 for terminate call.
711      */
712     if (mode == 1) {
713         code = perproc_func(p);
714     }
715     return code;
716 }
717 #endif /* AFS_SGI65_ENV */
718
719 void
720 afs_osi_TraverseProcTable(void)
721 {
722     procscan(SGI_ProcScanFunc, afs_GCPAGs_perproc_func);
723 }
724 #endif /* AFS_SGI_ENV */
725
726 #if defined(AFS_AIX_ENV)
727 #ifdef AFS_AIX51_ENV
728 #define max_proc v.ve_proc
729 #endif
730 void
731 afs_osi_TraverseProcTable(void)
732 {
733     struct proc *p;
734     int i;
735
736     /*
737      * For binary compatibility, on AIX we need to be careful to use the
738      * proper size of a struct proc, even if it is different from what
739      * we were compiled with.
740      */
741     if (!afs_gcpags_procsize)
742         return;
743
744 #ifndef AFS_AIX51_ENV
745     simple_lock(&proc_tbl_lock);
746 #endif
747     for (p = (struct proc *)v.vb_proc, i = 0; p < max_proc;
748          p = (struct proc *)((char *)p + afs_gcpags_procsize), i++) {
749
750 #ifdef AFS_AIX51_ENV
751         if (p->p_pvprocp->pv_stat == SNONE)
752             continue;
753         if (p->p_pvprocp->pv_stat == SIDL)
754             continue;
755         if (p->p_pvprocp->pv_stat == SEXIT)
756             continue;
757 #else
758         if (p->p_stat == SNONE)
759             continue;
760         if (p->p_stat == SIDL)
761             continue;
762         if (p->p_stat == SEXIT)
763             continue;
764 #endif
765
766         /* sanity check */
767
768         if (PROCMASK(p->p_pid) != i) {
769             afs_gcpags = AFS_GCPAGS_EPIDCHECK;
770             break;
771         }
772
773         /* sanity check */
774
775         if ((p->p_nice < P_NICE_MIN) || (P_NICE_MAX < p->p_nice)) {
776             afs_gcpags = AFS_GCPAGS_ENICECHECK;
777             break;
778         }
779
780         afs_GCPAGs_perproc_func(p);
781     }
782 #ifndef AFS_AIX51_ENV
783     simple_unlock(&proc_tbl_lock);
784 #endif
785 }
786 #endif
787
788 #if defined(AFS_OSF_ENV)
789 void
790 afs_osi_TraverseProcTable(void)
791 {
792     struct pid_entry *pe;
793 #ifdef AFS_DUX50_ENV
794 #define pidNPID (pidtab + npid)
795 #define PID_LOCK()
796 #define PID_UNLOCK()
797 #endif
798     PID_LOCK();
799     for (pe = pidtab; pe < pidNPID; ++pe) {
800         if (pe->pe_proc != PROC_NULL)
801             afs_GCPAGs_perproc_func(pe->pe_proc);
802     }
803     PID_UNLOCK();
804 }
805 #endif
806
807 #if defined(AFS_DARWIN_ENV) || defined(AFS_FBSD_ENV)
808 void
809 afs_osi_TraverseProcTable(void)
810 {
811     struct proc *p;
812     LIST_FOREACH(p, &allproc, p_list) {
813         if (p->p_stat == SIDL)
814             continue;
815         if (p->p_stat == SZOMB)
816             continue;
817         if (p->p_flag & P_SYSTEM)
818             continue;
819         afs_GCPAGs_perproc_func(p);
820     }
821 }
822 #endif
823
824 #if defined(AFS_LINUX22_ENV)
825 void
826 afs_osi_TraverseProcTable()
827 {
828     struct task_struct *p;
829
830 #ifdef EXPORTED_TASKLIST_LOCK
831     read_lock(&tasklist_lock);
832 #endif
833 #ifdef DEFINED_FOR_EACH_PROCESS
834     for_each_process(p) if (p->pid) {
835         if (p->state & TASK_ZOMBIE)
836             continue;
837         afs_GCPAGs_perproc_func(p);
838     }
839 #else
840     for_each_task(p) if (p->pid) {
841         if (p->state & TASK_ZOMBIE)
842             continue;
843         afs_GCPAGs_perproc_func(p);
844     }
845 #endif
846 #ifdef EXPORTED_TASKLIST_LOCK
847     read_unlock(&tasklist_lock);
848 #endif
849 }
850 #endif
851
852 /* return a pointer (sometimes a static copy ) to the cred for a
853  * given AFS_PROC.
854  * subsequent calls may overwrite the previously returned value.
855  */
856
857 #if defined(AFS_SGI65_ENV)
858 const struct AFS_UCRED *
859 afs_osi_proc2cred(AFS_PROC * p)
860 {
861     return NULL;
862 }
863 #elif defined(AFS_HPUX_ENV)
864 const struct AFS_UCRED *
865 afs_osi_proc2cred(AFS_PROC * p)
866 {
867     if (!p)
868         return;
869
870     /*
871      * Cannot use afs_warnuser() here, as the code path
872      * eventually wants to grab sched_lock, which is
873      * already held here
874      */
875
876     return p_cred(p);
877 }
878 #elif defined(AFS_AIX_ENV)
879
880 /* GLOBAL DECLARATIONS */
881
882 /*
883  * LOCKS: the caller must do
884  *  simple_lock(&proc_tbl_lock);
885  *  simple_unlock(&proc_tbl_lock);
886  * around calls to this function.
887  */
888
889 const struct AFS_UCRED *
890 afs_osi_proc2cred(AFS_PROC * pproc)
891 {
892     struct AFS_UCRED *pcred = 0;
893
894     /*
895      * pointer to process user structure valid in *our*
896      * address space
897      *
898      * The user structure for a process is stored in the user
899      * address space (as distinct from the kernel address
900      * space), and so to refer to the user structure of a
901      * different process we must employ special measures.
902      *
903      * I followed the example used in the AIX getproc() system
904      * call in bos/kernel/proc/getproc.c
905      */
906     struct user *xmem_userp;
907
908     struct xmem dp;             /* ptr to xmem descriptor */
909     int xm;                     /* xmem result */
910
911     if (!pproc) {
912         return pcred;
913     }
914
915     /*
916      * The process private segment in which the user
917      * area is located may disappear. We need to increment
918      * its use count. Therefore we
919      *    - get the proc_tbl_lock to hold the segment.
920      *    - get the p_lock to lockout vm_cleardata.
921      *    - vm_att to load the segment register (no check)
922      *    - xmattach to bump its use count.
923      *    - release the p_lock.
924      *    - release the proc_tbl_lock.
925      *    - do whatever we need.
926      *    - xmdetach to decrement the use count.
927      *    - vm_det to free the segment register (no check)
928      */
929
930     xmem_userp = NULL;
931     xm = XMEM_FAIL;
932     /* simple_lock(&proc_tbl_lock); */
933 #ifdef __64BIT__
934     if (pproc->p_adspace != vm_handle(NULLSEGID, (int32long64_t) 0)) {
935 #else
936     if (pproc->p_adspace != NULLSEGVAL) {
937 #endif
938
939 #ifdef AFS_AIX51_ENV
940         simple_lock(&pproc->p_pvprocp->pv_lock);
941 #else
942         simple_lock(&pproc->p_lock);
943 #endif
944
945         if (pproc->p_threadcount &&
946 #ifdef AFS_AIX51_ENV
947             pproc->p_pvprocp->pv_threadlist) {
948 #else
949             pproc->p_threadlist) {
950 #endif
951
952             /*
953              * arbitrarily pick the first thread in pproc
954              */
955             struct thread *pproc_thread =
956 #ifdef AFS_AIX51_ENV
957                 pproc->p_pvprocp->pv_threadlist;
958 #else
959                 pproc->p_threadlist;
960 #endif
961
962             /*
963              * location of 'struct user' in pproc's
964              * address space
965              */
966             struct user *pproc_userp = pproc_thread->t_userp;
967
968             /*
969              * create a pointer valid in my own address space
970              */
971
972             xmem_userp = (struct user *)vm_att(pproc->p_adspace, pproc_userp);
973
974             dp.aspace_id = XMEM_INVAL;
975             xm = xmattach(xmem_userp, sizeof(*xmem_userp), &dp, SYS_ADSPACE);
976         }
977
978 #ifdef AFS_AIX51_ENV
979         simple_unlock(&pproc->p_pvprocp->pv_lock);
980 #else
981         simple_unlock(&pproc->p_lock);
982 #endif
983     }
984     /* simple_unlock(&proc_tbl_lock); */
985     if (xm == XMEM_SUCC) {
986
987         static struct AFS_UCRED cred;
988
989         /*
990          * What locking should we use to protect access to the user
991          * area?  If needed also change the code in AIX/osi_groups.c.
992          */
993
994         /* copy cred to local address space */
995         cred = *xmem_userp->U_cred;
996         pcred = &cred;
997
998         xmdetach(&dp);
999     }
1000     if (xmem_userp) {
1001         vm_det((void *)xmem_userp);
1002     }
1003
1004     return pcred;
1005 }
1006
1007 #elif defined(AFS_OSF_ENV)
1008 const struct AFS_UCRED *
1009 afs_osi_proc2cred(AFS_PROC * pr)
1010 {
1011     struct AFS_UCRED *rv = NULL;
1012
1013     if (pr == NULL) {
1014         return NULL;
1015     }
1016
1017     if ((pr->p_stat == SSLEEP) || (pr->p_stat == SRUN)
1018         || (pr->p_stat == SSTOP))
1019         rv = pr->p_rcred;
1020
1021     return rv;
1022 }
1023 #elif defined(AFS_DARWIN_ENV) || defined(AFS_FBSD_ENV)
1024 const struct AFS_UCRED *
1025 afs_osi_proc2cred(AFS_PROC * pr)
1026 {
1027     struct AFS_UCRED *rv = NULL;
1028     static struct AFS_UCRED cr;
1029
1030     if (pr == NULL) {
1031         return NULL;
1032     }
1033
1034     if ((pr->p_stat == SSLEEP) || (pr->p_stat == SRUN)
1035         || (pr->p_stat == SSTOP)) {
1036         pcred_readlock(pr);
1037         cr.cr_ref = 1;
1038         cr.cr_uid = pr->p_cred->pc_ucred->cr_uid;
1039         cr.cr_ngroups = pr->p_cred->pc_ucred->cr_ngroups;
1040         memcpy(cr.cr_groups, pr->p_cred->pc_ucred->cr_groups,
1041                NGROUPS * sizeof(gid_t));
1042         pcred_unlock(pr);
1043         rv = &cr;
1044     }
1045
1046     return rv;
1047 }
1048 #elif defined(AFS_LINUX22_ENV)
1049 const struct AFS_UCRED *
1050 afs_osi_proc2cred(AFS_PROC * pr)
1051 {
1052     struct AFS_UCRED *rv = NULL;
1053     static struct AFS_UCRED cr;
1054
1055     if (pr == NULL) {
1056         return NULL;
1057     }
1058
1059     if ((pr->state == TASK_RUNNING) || (pr->state == TASK_INTERRUPTIBLE)
1060         || (pr->state == TASK_UNINTERRUPTIBLE)
1061         || (pr->state == TASK_STOPPED)) {
1062         cr.cr_ref = 1;
1063         cr.cr_uid = pr->uid;
1064         cr.cr_ngroups = pr->ngroups;
1065         memcpy(cr.cr_groups, pr->groups, NGROUPS * sizeof(gid_t));
1066         rv = &cr;
1067     }
1068
1069     return rv;
1070 }
1071 #else
1072 const struct AFS_UCRED *
1073 afs_osi_proc2cred(AFS_PROC * pr)
1074 {
1075     struct AFS_UCRED *rv = NULL;
1076
1077     if (pr == NULL) {
1078         return NULL;
1079     }
1080     rv = pr->p_cred;
1081
1082     return rv;
1083 }
1084 #endif
1085
1086 #endif /* AFS_GCPAGS */