#include "db_config.h"
#ifndef lint
static const char revid[] = "$Id: mp_fput.c,v 1.2 2004/03/30 01:23:44 jtownsen Exp $";
#endif
#ifndef NO_SYSTEM_INCLUDES
#include <sys/types.h>
#endif
#include "db_int.h"
#include "dbinc/db_shash.h"
#include "dbinc/log.h"
#include "dbinc/mp.h"
static void __memp_reset_lru __P((DB_ENV *, REGINFO *));
int
__memp_fput_pp(dbmfp, pgaddr, flags)
DB_MPOOLFILE *dbmfp;
void *pgaddr;
u_int32_t flags;
{
DB_ENV *dbenv;
int ret;
dbenv = dbmfp->dbenv;
PANIC_CHECK(dbenv);
ret = __memp_fput(dbmfp, pgaddr, flags);
if (IS_ENV_REPLICATED(dbenv))
__op_rep_exit(dbenv);
return (ret);
}
int
__memp_fput(dbmfp, pgaddr, flags)
DB_MPOOLFILE *dbmfp;
void *pgaddr;
u_int32_t flags;
{
BH *fbhp, *bhp, *prev;
DB_ENV *dbenv;
DB_MPOOL *dbmp;
DB_MPOOL_HASH *hp;
MPOOL *c_mp;
u_int32_t n_cache;
int adjust, ret;
dbenv = dbmfp->dbenv;
MPF_ILLEGAL_BEFORE_OPEN(dbmfp, "DB_MPOOLFILE->put");
dbmp = dbenv->mp_handle;
if (flags) {
if ((ret = __db_fchk(dbenv, "memp_fput", flags,
DB_MPOOL_CLEAN | DB_MPOOL_DIRTY | DB_MPOOL_DISCARD)) != 0)
return (ret);
if ((ret = __db_fcchk(dbenv, "memp_fput",
flags, DB_MPOOL_CLEAN, DB_MPOOL_DIRTY)) != 0)
return (ret);
if (LF_ISSET(DB_MPOOL_DIRTY) && F_ISSET(dbmfp, MP_READONLY)) {
__db_err(dbenv,
"%s: dirty flag set for readonly file page",
__memp_fn(dbmfp));
return (EACCES);
}
}
if (dbmfp->addr != NULL && pgaddr >= dbmfp->addr &&
(u_int8_t *)pgaddr <= (u_int8_t *)dbmfp->addr + dbmfp->len)
return (0);
#ifdef DIAGNOSTIC
{ int ret;
R_LOCK(dbenv, dbmp->reginfo);
if (dbmfp->pinref == 0) {
ret = EINVAL;
__db_err(dbenv,
"%s: more pages returned than retrieved", __memp_fn(dbmfp));
} else {
ret = 0;
--dbmfp->pinref;
}
R_UNLOCK(dbenv, dbmp->reginfo);
if (ret != 0)
return (ret);
}
#endif
bhp = (BH *)((u_int8_t *)pgaddr - SSZA(BH, buf));
n_cache = NCACHE(dbmp->reginfo[0].primary, bhp->mf_offset, bhp->pgno);
c_mp = dbmp->reginfo[n_cache].primary;
hp = R_ADDR(&dbmp->reginfo[n_cache], c_mp->htab);
hp = &hp[NBUCKET(c_mp, bhp->mf_offset, bhp->pgno)];
MUTEX_LOCK(dbenv, &hp->hash_mutex);
if (LF_ISSET(DB_MPOOL_CLEAN) &&
F_ISSET(bhp, BH_DIRTY) && !F_ISSET(bhp, BH_DIRTY_CREATE)) {
DB_ASSERT(hp->hash_page_dirty != 0);
--hp->hash_page_dirty;
F_CLR(bhp, BH_DIRTY);
}
if (LF_ISSET(DB_MPOOL_DIRTY) && !F_ISSET(bhp, BH_DIRTY)) {
++hp->hash_page_dirty;
F_SET(bhp, BH_DIRTY);
}
if (LF_ISSET(DB_MPOOL_DISCARD))
F_SET(bhp, BH_DISCARD);
if (bhp->ref == 0) {
__db_err(dbenv, "%s: page %lu: unpinned page returned",
__memp_fn(dbmfp), (u_long)bhp->pgno);
MUTEX_UNLOCK(dbenv, &hp->hash_mutex);
return (EINVAL);
}
++c_mp->put_counter;
if (--bhp->ref > 1 || (bhp->ref == 1 && !F_ISSET(bhp, BH_LOCKED))) {
MUTEX_UNLOCK(dbenv, &hp->hash_mutex);
return (0);
}
if (F_ISSET(bhp, BH_DISCARD) ||
dbmfp->mfp->priority == MPOOL_PRI_VERY_LOW)
bhp->priority = 0;
else {
bhp->priority = c_mp->lru_count;
adjust = 0;
if (dbmfp->mfp->priority != 0)
adjust =
(int)c_mp->stat.st_pages / dbmfp->mfp->priority;
if (F_ISSET(bhp, BH_DIRTY))
adjust += c_mp->stat.st_pages / MPOOL_PRI_DIRTY;
if (adjust > 0) {
if (UINT32_T_MAX - bhp->priority >= (u_int32_t)adjust)
bhp->priority += adjust;
} else if (adjust < 0)
if (bhp->priority > (u_int32_t)-adjust)
bhp->priority += adjust;
}
if ((fbhp =
SH_TAILQ_FIRST(&hp->hash_bucket, __bh)) ==
SH_TAILQ_LAST(&hp->hash_bucket, hq, __bh))
goto done;
if (fbhp == bhp)
fbhp = SH_TAILQ_NEXT(fbhp, hq, __bh);
SH_TAILQ_REMOVE(&hp->hash_bucket, bhp, hq, __bh);
for (prev = NULL; fbhp != NULL;
prev = fbhp, fbhp = SH_TAILQ_NEXT(fbhp, hq, __bh))
if (fbhp->priority > bhp->priority)
break;
if (prev == NULL)
SH_TAILQ_INSERT_HEAD(&hp->hash_bucket, bhp, hq, __bh);
else
SH_TAILQ_INSERT_AFTER(&hp->hash_bucket, prev, bhp, hq, __bh);
done:
hp->hash_priority = SH_TAILQ_FIRST(&hp->hash_bucket, __bh)->priority;
#ifdef DIAGNOSTIC
__memp_check_order(hp);
#endif
if (F_ISSET(bhp, BH_LOCKED) && bhp->ref_sync != 0)
--bhp->ref_sync;
MUTEX_UNLOCK(dbenv, &hp->hash_mutex);
if (++c_mp->lru_count == UINT32_T_MAX)
__memp_reset_lru(dbenv, dbmp->reginfo);
return (0);
}
static void
__memp_reset_lru(dbenv, memreg)
DB_ENV *dbenv;
REGINFO *memreg;
{
BH *bhp;
DB_MPOOL_HASH *hp;
MPOOL *c_mp;
int bucket;
c_mp = memreg->primary;
c_mp->lru_count -= MPOOL_BASE_DECREMENT;
for (hp = R_ADDR(memreg, c_mp->htab),
bucket = 0; bucket < c_mp->htab_buckets; ++hp, ++bucket) {
if (SH_TAILQ_FIRST(&hp->hash_bucket, __bh) == NULL)
continue;
MUTEX_LOCK(dbenv, &hp->hash_mutex);
for (bhp = SH_TAILQ_FIRST(&hp->hash_bucket, __bh);
bhp != NULL; bhp = SH_TAILQ_NEXT(bhp, hq, __bh))
if (bhp->priority != UINT32_T_MAX &&
bhp->priority > MPOOL_BASE_DECREMENT)
bhp->priority -= MPOOL_BASE_DECREMENT;
MUTEX_UNLOCK(dbenv, &hp->hash_mutex);
}
}