aboutsummaryrefslogtreecommitdiffstats
path: root/mps/code
diff options
context:
space:
mode:
authorRichard Brooksby2002-06-24 13:16:30 +0100
committerRichard Brooksby2002-06-24 13:16:30 +0100
commit32f1a93a6a91a2efa54f94c682ec9f0957bb302c (patch)
tree7a0fd3572135edfc915fcbd2334598a73ee3684e /mps/code
parent0e2cfd7e35c6e52fef64d8f3a4871ce1feda41f7 (diff)
downloademacs-32f1a93a6a91a2efa54f94c682ec9f0957bb302c.tar.gz
emacs-32f1a93a6a91a2efa54f94c682ec9f0957bb302c.zip
Fixed various tagging and cross-referencing errors.
Copied from Perforce Change: 30455 ServerID: perforce.ravenbrook.com
Diffstat (limited to 'mps/code')
-rw-r--r--mps/code/abq.c2
-rw-r--r--mps/code/abq.h2
-rw-r--r--mps/code/bt.h6
-rw-r--r--mps/code/dbgpool.c4
-rw-r--r--mps/code/dbgpooli.c4
-rw-r--r--mps/code/finalcv.c2
-rw-r--r--mps/code/global.c4
-rw-r--r--mps/code/mpm.h2
-rw-r--r--mps/code/mpmtypes.h2
-rw-r--r--mps/code/poolamc.c8
-rw-r--r--mps/code/poollo.c4
-rw-r--r--mps/code/root.c2
-rw-r--r--mps/code/ssfri3.c2
-rw-r--r--mps/code/sslii3.c2
-rw-r--r--mps/code/sssos8.s2
-rw-r--r--mps/code/sssus8.c2
-rw-r--r--mps/code/sssus8.s2
-rw-r--r--mps/code/ssw3i3.c2
-rw-r--r--mps/code/th.h2
-rw-r--r--mps/code/than.c2
-rw-r--r--mps/code/thfri4.c2
-rw-r--r--mps/code/thlii4.c2
-rw-r--r--mps/code/thw3i3.c2
-rw-r--r--mps/code/tract.h2
24 files changed, 33 insertions, 33 deletions
diff --git a/mps/code/abq.c b/mps/code/abq.c
index 29f60148057..1ea2835907b 100644
--- a/mps/code/abq.c
+++ b/mps/code/abq.c
@@ -7,7 +7,7 @@
7 * 7 *
8 * .purpose: A FIFO queue substrate for <code/poolmv2.c> 8 * .purpose: A FIFO queue substrate for <code/poolmv2.c>
9 * 9 *
10 * .design: See <design/poolmv2/> 10 * .design: See <design/poolmvt/>
11 */ 11 */
12 12
13#include "meter.h" 13#include "meter.h"
diff --git a/mps/code/abq.h b/mps/code/abq.h
index 85a62ab719f..e39635dfcaa 100644
--- a/mps/code/abq.h
+++ b/mps/code/abq.h
@@ -5,7 +5,7 @@
5 * 5 *
6 * .purpose: A FIFO queue substrate for <code/poolmv2.c> 6 * .purpose: A FIFO queue substrate for <code/poolmv2.c>
7 * 7 *
8 * .source: <design/poolmv2/> 8 * .source: <design/poolmvt/>
9 */ 9 */
10 10
11#ifndef abq_h 11#ifndef abq_h
diff --git a/mps/code/bt.h b/mps/code/bt.h
index c97190a13b0..7f318f8ee85 100644
--- a/mps/code/bt.h
+++ b/mps/code/bt.h
@@ -3,7 +3,8 @@
3 * $Id$ 3 * $Id$
4 * Copyright (c) 2001 Ravenbrook Limited. See end of file for license. 4 * Copyright (c) 2001 Ravenbrook Limited. See end of file for license.
5 * 5 *
6 * .source: design.mps.bt. */ 6 * .source: <design/bt/>
7 */
7 8
8#ifndef bt_h 9#ifndef bt_h
9#define bt_h 10#define bt_h
@@ -11,11 +12,10 @@
11#include "mpmtypes.h" 12#include "mpmtypes.h"
12 13
13 14
14/* design.mps.bt.if.size */ 15/* <design/bt#if.size> */
15extern size_t (BTSize)(unsigned long length); 16extern size_t (BTSize)(unsigned long length);
16#define BTSize(n) (((n) + MPS_WORD_WIDTH-1) / MPS_WORD_WIDTH * sizeof(Word)) 17#define BTSize(n) (((n) + MPS_WORD_WIDTH-1) / MPS_WORD_WIDTH * sizeof(Word))
17 18
18
19/* <design/bt/#if.get> */ 19/* <design/bt/#if.get> */
20extern Bool (BTGet)(BT bt, Index index); 20extern Bool (BTGet)(BT bt, Index index);
21#define BTGet(a, i) \ 21#define BTGet(a, i) \
diff --git a/mps/code/dbgpool.c b/mps/code/dbgpool.c
index 26165f27eb8..79d14a77727 100644
--- a/mps/code/dbgpool.c
+++ b/mps/code/dbgpool.c
@@ -160,7 +160,7 @@ static Res DebugPoolInit(Pool pool, va_list args)
160 /* free-checking init */ 160 /* free-checking init */
161 /* @@@@ This parses a user argument, options, so it should really */ 161 /* @@@@ This parses a user argument, options, so it should really */
162 /* go through the MPS interface. The template needs to be copied */ 162 /* go through the MPS interface. The template needs to be copied */
163 /* into Addr memory, to avoid breaking design.mps.type.addr.use. */ 163 /* into Addr memory, to avoid breaking <design/type#addr.use>. */
164 debug->freeSize = options->freeSize; 164 debug->freeSize = options->freeSize;
165 if (debug->freeSize != 0) { 165 if (debug->freeSize != 0) {
166 if (PoolAlignment(pool) % debug->freeSize != 0) { 166 if (PoolAlignment(pool) % debug->freeSize != 0) {
@@ -420,7 +420,7 @@ static Res tagAlloc(PoolDebugMixin debug,
420 UNUSED(pool); 420 UNUSED(pool);
421 res = PoolAlloc((Addr*)&tag, debug->tagPool, debug->tagSize, FALSE); 421 res = PoolAlloc((Addr*)&tag, debug->tagPool, debug->tagSize, FALSE);
422 if (res != ResOK) { 422 if (res != ResOK) {
423 if (withReservoir) { /* design.mps.object-debug.out-of-space */ 423 if (withReservoir) { /* <design/object-debug/#out-of-space */
424 debug->missingTags++; 424 debug->missingTags++;
425 return ResOK; 425 return ResOK;
426 } else { 426 } else {
diff --git a/mps/code/dbgpooli.c b/mps/code/dbgpooli.c
index 7c3b8648e11..52b6e7d3916 100644
--- a/mps/code/dbgpooli.c
+++ b/mps/code/dbgpooli.c
@@ -21,7 +21,7 @@ void mps_pool_check_fenceposts(mps_pool_t mps_pool)
21 Pool pool = (Pool)mps_pool; 21 Pool pool = (Pool)mps_pool;
22 Arena arena; 22 Arena arena;
23 23
24 /* CHECKT not AVERT, see design.mps.interface.c.check.space */ 24 /* CHECKT not AVERT, see <design/interface-c/#check.space */
25 AVER(CHECKT(Pool, pool)); 25 AVER(CHECKT(Pool, pool));
26 arena = PoolArena(pool); 26 arena = PoolArena(pool);
27 27
@@ -41,7 +41,7 @@ void mps_pool_check_free_space(mps_pool_t mps_pool)
41 Pool pool = (Pool)mps_pool; 41 Pool pool = (Pool)mps_pool;
42 Arena arena; 42 Arena arena;
43 43
44 /* CHECKT not AVERT, see design.mps.interface.c.check.space */ 44 /* CHECKT not AVERT, see <design/interface-c/#check.space */
45 AVER(CHECKT(Pool, pool)); 45 AVER(CHECKT(Pool, pool));
46 arena = PoolArena(pool); 46 arena = PoolArena(pool);
47 47
diff --git a/mps/code/finalcv.c b/mps/code/finalcv.c
index af021086aee..bada75a88b8 100644
--- a/mps/code/finalcv.c
+++ b/mps/code/finalcv.c
@@ -141,7 +141,7 @@ static void *test(void *arg, size_t s)
141 /* <design/poolmrg/#test.promise.ut.churn> */ 141 /* <design/poolmrg/#test.promise.ut.churn> */
142 while (mps_collections(arena) < collectionCOUNT) { 142 while (mps_collections(arena) < collectionCOUNT) {
143 churn(ap); 143 churn(ap);
144 /* design.mps.poolmrg.test.promise.ut.drop */ 144 /* <design/poolmrg/#test.promise.ut.drop> */
145 for (i = 0; i < rootCOUNT; ++i) { 145 for (i = 0; i < rootCOUNT; ++i) {
146 if (root[i] != NULL && state[i] == rootSTATE) { 146 if (root[i] != NULL && state[i] == rootSTATE) {
147 if (rnd() % finalizationRATE == 0) { 147 if (rnd() % finalizationRATE == 0) {
diff --git a/mps/code/global.c b/mps/code/global.c
index 42dd9b4ae99..679ca4e04e0 100644
--- a/mps/code/global.c
+++ b/mps/code/global.c
@@ -91,7 +91,7 @@ static void arenaDenounce(Arena arena)
91 AVERT(Arena, arena); 91 AVERT(Arena, arena);
92 92
93 /* Temporarily give up the arena lock to avoid deadlock, */ 93 /* Temporarily give up the arena lock to avoid deadlock, */
94 /* see design.mps.thread-safety.deadlock. */ 94 /* see <design/thread-safety/#deadlock>. */
95 ArenaLeave(arena); 95 ArenaLeave(arena);
96 96
97 /* Detach the arena from the global list. */ 97 /* Detach the arena from the global list. */
@@ -599,7 +599,7 @@ Res ArenaFinalize(Arena arena, Ref obj)
599 599
600/* ArenaDefinalize -- removes one finalization registration of an object 600/* ArenaDefinalize -- removes one finalization registration of an object
601 * 601 *
602 * See design.mps.finalize. */ 602 * See <design/finalize>. */
603 603
604Res ArenaDefinalize(Arena arena, Ref obj) 604Res ArenaDefinalize(Arena arena, Ref obj)
605{ 605{
diff --git a/mps/code/mpm.h b/mps/code/mpm.h
index 7c292da7b0f..d3845e00174 100644
--- a/mps/code/mpm.h
+++ b/mps/code/mpm.h
@@ -152,7 +152,7 @@ extern size_t StringLength(const char *s);
152 152
153/* Version Determination 153/* Version Determination
154 * 154 *
155 * See <design/version/>-library. */ 155 * See <design/version-library/>. */
156 156
157extern char *MPSVersion(void); 157extern char *MPSVersion(void);
158 158
diff --git a/mps/code/mpmtypes.h b/mps/code/mpmtypes.h
index 55a990438b0..67b2b7886a4 100644
--- a/mps/code/mpmtypes.h
+++ b/mps/code/mpmtypes.h
@@ -252,7 +252,7 @@ typedef void (*FormatPadMethod)(Addr base, Size size);
252typedef Addr (*FormatClassMethod)(Addr object); 252typedef Addr (*FormatClassMethod)(Addr object);
253 253
254 254
255/* Root*Method -- see <design/root/>-interface */ 255/* Root*Method -- see design.mps.root-interface */
256/* .root-methods: These methods must match those defined in the */ 256/* .root-methods: These methods must match those defined in the */
257/* MPS C Interface. (See <code/mps.h#root-methods>.) */ 257/* MPS C Interface. (See <code/mps.h#root-methods>.) */
258 258
diff --git a/mps/code/poolamc.c b/mps/code/poolamc.c
index 08ebe20bccd..14cb1b441d9 100644
--- a/mps/code/poolamc.c
+++ b/mps/code/poolamc.c
@@ -1408,7 +1408,7 @@ Res AMCFix(Pool pool, ScanState ss, Seg seg, Ref *refIO)
1408 EVENT_0(AMCFix); 1408 EVENT_0(AMCFix);
1409 1409
1410 /* For the moment, assume that the object was already marked. */ 1410 /* For the moment, assume that the object was already marked. */
1411 /* (See design.mps.fix.protocol.was-marked.) */ 1411 /* (See <design/fix/#protocol.was-marked>.) */
1412 ss->wasMarked = TRUE; 1412 ss->wasMarked = TRUE;
1413 1413
1414 /* If the reference is ambiguous, set up the datastructures for */ 1414 /* If the reference is ambiguous, set up the datastructures for */
@@ -1467,7 +1467,7 @@ Res AMCFix(Pool pool, ScanState ss, Seg seg, Ref *refIO)
1467 /* object is not preserved yet (neither moved, nor nailed) */ 1467 /* object is not preserved yet (neither moved, nor nailed) */
1468 /* so should be preserved by forwarding */ 1468 /* so should be preserved by forwarding */
1469 EVENT_A(AMCFixForward, newRef); 1469 EVENT_A(AMCFixForward, newRef);
1470 /* design.mps.fix.protocol.was-marked */ 1470 /* <design/fix/#protocol.was-marked> */
1471 ss->wasMarked = FALSE; 1471 ss->wasMarked = FALSE;
1472 1472
1473 /* Get the forwarding buffer from the object's generation. */ 1473 /* Get the forwarding buffer from the object's generation. */
@@ -1555,7 +1555,7 @@ static Res AMCHeaderFix(Pool pool, ScanState ss, Seg seg, Ref *refIO)
1555 EVENT_0(AMCFix); 1555 EVENT_0(AMCFix);
1556 1556
1557 /* For the moment, assume that the object was already marked. */ 1557 /* For the moment, assume that the object was already marked. */
1558 /* (See design.mps.fix.protocol.was-marked.) */ 1558 /* (See <design/fix/#protocol.was-marked>.) */
1559 ss->wasMarked = TRUE; 1559 ss->wasMarked = TRUE;
1560 1560
1561 /* If the reference is ambiguous, set up the datastructures for */ 1561 /* If the reference is ambiguous, set up the datastructures for */
@@ -1613,7 +1613,7 @@ static Res AMCHeaderFix(Pool pool, ScanState ss, Seg seg, Ref *refIO)
1613 /* object is not preserved yet (neither moved, nor nailed) */ 1613 /* object is not preserved yet (neither moved, nor nailed) */
1614 /* so should be preserved by forwarding */ 1614 /* so should be preserved by forwarding */
1615 EVENT_A(AMCFixForward, newRef); 1615 EVENT_A(AMCFixForward, newRef);
1616 /* design.mps.fix.protocol.was-marked */ 1616 /* <design/fix/#protocol.was-marked> */
1617 ss->wasMarked = FALSE; 1617 ss->wasMarked = FALSE;
1618 1618
1619 /* Get the forwarding buffer from the object's generation. */ 1619 /* Get the forwarding buffer from the object's generation. */
diff --git a/mps/code/poollo.c b/mps/code/poollo.c
index bb14f82dc32..c5bc67bd44f 100644
--- a/mps/code/poollo.c
+++ b/mps/code/poollo.c
@@ -713,7 +713,7 @@ static Res LOFix(Pool pool, ScanState ss, Seg seg, Ref *refIO)
713 loseg = SegLOSeg(seg); 713 loseg = SegLOSeg(seg);
714 AVERT_CRITICAL(LOSeg, loseg); 714 AVERT_CRITICAL(LOSeg, loseg);
715 715
716 ss->wasMarked = TRUE; /* design.mps.fix.protocol.was-marked */ 716 ss->wasMarked = TRUE; /* <design/fix/#protocol.was-marked> */
717 717
718 clientRef = *refIO; 718 clientRef = *refIO;
719 base = AddrSub((Addr)clientRef, pool->format->headerSize); 719 base = AddrSub((Addr)clientRef, pool->format->headerSize);
@@ -738,7 +738,7 @@ static Res LOFix(Pool pool, ScanState ss, Seg seg, Ref *refIO)
738 Size i = AddrOffset(SegBase(seg), base) >> lo->alignShift; 738 Size i = AddrOffset(SegBase(seg), base) >> lo->alignShift;
739 739
740 if(!BTGet(loseg->mark, i)) { 740 if(!BTGet(loseg->mark, i)) {
741 ss->wasMarked = FALSE; /* design.mps.fix.protocol.was-marked */ 741 ss->wasMarked = FALSE; /* <design/fix/#protocol.was-marked> */
742 if(ss->rank == RankWEAK) { 742 if(ss->rank == RankWEAK) {
743 *refIO = (Addr)0; 743 *refIO = (Addr)0;
744 } else { 744 } else {
diff --git a/mps/code/root.c b/mps/code/root.c
index dde4664cf3a..8ba4104bf7d 100644
--- a/mps/code/root.c
+++ b/mps/code/root.c
@@ -6,7 +6,7 @@
6 * .purpose: This is the implementation of the root datatype. 6 * .purpose: This is the implementation of the root datatype.
7 * 7 *
8 * .design: For design, see <design/root/> and 8 * .design: For design, see <design/root/> and
9 * <design/root/>-interface. */ 9 * design.mps.root-interface. */
10 10
11#include "mpm.h" 11#include "mpm.h"
12 12
diff --git a/mps/code/ssfri3.c b/mps/code/ssfri3.c
index baf402aef63..1a40225911b 100644
--- a/mps/code/ssfri3.c
+++ b/mps/code/ssfri3.c
@@ -4,7 +4,7 @@
4 * Copyright (c) 2001 Ravenbrook Limited. See end of file for license. 4 * Copyright (c) 2001 Ravenbrook Limited. See end of file for license.
5 * 5 *
6 * This scans the stack and fixes the registers which may contain 6 * This scans the stack and fixes the registers which may contain
7 * roots. See design.mps.thread-manager 7 * roots. See <design/thread-manager/>.
8 * 8 *
9 * The registers edi, esi, ebx are the registers defined to be preserved 9 * The registers edi, esi, ebx are the registers defined to be preserved
10 * across function calls and therefore may contain roots. 10 * across function calls and therefore may contain roots.
diff --git a/mps/code/sslii3.c b/mps/code/sslii3.c
index 549287e5a45..565872c1ab6 100644
--- a/mps/code/sslii3.c
+++ b/mps/code/sslii3.c
@@ -4,7 +4,7 @@
4 * Copyright (c) 2001 Ravenbrook Limited. See end of file for license. 4 * Copyright (c) 2001 Ravenbrook Limited. See end of file for license.
5 * 5 *
6 * This scans the stack and fixes the registers which may contain 6 * This scans the stack and fixes the registers which may contain
7 * roots. See design.mps.thread-manager 7 * roots. See <design/thread-manager/>
8 * 8 *
9 * The registers edi, esi, ebx are the registers defined to be preserved 9 * The registers edi, esi, ebx are the registers defined to be preserved
10 * across function calls and therefore may contain roots. 10 * across function calls and therefore may contain roots.
diff --git a/mps/code/sssos8.s b/mps/code/sssos8.s
index f4f405df1aa..047e2d94e38 100644
--- a/mps/code/sssos8.s
+++ b/mps/code/sssos8.s
@@ -5,7 +5,7 @@
5! Copyright (c) 2001 Ravenbrook Limited. See end of file for license. 5! Copyright (c) 2001 Ravenbrook Limited. See end of file for license.
6! 6!
7! This scans the stack and the preserved integer registers. 7! This scans the stack and the preserved integer registers.
8! See design.mps.thread-manager 8! See <design/thread-manager/>.
9! 9!
10! This file is identical to <code/sssus8.s>, except for the 10! This file is identical to <code/sssus8.s>, except for the
11! leading underscore convention on C names. They should be 11! leading underscore convention on C names. They should be
diff --git a/mps/code/sssus8.c b/mps/code/sssus8.c
index cd5639fb982..0a28bfc6650 100644
--- a/mps/code/sssus8.c
+++ b/mps/code/sssus8.c
@@ -5,7 +5,7 @@
5 * Portions copyright (c) 2002 Global Graphics Software. 5 * Portions copyright (c) 2002 Global Graphics Software.
6 * 6 *
7 * This scans the stack and fixes the registers which may contain 7 * This scans the stack and fixes the registers which may contain
8 * roots. See design.mps.thread-manager. 8 * roots. See <design/thread-manager/>.
9 * 9 *
10 * .roots: The non-global registers are preserved into the stackframe 10 * .roots: The non-global registers are preserved into the stackframe
11 * by the "ta 3" instruction. This leaves the global registers. 11 * by the "ta 3" instruction. This leaves the global registers.
diff --git a/mps/code/sssus8.s b/mps/code/sssus8.s
index 23fd3d333ed..d8ed21fffc7 100644
--- a/mps/code/sssus8.s
+++ b/mps/code/sssus8.s
@@ -5,7 +5,7 @@
5! Copyright (c) 2001 Ravenbrook Limited. See end of file for license. 5! Copyright (c) 2001 Ravenbrook Limited. See end of file for license.
6! 6!
7! This scans the stack and the preserved integer registers. 7! This scans the stack and the preserved integer registers.
8! See design.mps.thread-manager 8! See <design/thread-manager/>.
9! 9!
10! This file is identical to <code/sssos8.s>, except for the 10! This file is identical to <code/sssos8.s>, except for the
11! leading underscore convention on C names. They should be 11! leading underscore convention on C names. They should be
diff --git a/mps/code/ssw3i3.c b/mps/code/ssw3i3.c
index ef76a106fd4..f9b2646b3b6 100644
--- a/mps/code/ssw3i3.c
+++ b/mps/code/ssw3i3.c
@@ -4,7 +4,7 @@
4 * Copyright (c) 2001 Ravenbrook Limited. See end of file for license. 4 * Copyright (c) 2001 Ravenbrook Limited. See end of file for license.
5 * 5 *
6 * This scans the stack and fixes the registers which may contain 6 * This scans the stack and fixes the registers which may contain
7 * roots. See design.mps.thread-manager 7 * roots. See <design/thread-manager/>.
8 * 8 *
9 * The registers edi, esi, ebx are the registers defined to be preserved 9 * The registers edi, esi, ebx are the registers defined to be preserved
10 * across function calls and therefore may contain roots. 10 * across function calls and therefore may contain roots.
diff --git a/mps/code/th.h b/mps/code/th.h
index 37c182a9416..30a2205a356 100644
--- a/mps/code/th.h
+++ b/mps/code/th.h
@@ -4,7 +4,7 @@
4 * Copyright (c) 2001 Ravenbrook Limited. See end of file for license. 4 * Copyright (c) 2001 Ravenbrook Limited. See end of file for license.
5 * 5 *
6 * .purpose: Provides thread suspension facilities to the shield. 6 * .purpose: Provides thread suspension facilities to the shield.
7 * See design.mps.thread-manager. Each thread has to be 7 * See <design/thread-manager/>. Each thread has to be
8 * individually registered and deregistered with an arena. 8 * individually registered and deregistered with an arena.
9 */ 9 */
10 10
diff --git a/mps/code/than.c b/mps/code/than.c
index 2cae435fd05..96553c7cd75 100644
--- a/mps/code/than.c
+++ b/mps/code/than.c
@@ -5,7 +5,7 @@
5 * 5 *
6 * This is a single-threaded implementation of the threads manager. 6 * This is a single-threaded implementation of the threads manager.
7 * Has stubs for thread suspension. 7 * Has stubs for thread suspension.
8 * See design.mps.thread-manager. 8 * See <design/thread-manager/>.
9 * 9 *
10 * .single: We only expect at most one thread on the ring. 10 * .single: We only expect at most one thread on the ring.
11 * 11 *
diff --git a/mps/code/thfri4.c b/mps/code/thfri4.c
index 0f56e7108e8..5c3d70e16c4 100644
--- a/mps/code/thfri4.c
+++ b/mps/code/thfri4.c
@@ -6,7 +6,7 @@
6 * .purpose: This is a pthreads implementation of the threads manager. 6 * .purpose: This is a pthreads implementation of the threads manager.
7 * This implements <code/th.h>. 7 * This implements <code/th.h>.
8 * 8 *
9 * .design: See design.mps.thread-manager. 9 * .design: See <design/thread-manager/>.
10 * 10 *
11 * .thread.id: The thread id is used to identify the current thread. 11 * .thread.id: The thread id is used to identify the current thread.
12 * 12 *
diff --git a/mps/code/thlii4.c b/mps/code/thlii4.c
index 54e05539f60..fbd376c6352 100644
--- a/mps/code/thlii4.c
+++ b/mps/code/thlii4.c
@@ -6,7 +6,7 @@
6 * .purpose: This is a pthreads implementation of the threads manager. 6 * .purpose: This is a pthreads implementation of the threads manager.
7 * This implements <code/th.h>. 7 * This implements <code/th.h>.
8 * 8 *
9 * .design: See design.mps.thread-manager. 9 * .design: See <design/thread-manager/>.
10 * 10 *
11 * .thread.id: The thread id is used to identify the current thread. 11 * .thread.id: The thread id is used to identify the current thread.
12 * 12 *
diff --git a/mps/code/thw3i3.c b/mps/code/thw3i3.c
index ebb17783b62..873f2b4643e 100644
--- a/mps/code/thw3i3.c
+++ b/mps/code/thw3i3.c
@@ -4,7 +4,7 @@
4 * Copyright (c) 2001 Ravenbrook Limited. See end of file for license. 4 * Copyright (c) 2001 Ravenbrook Limited. See end of file for license.
5 * 5 *
6 * Implements thread registration, suspension, and stack 6 * Implements thread registration, suspension, and stack
7 * scanning. See design.mps.thread-manager 7 * scanning. See <design/thread-manager/>.
8 * 8 *
9 * This supports the <code/th.h> 9 * This supports the <code/th.h>
10 * 10 *
diff --git a/mps/code/tract.h b/mps/code/tract.h
index 983c79cff60..c6ac2ae3bc8 100644
--- a/mps/code/tract.h
+++ b/mps/code/tract.h
@@ -249,7 +249,7 @@ extern Bool TractNext(Tract *tractReturn, Arena arena, Addr addr);
249 249
250/* TRACT_TRACT_FOR -- iterate over a range of tracts 250/* TRACT_TRACT_FOR -- iterate over a range of tracts
251 * 251 *
252 * See <design/arena/#tract-iter.if.macro>. 252 * See <design/arena-tract-iter/#if.macro>.
253 * Parameters arena & limit are evaluated multiple times. 253 * Parameters arena & limit are evaluated multiple times.
254 * Check first tract & last tract lie with the same chunk. 254 * Check first tract & last tract lie with the same chunk.
255 */ 255 */