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