diff options
| author | Richard Brooksby | 2002-06-07 16:47:14 +0100 |
|---|---|---|
| committer | Richard Brooksby | 2002-06-07 16:47:14 +0100 |
| commit | 97075f705350901f5ff46387f658ab459a4cd73f (patch) | |
| tree | 4349ad5e7200f072a800f48749d57f3625757e7e /mps/code/finalcv.c | |
| parent | 8b990e4858b6f6d735de07a241b1785702bb16e7 (diff) | |
| download | emacs-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.c | 14 |
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]); |