mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-20 21:11:18 -07:00
Code Issues Projects Releases Wiki Activity

Don't represent capacities internally in kilobytes, convert once on initialization.

Browse source 
In the monitor, start average mortality time series with the initial predicted value.

Copied from Perforce
 Change: 194565
This commit is contained in:
Gareth Rees 2018-07-10 13:10:00 +01:00
parent 0070b6bec0
commit 08beb998fd
5 changed files with 11 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

7
mps/code/locus.c
View file

@ -123,6 +123,7 @@ static Bool GenParamCheck(GenParamStruct *params)
{
CHECKL(params != NULL);
CHECKL(params->capacity > 0);
CHECKL(params->capacity <= SizeMAX / 1024);
CHECKL(params->mortality >= 0.0);
CHECKL(params->mortality <= 1.0);
return TRUE;
@ -139,13 +140,13 @@ static void GenDescInit(Arena arena, GenDesc gen, GenParamStruct *params)
gen->serial = arena->genSerial;
++ arena->genSerial;
gen->zones = ZoneSetEMPTY;
gen->capacity = params->capacity;
gen->capacity = params->capacity * 1024;
gen->mortality = params->mortality;
RingInit(&gen->locusRing);
RingInit(&gen->segRing);
gen->sig = GenDescSig;
AVERT(GenDesc, gen);
EVENT3(GenInit, arena, gen, gen->serial);
EVENT5(GenInit, arena, gen, gen->serial, gen->capacity, gen->mortality);
}
@ -458,7 +459,7 @@ double ChainDeferral(Chain chain)
if (chain->activeTraces == TraceSetEMPTY) {
for (i = 0; i < chain->genCount; ++i) {
double genTime = chain->gens[i].capacity * 1024.0
double genTime = (double)chain->gens[i].capacity
- (double)GenDescNewSize(&chain->gens[i]);
if (genTime < time)
time = genTime;