48 lines
1.2 KiB
C
48 lines
1.2 KiB
C
|
/****************************************************************
|
||
|
|
* *
|
||
|
|
* Copyright 2001, 2007 Fidelity Information Services, Inc *
|
||
|
|
* *
|
||
|
|
* This source code contains the intellectual property *
|
||
|
|
* of its copyright holder(s), and is made available *
|
||
|
|
* under a license. If you do not know the terms of *
|
||
|
|
* the license, please stop and do not read further. *
|
||
|
|
* *
|
||
|
|
****************************************************************/
|
||
|
|
|
||
|
|
#include "mdef.h"
|
||
|
|
|
||
|
|
#include "gtm_string.h"
|
||
|
|
|
||
|
|
#include "mlkdef.h"
|
||
|
|
#include "copy.h"
|
||
|
|
#include "mlk_shrsub_garbage_collect.h"
|
||
|
|
|
||
|
|
void mlk_shrsub_garbage_collect(mlk_ctldata_ptr_t ctl)
|
||
|
|
{
|
||
|
|
ptroff_t bckp;
|
||
|
|
int4 delta, n;
|
||
|
|
mlk_shrsub_ptr_t p;
|
||
|
|
mlk_shrblk_ptr_t b;
|
||
|
|
sm_uc_ptr_t f;
|
||
|
|
|
||
|
|
delta = 0;
|
||
|
|
for (p = (mlk_shrsub_ptr_t)R2A(ctl->subbase), f = (sm_uc_ptr_t)R2A(ctl->subfree);
|
||
|
|
p < (mlk_shrsub_ptr_t) f ; p = (mlk_shrsub_ptr_t)((sm_uc_ptr_t) p + n))
|
||
|
|
{
|
||
|
|
n = (int4)MLK_SHRSUB_SIZE(p);
|
||
|
|
bckp = p->backpointer;
|
||
|
|
if (0 == bckp)
|
||
|
|
delta += n;
|
||
|
|
else if (0 != delta)
|
||
|
|
{
|
||
|
|
b = (mlk_shrblk_ptr_t)((sm_uc_ptr_t)&p->backpointer + bckp);
|
||
|
|
b->value -= delta;
|
||
|
|
bckp += delta;
|
||
|
|
p->backpointer = bckp;
|
||
|
|
memcpy((sm_uc_ptr_t) p - delta, p, n);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
ctl->subfree -= delta;
|
||
|
|
return;
|
||
|
|
}
|