aboutsummaryrefslogtreecommitdiffstats
path: root/mps/code
diff options
context:
space:
mode:
authorDavid Jones2003-02-17 11:04:57 +0000
committerDavid Jones2003-02-17 11:04:57 +0000
commit944e84b5f27f9d27e7bcae89eca0338e8b234f08 (patch)
tree15bd8ed7a00bb1f8d1348c4c55c0075a62e30046 /mps/code
parentca4af46f1dd7d22eda401bbfaa2609e41af7aa65 (diff)
downloademacs-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.h5
-rw-r--r--mps/code/locus.c10
-rw-r--r--mps/code/mpsi.c3
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 */
262Res ChainCondemnAuto(double *mortalityReturn, Chain chain, Trace trace) 263Res 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}