aboutsummaryrefslogtreecommitdiffstats
path: root/mps/code/finalcv.c
diff options
context:
space:
mode:
authorRichard Brooksby2002-06-07 16:47:14 +0100
committerRichard Brooksby2002-06-07 16:47:14 +0100
commit97075f705350901f5ff46387f658ab459a4cd73f (patch)
tree4349ad5e7200f072a800f48749d57f3625757e7e /mps/code/finalcv.c
parent8b990e4858b6f6d735de07a241b1785702bb16e7 (diff)
downloademacs-97075f705350901f5ff46387f658ab459a4cd73f.tar.gz
emacs-97075f705350901f5ff46387f658ab459a4cd73f.zip
Updating cross references to design documents to html style, to go with master/design document tree.
Copied from Perforce Change: 29897 ServerID: perforce.ravenbrook.com
Diffstat (limited to 'mps/code/finalcv.c')
-rw-r--r--mps/code/finalcv.c14
1 files changed, 7 insertions, 7 deletions
diff --git a/mps/code/finalcv.c b/mps/code/finalcv.c
index 801dbd294e4..b9dc50602c6 100644
--- a/mps/code/finalcv.c
+++ b/mps/code/finalcv.c
@@ -5,7 +5,7 @@
5 * 5 *
6 * DESIGN 6 * DESIGN
7 * 7 *
8 * See design.mps.poolmrg.test. 8 * See <design/poolmrg/#test>.
9 * 9 *
10 * DEPENDENCIES 10 * DEPENDENCIES
11 * 11 *
@@ -104,7 +104,7 @@ static void *test(void *arg, size_t s)
104 "root_create\n"); 104 "root_create\n");
105 die(mps_ap_create(&ap, amc, MPS_RANK_EXACT), "ap_create\n"); 105 die(mps_ap_create(&ap, amc, MPS_RANK_EXACT), "ap_create\n");
106 106
107 /* design.mps.poolmrg.test.promise.ut.alloc */ 107 /* <design/poolmrg/#test.promise.ut.alloc> */
108 for(i = 0; i < rootCOUNT; ++i) { 108 for(i = 0; i < rootCOUNT; ++i) {
109 do { 109 do {
110 MPS_RESERVE_BLOCK(e, p, ap, slotSIZE); 110 MPS_RESERVE_BLOCK(e, p, ap, slotSIZE);
@@ -117,7 +117,7 @@ static void *test(void *arg, size_t s)
117 } 117 }
118 p = NULL; 118 p = NULL;
119 119
120 /* design.mps.poolmrg.test.promise.ut.drop */ 120 /* <design/poolmrg/#test.promise.ut.drop> */
121 for(i = 0; i < rootCOUNT; ++i) { 121 for(i = 0; i < rootCOUNT; ++i) {
122 if (rnd() % 2 == 0) 122 if (rnd() % 2 == 0)
123 root[i] = NULL; 123 root[i] = NULL;
@@ -125,7 +125,7 @@ static void *test(void *arg, size_t s)
125 125
126 mps_message_type_enable(arena, mps_message_type_finalization()); 126 mps_message_type_enable(arena, mps_message_type_finalization());
127 127
128 /* design.mps.poolmrg.test.promise.ut.churn */ 128 /* <design/poolmrg/#test.promise.ut.churn> */
129 while(mps_collections(arena) < 3) { 129 while(mps_collections(arena) < 3) {
130 churn(ap); 130 churn(ap);
131 while(mps_message_poll(arena)) { 131 while(mps_message_poll(arena)) {
@@ -133,21 +133,21 @@ static void *test(void *arg, size_t s)
133 mps_word_t objind; 133 mps_word_t objind;
134 mps_addr_t objaddr; 134 mps_addr_t objaddr;
135 135
136 /* design.mps.poolmrg.test.promise.ut.message */ 136 /* <design/poolmrg/#test.promise.ut.message> */
137 cdie(mps_message_get(&message, arena, mps_message_type_finalization()), 137 cdie(mps_message_get(&message, arena, mps_message_type_finalization()),
138 "get"); 138 "get");
139 mps_message_finalization_ref(&objaddr, arena, message); 139 mps_message_finalization_ref(&objaddr, arena, message);
140 obj = objaddr; 140 obj = objaddr;
141 objind = dylan_int_int(obj[2]); 141 objind = dylan_int_int(obj[2]);
142 printf("Finalizing: object %lu at %p\n", objind, objaddr); 142 printf("Finalizing: object %lu at %p\n", objind, objaddr);
143 /* design.mps.poolmrg.test.promise.ut.final.check */ 143 /* <design/poolmrg/#test.promise.ut.final.check> */
144 cdie(root[objind] == NULL, "died"); 144 cdie(root[objind] == NULL, "died");
145 root[objind] = objaddr; 145 root[objind] = objaddr;
146 mps_message_discard(arena, message); 146 mps_message_discard(arena, message);
147 } 147 }
148 } 148 }
149 149
150 /* @@@@ design.mps.poolmrg.test.promise.ut.nofinal.check missing */ 150 /* @@@@ <design/poolmrg/#test.promise.ut.nofinal.check> missing */
151 151
152 mps_ap_destroy(ap); 152 mps_ap_destroy(ap);
153 mps_root_destroy(mps_root[1]); 153 mps_root_destroy(mps_root[1]);