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