The amcssth test case now registers its threads' stacks as roots with the mps.

Copied from Perforce
 Change: 181076
 ServerID: perforce.ravenbrook.com

1 files changed, 5 insertions, 0 deletions

diff --git a/mps/code/amcssth.c b/mps/code/amcssth.c
index 911c9977251..e5ed673c80c 100644
--- a/mps/code/amcssth.c
+++ b/mps/code/amcssth.c
@@ -313,6 +313,8 @@ static void *fooey(void* childIsFinishedReturn)
 int main(int argc, char *argv[])
 {
   mps_thr_t thread;
+  mps_root_t reg_root;
+  void *marker = ▮
   pthread_t pthread1;
   void *r;
   int childIsFinished = 0;
@@ -324,8 +326,11 @@ int main(int argc, char *argv[])
   mps_message_type_enable(arena, mps_message_type_gc());
   init();
   die(mps_thread_reg(&thread, arena), "thread_reg");
+  die(mps_root_create_reg(&reg_root, arena, mps_rank_ambig(), 0, thread,
+                          mps_stack_scan_ambig, marker, 0), "root_create");
   pthread_create(&pthread1, NULL, fooey, (void *)&childIsFinished);
   mps_tramp(&r, test, arena, 0);
+  mps_root_destroy(reg_root);
   mps_thread_dereg(thread);
 
   while (!childIsFinished) {