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     lockinit(&afs_global_lock, PLOCK, "afs global lock", 0, 0);
  64     afs_global_owner = 0;
  65 #elif defined(AFS_AIX41_ENV)
  66     lock_alloc((void *)&afs_global_lock, LOCK_ALLOC_PIN, 1, 1);
  67     simple_lock_init((void *)&afs_global_lock);
  68 #elif !defined(AFS_LINUX22_ENV)
  69     /* Linux initialization in osi directory. Should move the others. */
  70     mutex_init(&afs_global_lock, "afs_global_lock", MUTEX_DEFAULT, NULL);
  71 #endif
  72     /* afs_rxglobal_lock is initialized in rx_Init. */
  73 #endif /* AFS_GLOBAL_SUNLOCK */
  74 #endif /* AFS_HPUX_ENV */
  75
  76     if (!afs_osicred_initialized) {
  77 #if defined(AFS_XBSD_ENV)
  78         /* Can't just invent one, must use crget() because of mutex */
  79         afs_osi_credp = crdup(osi_curcred());
  80 #else
  81         memset(&afs_osi_cred, 0, sizeof(struct AFS_UCRED));
  82 #if defined(AFS_LINUX26_ENV)
  83         afs_osi_cred.cr_group_info = groups_alloc(0);
  84 #endif
  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 #if defined(AFS_LINUX26_ENV)
1065         get_group_info(pr->group_info);
1066         cr.cr_group_info = pr->group_info;
1067 #else
1068         cr.cr_ngroups = pr->ngroups;
1069         memcpy(cr.cr_groups, pr->groups, NGROUPS * sizeof(gid_t));
1070 #endif
1071         rv = &cr;
1072     }
1073
1074     return rv;
1075 }
1076 #else
1077 const struct AFS_UCRED *
1078 afs_osi_proc2cred(AFS_PROC * pr)
1079 {
1080     struct AFS_UCRED *rv = NULL;
1081
1082     if (pr == NULL) {
1083         return NULL;
1084     }
1085     rv = pr->p_cred;
1086
1087     return rv;
1088 }
1089 #endif
1090
1091 #endif /* AFS_GCPAGS */