diff options
| author | David Jones | 2003-02-17 11:04:57 +0000 |
|---|---|---|
| committer | David Jones | 2003-02-17 11:04:57 +0000 |
| commit | 944e84b5f27f9d27e7bcae89eca0338e8b234f08 (patch) | |
| tree | 15bd8ed7a00bb1f8d1348c4c55c0075a62e30046 /mps/code | |
| parent | ca4af46f1dd7d22eda401bbfaa2609e41af7aa65 (diff) | |
| download | emacs-944e84b5f27f9d27e7bcae89eca0338e8b234f08.tar.gz emacs-944e84b5f27f9d27e7bcae89eca0338e8b234f08.zip | |
Mps: minor style edits
Copied from Perforce
Change: 39662
ServerID: perforce.ravenbrook.com
Diffstat (limited to 'mps/code')
| -rw-r--r-- | mps/code/chain.h | 5 | ||||
| -rw-r--r-- | mps/code/locus.c | 10 | ||||
| -rw-r--r-- | mps/code/mpsi.c | 3 |
3 files changed, 11 insertions, 7 deletions
diff --git a/mps/code/chain.h b/mps/code/chain.h index 6f4e46f2794..d37a46ccde4 100644 --- a/mps/code/chain.h +++ b/mps/code/chain.h | |||
| @@ -32,7 +32,7 @@ typedef struct GenDescStruct { | |||
| 32 | Size capacity; /* capacity in kB */ | 32 | Size capacity; /* capacity in kB */ |
| 33 | double mortality; | 33 | double mortality; |
| 34 | double proflow; /* predicted proportion of survivors promoted */ | 34 | double proflow; /* predicted proportion of survivors promoted */ |
| 35 | RingStruct locusRing; /* this generation in all the pools using the chain */ | 35 | RingStruct locusRing; /* Ring of all PoolGen's in this GenDesc (locus) */ |
| 36 | } GenDescStruct; | 36 | } GenDescStruct; |
| 37 | 37 | ||
| 38 | 38 | ||
| @@ -47,7 +47,8 @@ typedef struct PoolGenStruct { | |||
| 47 | Serial nr; /* generation number */ | 47 | Serial nr; /* generation number */ |
| 48 | Pool pool; /* pool this belongs to */ | 48 | Pool pool; /* pool this belongs to */ |
| 49 | Chain chain; /* chain this belongs to */ | 49 | Chain chain; /* chain this belongs to */ |
| 50 | RingStruct genRing; /* this generation in all the pools using this chain */ | 50 | /* link in ring of all PoolGen's in this GenDesc (locus) */ |
| 51 | RingStruct genRing; | ||
| 51 | Size totalSize; /* total size of segs in gen in this pool */ | 52 | Size totalSize; /* total size of segs in gen in this pool */ |
| 52 | Size newSize; /* size allocated since last GC */ | 53 | Size newSize; /* size allocated since last GC */ |
| 53 | } PoolGenStruct; | 54 | } PoolGenStruct; |
diff --git a/mps/code/locus.c b/mps/code/locus.c index a6a3351f729..81972cc860e 100644 --- a/mps/code/locus.c +++ b/mps/code/locus.c | |||
| @@ -154,7 +154,8 @@ Res ChainCreate(Chain *chainReturn, Arena arena, size_t genCount, | |||
| 154 | } | 154 | } |
| 155 | 155 | ||
| 156 | res = ControlAlloc(&p, arena, genCount * sizeof(GenDescStruct), FALSE); | 156 | res = ControlAlloc(&p, arena, genCount * sizeof(GenDescStruct), FALSE); |
| 157 | if (res != ResOK) return res; | 157 | if (res != ResOK) |
| 158 | return res; | ||
| 158 | gens = (GenDescStruct *)p; | 159 | gens = (GenDescStruct *)p; |
| 159 | 160 | ||
| 160 | for (i = 0; i < genCount; ++i) { | 161 | for (i = 0; i < genCount; ++i) { |
| @@ -256,8 +257,8 @@ double ChainDeferral(Chain chain) | |||
| 256 | /* ChainCondemnAuto -- condemn approriate parts of this chain | 257 | /* ChainCondemnAuto -- condemn approriate parts of this chain |
| 257 | * | 258 | * |
| 258 | * This is only called if ChainDeferral returned a value sufficiently | 259 | * This is only called if ChainDeferral returned a value sufficiently |
| 259 | * high that the tracer decided to start the collection. (Usually | 260 | * low that the tracer decided to start the collection. (Usually |
| 260 | * more than zero, but sometimes less; see mps.design.trace.) | 261 | * such values are less than zero; see <design/trace/>) |
| 261 | */ | 262 | */ |
| 262 | Res ChainCondemnAuto(double *mortalityReturn, Chain chain, Trace trace) | 263 | Res ChainCondemnAuto(double *mortalityReturn, Chain chain, Trace trace) |
| 263 | { | 264 | { |
| @@ -272,7 +273,8 @@ Res ChainCondemnAuto(double *mortalityReturn, Chain chain, Trace trace) | |||
| 272 | 273 | ||
| 273 | /* Find lowest gen within its capacity, set topCondemnedGenSerial to the */ | 274 | /* Find lowest gen within its capacity, set topCondemnedGenSerial to the */ |
| 274 | /* preceeding one. */ | 275 | /* preceeding one. */ |
| 275 | currGenSerial = 0; gen = &chain->gens[0]; | 276 | currGenSerial = 0; |
| 277 | gen = &chain->gens[0]; | ||
| 276 | AVERT(GenDesc, gen); | 278 | AVERT(GenDesc, gen); |
| 277 | genNewSize = GenDescNewSize(gen); | 279 | genNewSize = GenDescNewSize(gen); |
| 278 | do { /* At this point, we've decided to collect currGenSerial. */ | 280 | do { /* At this point, we've decided to collect currGenSerial. */ |
diff --git a/mps/code/mpsi.c b/mps/code/mpsi.c index e8eda64e5b4..316ff6cf03e 100644 --- a/mps/code/mpsi.c +++ b/mps/code/mpsi.c | |||
| @@ -1894,7 +1894,8 @@ mps_res_t mps_chain_create(mps_chain_t *chain_o, mps_arena_t mps_arena, | |||
| 1894 | res = ChainCreate(&chain, arena, gen_count, (GenParamStruct *)params); | 1894 | res = ChainCreate(&chain, arena, gen_count, (GenParamStruct *)params); |
| 1895 | 1895 | ||
| 1896 | ArenaLeave(arena); | 1896 | ArenaLeave(arena); |
| 1897 | if (res != ResOK) return res; | 1897 | if (res != ResOK) |
| 1898 | return res; | ||
| 1898 | *chain_o = (mps_chain_t)chain; | 1899 | *chain_o = (mps_chain_t)chain; |
| 1899 | return MPS_RES_OK; | 1900 | return MPS_RES_OK; |
| 1900 | } | 1901 | } |