зеркало из https://github.com/mozilla/pjs.git
523 строки
13 KiB
C
523 строки
13 KiB
C
/* ***** BEGIN LICENSE BLOCK *****
|
|
* Version: MPL 1.1/GPL 2.0/LGPL 2.1
|
|
*
|
|
* The contents of this file are subject to the Mozilla Public License Version
|
|
* 1.1 (the "License"); you may not use this file except in compliance with
|
|
* the License. You may obtain a copy of the License at
|
|
* http://www.mozilla.org/MPL/
|
|
*
|
|
* Software distributed under the License is distributed on an "AS IS" basis,
|
|
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
|
|
* for the specific language governing rights and limitations under the
|
|
* License.
|
|
*
|
|
* The Original Code is the Netscape security libraries.
|
|
*
|
|
* The Initial Developer of the Original Code is
|
|
* Netscape Communications Corporation.
|
|
* Portions created by the Initial Developer are Copyright (C) 1994-2000
|
|
* the Initial Developer. All Rights Reserved.
|
|
*
|
|
* Contributor(s):
|
|
*
|
|
* Alternatively, the contents of this file may be used under the terms of
|
|
* either the GNU General Public License Version 2 or later (the "GPL"), or
|
|
* the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
|
|
* in which case the provisions of the GPL or the LGPL are applicable instead
|
|
* of those above. If you wish to allow use of your version of this file only
|
|
* under the terms of either the GPL or the LGPL, and not to allow others to
|
|
* use your version of this file under the terms of the MPL, indicate your
|
|
* decision by deleting the provisions above and replace them with the notice
|
|
* and other provisions required by the GPL or the LGPL. If you do not delete
|
|
* the provisions above, a recipient may use your version of this file under
|
|
* the terms of any one of the MPL, the GPL or the LGPL.
|
|
*
|
|
* ***** END LICENSE BLOCK ***** */
|
|
|
|
/*
|
|
* nssilock.c - NSS lock instrumentation wrapper functions
|
|
*
|
|
* NOTE - These are not public interfaces
|
|
*
|
|
* Implementation Notes:
|
|
* I've tried to make the instrumentation relatively non-intrusive.
|
|
* To do this, I have used a single PR_LOG() call in each
|
|
* instrumented function. There's room for improvement.
|
|
*
|
|
*
|
|
*/
|
|
|
|
#include "prinit.h"
|
|
#include "prerror.h"
|
|
#include "prlock.h"
|
|
#include "prmem.h"
|
|
#include "prenv.h"
|
|
#include "prcvar.h"
|
|
#include "prio.h"
|
|
|
|
#if defined(NEED_NSS_ILOCK)
|
|
#include "prlog.h"
|
|
#include "nssilock.h"
|
|
|
|
/*
|
|
** Declare the instrumented PZLock
|
|
*/
|
|
struct pzlock_s {
|
|
PRLock *lock; /* the PZLock to be instrumented */
|
|
PRIntervalTime time; /* timestamp when the lock was aquired */
|
|
nssILockType ltype;
|
|
};
|
|
|
|
/*
|
|
** Declare the instrumented PZMonitor
|
|
*/
|
|
struct pzmonitor_s {
|
|
PRMonitor *mon; /* the PZMonitor to be instrumented */
|
|
PRIntervalTime time; /* timestamp when the monitor was aquired */
|
|
nssILockType ltype;
|
|
};
|
|
|
|
/*
|
|
** Declare the instrumented PZCondVar
|
|
*/
|
|
struct pzcondvar_s {
|
|
PRCondVar *cvar; /* the PZCondVar to be instrumented */
|
|
nssILockType ltype;
|
|
};
|
|
|
|
|
|
/*
|
|
** Define a CallOnce type to ensure serialized self-initialization
|
|
*/
|
|
static PRCallOnceType coNssILock; /* CallOnce type */
|
|
static PRIntn nssILockInitialized; /* initialization done when 1 */
|
|
static PRLogModuleInfo *nssILog; /* Log instrumentation to this handle */
|
|
|
|
|
|
#define NUM_TT_ENTRIES 6000000
|
|
static PRInt32 traceIndex = -1; /* index into trace table */
|
|
static struct pzTrace_s *tt; /* pointer to trace table */
|
|
static PRInt32 ttBufSize = (NUM_TT_ENTRIES * sizeof(struct pzTrace_s ));
|
|
static PRCondVar *ttCVar;
|
|
static PRLock *ttLock;
|
|
static PRFileDesc *ttfd; /* trace table file */
|
|
|
|
/*
|
|
** Vtrace() -- Trace events, write events to external media
|
|
**
|
|
** Vtrace() records traced events in an in-memory trace table
|
|
** when the trace table fills, Vtrace writes the entire table
|
|
** to a file.
|
|
**
|
|
** data can be lost!
|
|
**
|
|
*/
|
|
static void Vtrace(
|
|
nssILockOp op,
|
|
nssILockType ltype,
|
|
PRIntervalTime callTime,
|
|
PRIntervalTime heldTime,
|
|
void *lock,
|
|
PRIntn line,
|
|
char *file
|
|
) {
|
|
PRInt32 idx;
|
|
struct pzTrace_s *tp;
|
|
|
|
RetryTrace:
|
|
idx = PR_AtomicIncrement( &traceIndex );
|
|
while( NUM_TT_ENTRIES <= idx || op == FlushTT ) {
|
|
if( NUM_TT_ENTRIES == idx || op == FlushTT ) {
|
|
int writeSize = idx * sizeof(struct pzTrace_s);
|
|
PR_Lock(ttLock);
|
|
PR_Write( ttfd, tt, writeSize );
|
|
traceIndex = -1;
|
|
PR_NotifyAllCondVar( ttCVar );
|
|
PR_Unlock(ttLock);
|
|
goto RetryTrace;
|
|
} else {
|
|
PR_Lock(ttLock);
|
|
while( NUM_TT_ENTRIES < idx )
|
|
PR_WaitCondVar(ttCVar, PR_INTERVAL_NO_WAIT);
|
|
PR_Unlock(ttLock);
|
|
goto RetryTrace;
|
|
}
|
|
} /* end while() */
|
|
|
|
/* create the trace entry */
|
|
tp = tt + idx;
|
|
tp->threadID = PR_GetThreadID(PR_GetCurrentThread());
|
|
tp->op = op;
|
|
tp->ltype = ltype;
|
|
tp->callTime = callTime;
|
|
tp->heldTime = heldTime;
|
|
tp->lock = lock;
|
|
tp ->line = line;
|
|
strcpy(tp->file, file );
|
|
return;
|
|
} /* --- end Vtrace() --- */
|
|
|
|
/*
|
|
** pz_TraceFlush() -- Force trace table write to file
|
|
**
|
|
*/
|
|
extern void pz_TraceFlush( void )
|
|
{
|
|
Vtrace( FlushTT, nssILockSelfServ, 0, 0, NULL, 0, "" );
|
|
return;
|
|
} /* --- end pz_TraceFlush() --- */
|
|
|
|
/*
|
|
** nssILockInit() -- Initialization for nssilock
|
|
**
|
|
** This function is called from the CallOnce mechanism.
|
|
*/
|
|
static PRStatus
|
|
nssILockInit( void )
|
|
{
|
|
int i;
|
|
nssILockInitialized = 1;
|
|
|
|
/* new log module */
|
|
nssILog = PR_NewLogModule("nssilock");
|
|
if ( NULL == nssILog ) {
|
|
return(PR_FAILURE);
|
|
}
|
|
|
|
tt = PR_Calloc( NUM_TT_ENTRIES, sizeof(struct pzTrace_s));
|
|
if (NULL == tt ) {
|
|
fprintf(stderr, "nssilock: can't allocate trace table\n");
|
|
exit(1);
|
|
}
|
|
|
|
ttfd = PR_Open( "xxxTTLog", PR_CREATE_FILE | PR_WRONLY, 0666 );
|
|
if ( NULL == ttfd ) {
|
|
fprintf( stderr, "Oh Drat! Can't open 'xxxTTLog'\n");
|
|
exit(1);
|
|
}
|
|
|
|
ttLock = PR_NewLock();
|
|
ttCVar = PR_NewCondVar(ttLock);
|
|
|
|
return(PR_SUCCESS);
|
|
} /* --- end nssILockInit() --- */
|
|
|
|
extern PZLock * pz_NewLock(
|
|
nssILockType ltype,
|
|
char *file,
|
|
PRIntn line )
|
|
{
|
|
PRStatus rc;
|
|
PZLock *lock;
|
|
|
|
/* Self Initialize the nssILock feature */
|
|
if (!nssILockInitialized) {
|
|
rc = PR_CallOnce( &coNssILock, nssILockInit );
|
|
if ( PR_FAILURE == rc ) {
|
|
PR_SetError( PR_UNKNOWN_ERROR, 0 );
|
|
return( NULL );
|
|
}
|
|
}
|
|
|
|
lock = PR_NEWZAP( PZLock );
|
|
if ( NULL != lock ) {
|
|
lock->lock = PR_NewLock();
|
|
if ( NULL == lock->lock ) {
|
|
PR_DELETE( lock );
|
|
lock = NULL;
|
|
}
|
|
}
|
|
lock->ltype = ltype;
|
|
|
|
Vtrace( NewLock, ltype, 0, 0, lock, line, file );
|
|
return(lock);
|
|
} /* --- end pz_NewLock() --- */
|
|
|
|
extern void
|
|
pz_Lock(
|
|
PZLock *lock,
|
|
char *file,
|
|
PRIntn line
|
|
)
|
|
{
|
|
PRIntervalTime callTime;
|
|
|
|
callTime = PR_IntervalNow();
|
|
PR_Lock( lock->lock );
|
|
lock->time = PR_IntervalNow();
|
|
callTime = lock->time - callTime;
|
|
|
|
Vtrace( Lock, lock->ltype, callTime, 0, lock, line, file );
|
|
return;
|
|
} /* --- end pz_Lock() --- */
|
|
|
|
extern PRStatus
|
|
pz_Unlock(
|
|
PZLock *lock,
|
|
char *file,
|
|
PRIntn line
|
|
)
|
|
{
|
|
PRStatus rc;
|
|
PRIntervalTime callTime, now, heldTime;
|
|
|
|
callTime = PR_IntervalNow();
|
|
rc = PR_Unlock( lock->lock );
|
|
now = PR_IntervalNow();
|
|
callTime = now - callTime;
|
|
heldTime = now - lock->time;
|
|
Vtrace( Unlock, lock->ltype, callTime, heldTime, lock, line, file );
|
|
return( rc );
|
|
} /* --- end pz_Unlock() --- */
|
|
|
|
extern void
|
|
pz_DestroyLock(
|
|
PZLock *lock,
|
|
char *file,
|
|
PRIntn line
|
|
)
|
|
{
|
|
Vtrace( DestroyLock, lock->ltype, 0, 0, lock, line, file );
|
|
PR_DestroyLock( lock->lock );
|
|
PR_DELETE( lock );
|
|
return;
|
|
} /* --- end pz_DestroyLock() --- */
|
|
|
|
|
|
|
|
extern PZCondVar *
|
|
pz_NewCondVar(
|
|
PZLock *lock,
|
|
char *file,
|
|
PRIntn line
|
|
)
|
|
{
|
|
PZCondVar *cvar;
|
|
|
|
cvar = PR_NEWZAP( PZCondVar );
|
|
if ( NULL == cvar ) return(NULL);
|
|
|
|
cvar->ltype = lock->ltype;
|
|
cvar->cvar = PR_NewCondVar( lock->lock );
|
|
if ( NULL == cvar->cvar ) {
|
|
PR_DELETE( cvar );
|
|
}
|
|
Vtrace( NewCondVar, cvar->ltype, 0, 0, cvar, line, file );
|
|
return( cvar );
|
|
} /* --- end pz_NewCondVar() --- */
|
|
|
|
extern void
|
|
pz_DestroyCondVar(
|
|
PZCondVar *cvar,
|
|
char *file,
|
|
PRIntn line
|
|
)
|
|
{
|
|
Vtrace( DestroyCondVar, cvar->ltype, 0, 0, cvar, line, file );
|
|
PR_DestroyCondVar( cvar->cvar );
|
|
PR_DELETE( cvar );
|
|
} /* --- end pz_DestroyCondVar() --- */
|
|
|
|
extern PRStatus
|
|
pz_WaitCondVar(
|
|
PZCondVar *cvar,
|
|
PRIntervalTime timeout,
|
|
char *file,
|
|
PRIntn line
|
|
)
|
|
{
|
|
PRStatus rc;
|
|
PRIntervalTime callTime;
|
|
|
|
callTime = PR_IntervalNow();
|
|
rc = PR_WaitCondVar( cvar->cvar, timeout );
|
|
callTime = PR_IntervalNow() - callTime;
|
|
|
|
Vtrace( WaitCondVar, cvar->ltype, callTime, 0, cvar, line, file );
|
|
return(rc);
|
|
} /* --- end pz_WaitCondVar() --- */
|
|
|
|
extern PRStatus
|
|
pz_NotifyCondVar(
|
|
PZCondVar *cvar,
|
|
char *file,
|
|
PRIntn line
|
|
)
|
|
{
|
|
PRStatus rc;
|
|
|
|
rc = PR_NotifyCondVar( cvar->cvar );
|
|
|
|
Vtrace( NotifyCondVar, cvar->ltype, 0, 0, cvar, line, file );
|
|
return(rc);
|
|
} /* --- end pz_NotifyCondVar() --- */
|
|
|
|
extern PRStatus
|
|
pz_NotifyAllCondVar(
|
|
PZCondVar *cvar,
|
|
char *file,
|
|
PRIntn line
|
|
)
|
|
{
|
|
PRStatus rc;
|
|
|
|
rc = PR_NotifyAllCondVar( cvar->cvar );
|
|
|
|
Vtrace( NotifyAllCondVar, cvar->ltype, 0, 0, cvar, line, file );
|
|
return(rc);
|
|
} /* --- end pz_NotifyAllCondVar() --- */
|
|
|
|
extern PZMonitor *
|
|
pz_NewMonitor(
|
|
nssILockType ltype,
|
|
char *file,
|
|
PRIntn line
|
|
)
|
|
{
|
|
PRStatus rc;
|
|
PZMonitor *mon;
|
|
|
|
/* Self Initialize the nssILock feature */
|
|
if (!nssILockInitialized) {
|
|
rc = PR_CallOnce( &coNssILock, nssILockInit );
|
|
if ( PR_FAILURE == rc ) {
|
|
PR_SetError( PR_UNKNOWN_ERROR, 0 );
|
|
return( NULL );
|
|
}
|
|
}
|
|
|
|
mon = PR_NEWZAP( PZMonitor );
|
|
if ( NULL != mon ) {
|
|
mon->mon = PR_NewMonitor();
|
|
if ( NULL == mon->mon ) {
|
|
PR_DELETE( mon );
|
|
return NULL;
|
|
}
|
|
}
|
|
mon->ltype = ltype;
|
|
|
|
Vtrace( NewMonitor, mon->ltype, 0, 0, mon, line, file );
|
|
return(mon);
|
|
} /* --- end pz_NewMonitor() --- */
|
|
|
|
extern void
|
|
pz_DestroyMonitor(
|
|
PZMonitor *mon,
|
|
char *file,
|
|
PRIntn line
|
|
)
|
|
{
|
|
Vtrace( DestroyMonitor, mon->ltype, 0, 0, mon, line, file );
|
|
PR_DestroyMonitor( mon->mon );
|
|
PR_DELETE( mon );
|
|
return;
|
|
} /* --- end pz_DestroyMonitor() --- */
|
|
|
|
extern void
|
|
pz_EnterMonitor(
|
|
PZMonitor *mon,
|
|
char *file,
|
|
PRIntn line
|
|
)
|
|
{
|
|
PRIntervalTime callTime, now;
|
|
|
|
callTime = PR_IntervalNow();
|
|
PR_EnterMonitor( mon->mon );
|
|
now = PR_IntervalNow();
|
|
callTime = now - callTime;
|
|
if ( PR_GetMonitorEntryCount(mon->mon) == 1 ) {
|
|
mon->time = now;
|
|
}
|
|
Vtrace( EnterMonitor, mon->ltype, callTime, 0, mon, line, file );
|
|
return;
|
|
} /* --- end pz_EnterMonitor() --- */
|
|
|
|
extern PRStatus
|
|
pz_ExitMonitor(
|
|
PZMonitor *mon,
|
|
char *file,
|
|
PRIntn line
|
|
)
|
|
{
|
|
PRStatus rc;
|
|
PRIntervalTime callTime, now, heldTime;
|
|
PRIntn mec = PR_GetMonitorEntryCount( mon->mon );
|
|
|
|
heldTime = (PRIntervalTime)-1;
|
|
callTime = PR_IntervalNow();
|
|
rc = PR_ExitMonitor( mon->mon );
|
|
now = PR_IntervalNow();
|
|
callTime = now - callTime;
|
|
if ( mec == 1 )
|
|
heldTime = now - mon->time;
|
|
Vtrace( ExitMonitor, mon->ltype, callTime, heldTime, mon, line, file );
|
|
return( rc );
|
|
} /* --- end pz_ExitMonitor() --- */
|
|
|
|
extern PRIntn
|
|
pz_GetMonitorEntryCount(
|
|
PZMonitor *mon,
|
|
char *file,
|
|
PRIntn line
|
|
)
|
|
{
|
|
return( PR_GetMonitorEntryCount(mon->mon));
|
|
} /* --- end pz_GetMonitorEntryCount() --- */
|
|
|
|
|
|
extern PRStatus
|
|
pz_Wait(
|
|
PZMonitor *mon,
|
|
PRIntervalTime ticks,
|
|
char *file,
|
|
PRIntn line
|
|
)
|
|
{
|
|
PRStatus rc;
|
|
PRIntervalTime callTime;
|
|
|
|
callTime = PR_IntervalNow();
|
|
rc = PR_Wait( mon->mon, ticks );
|
|
callTime = PR_IntervalNow() - callTime;
|
|
Vtrace( Wait, mon->ltype, callTime, 0, mon, line, file );
|
|
return( rc );
|
|
} /* --- end pz_Wait() --- */
|
|
|
|
extern PRStatus
|
|
pz_Notify(
|
|
PZMonitor *mon,
|
|
char *file,
|
|
PRIntn line
|
|
)
|
|
{
|
|
PRStatus rc;
|
|
PRIntervalTime callTime;
|
|
|
|
callTime = PR_IntervalNow();
|
|
rc = PR_Notify( mon->mon );
|
|
callTime = PR_IntervalNow() - callTime;
|
|
Vtrace( Notify, mon->ltype, callTime, 0, mon, line, file );
|
|
return( rc );
|
|
} /* --- end pz_Notify() --- */
|
|
|
|
extern PRStatus
|
|
pz_NotifyAll(
|
|
PZMonitor *mon,
|
|
char *file,
|
|
PRIntn line
|
|
)
|
|
{
|
|
PRStatus rc;
|
|
PRIntervalTime callTime;
|
|
|
|
callTime = PR_IntervalNow();
|
|
rc = PR_NotifyAll( mon->mon );
|
|
callTime = PR_IntervalNow() - callTime;
|
|
Vtrace( NotifyAll, mon->ltype, callTime, 0, mon, line, file );
|
|
return( rc );
|
|
} /* --- end pz_NotifyAll() --- */
|
|
|
|
#endif /* NEED_NSS_ILOCK */
|
|
/* --- end nssilock.c --------------------------------- */
|