Avoid using deprecated function mps_tramp.

Use mps_root_create_thread in preference to mps_root_create_reg.
New test harness run_test passes pointer to cold end of stack, since this is needed by many tests.

Copied from Perforce
 Change: 195917

mps/test/argerr/0.c

@@ -14,7 +14,7 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-static void test(void)
+static void test(void *stack_pointer)
 {
  adie(mps_arena_create(NULL, mps_arena_class_vm(), mmqaArenaSIZE),
       "Create arena");
@@ -22,6 +22,6 @@ static void test(void)
 
 int main(void)
 {
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/1.c

@@ -12,7 +12,7 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-static void test(void)
+static void test(void *stack_pointer)
 {
  adie(mps_arena_create(UNALIGNED, mps_arena_class_vm(), mmqaArenaSIZE),
       "Create arena");
@@ -20,6 +20,6 @@ static void test(void)
 
 int main(void)
 {
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/10.c

@@ -21,9 +21,7 @@ END_HEADER
 static mps_gen_param_s testChain[genCOUNT] = {
   { 6000, 0.90 }, { 8000, 0.65 }, { 16000, 0.50 } };
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -36,11 +34,7 @@ static void test(void)
 
  cdie(mps_thread_reg(&thread, arena), "register thread");
 
- cdie(
-  mps_root_create_reg(&root, arena, mps_rank_ambig(), 0, thread,
-   mps_stack_scan_ambig, stackpointer, 0),
-  "create root");
-
+ cdie(mps_root_create_thread(&root, arena, thread, stack_pointer), "thread root");
  cdie(
   mps_fmt_create_A(&format, arena, &fmtA),
   "create format");
@@ -57,9 +51,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/100.c

@@ -14,9 +14,7 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -34,9 +32,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/101.c

@@ -12,9 +12,7 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -32,9 +30,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/102.c

@@ -14,9 +14,7 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -35,9 +33,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/103.c

@@ -12,9 +12,7 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -33,9 +31,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/104.c

@@ -14,9 +14,7 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -35,9 +33,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/105.c

@@ -14,9 +14,7 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -35,9 +33,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/106.c

@@ -14,9 +14,7 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -35,9 +33,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/107.c

@@ -14,9 +14,7 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -35,9 +33,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/108.c

@@ -14,9 +14,7 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -35,9 +33,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/109.c

@@ -14,9 +14,7 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -35,9 +33,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/11.c

@@ -19,9 +19,7 @@ END_HEADER
 static mps_gen_param_s testChain[genCOUNT] = {
   { 6000, 0.90 }, { 8000, 0.65 }, { 16000, 0.50 } };
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -33,11 +31,7 @@ static void test(void)
 
  cdie(mps_thread_reg(&thread, arena), "register thread");
 
- cdie(
-  mps_root_create_reg(&root, arena, mps_rank_ambig(), 0, thread,
-   mps_stack_scan_ambig, stackpointer, 0),
-  "create root");
-
+ cdie(mps_root_create_thread(&root, arena, thread, stack_pointer), "thread root");
  cdie(
   mps_fmt_create_A(&format, arena, &fmtA),
   "create format");
@@ -54,9 +48,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/110.c

@@ -14,9 +14,7 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -35,9 +33,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/111.c

@@ -14,9 +14,7 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -35,9 +33,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/112.c

@@ -14,9 +14,7 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -35,9 +33,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/113.c

@@ -10,9 +10,7 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -31,9 +29,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/114.c

@@ -14,9 +14,7 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -35,9 +33,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/115.c

@@ -14,15 +14,13 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
 static mps_res_t fmtscan(mps_ss_t ss,
   mps_addr_t base, mps_addr_t limit)
 {
  return MPS_RES_OK;
 }
 
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -40,9 +38,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/116.c

@@ -12,15 +12,13 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
 static mps_res_t fmtscan(mps_ss_t ss,
   mps_addr_t base, mps_addr_t limit)
 {
  return MPS_RES_OK;
 }
 
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -38,9 +36,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/117.c

@@ -14,15 +14,13 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
 static mps_res_t fmtscan(mps_ss_t ss,
   mps_addr_t base, mps_addr_t limit)
 {
  return MPS_RES_OK;
 }
 
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -41,9 +39,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/118.c

@@ -12,15 +12,13 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
 static mps_res_t fmtscan(mps_ss_t ss,
   mps_addr_t base, mps_addr_t limit)
 {
  return MPS_RES_OK;
 }
 
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -39,9 +37,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/119.c

@@ -14,15 +14,13 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
 static mps_res_t fmtscan(mps_ss_t ss,
   mps_addr_t base, mps_addr_t limit)
 {
  return MPS_RES_OK;
 }
 
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -41,9 +39,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/12.c

@@ -21,9 +21,7 @@ END_HEADER
 static mps_gen_param_s testChain[genCOUNT] = {
   { 6000, 0.90 }, { 8000, 0.65 }, { 16000, 0.50 } };
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -37,11 +35,7 @@ static void test(void)
 
  cdie(mps_thread_reg(&thread, arena), "register thread");
 
- cdie(
-  mps_root_create_reg(&root, arena, mps_rank_ambig(), 0, thread,
-   mps_stack_scan_ambig, stackpointer, 0),
-  "create root");
-
+ cdie(mps_root_create_thread(&root, arena, thread, stack_pointer), "thread root");
  cdie(
   mps_fmt_create_A(&format, arena, &fmtA),
   "create format");
@@ -58,9 +52,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/120.c

@@ -14,15 +14,13 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
 static mps_res_t fmtscan(mps_ss_t ss,
   mps_addr_t base, mps_addr_t limit)
 {
  return MPS_RES_OK;
 }
 
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -41,9 +39,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/121.c

@@ -14,15 +14,13 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
 static mps_res_t fmtscan(mps_ss_t ss,
   mps_addr_t base, mps_addr_t limit)
 {
  return MPS_RES_OK;
 }
 
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -41,9 +39,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/122.c

@@ -14,15 +14,13 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
 static mps_res_t fmtscan(mps_ss_t ss,
   mps_addr_t base, mps_addr_t limit)
 {
  return MPS_RES_OK;
 }
 
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -41,9 +39,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/123.c

@@ -14,15 +14,13 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
 static mps_res_t fmtscan(mps_ss_t ss,
   mps_addr_t base, mps_addr_t limit)
 {
  return MPS_RES_OK;
 }
 
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -41,9 +39,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/124.c

@@ -14,15 +14,13 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
 static mps_res_t fmtscan(mps_ss_t ss,
   mps_addr_t base, mps_addr_t limit)
 {
  return MPS_RES_OK;
 }
 
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -41,9 +39,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/125.c

@@ -14,15 +14,13 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
 static mps_res_t fmtscan(mps_ss_t ss,
   mps_addr_t base, mps_addr_t limit)
 {
  return MPS_RES_OK;
 }
 
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -41,9 +39,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/126.c

@@ -10,15 +10,13 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
 static mps_res_t fmtscan(mps_ss_t ss,
   mps_addr_t base, mps_addr_t limit)
 {
  return MPS_RES_OK;
 }
 
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -37,9 +35,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/127.c

@@ -14,15 +14,13 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
 static mps_res_t fmtscan(mps_ss_t ss,
   mps_addr_t base, mps_addr_t limit)
 {
  return MPS_RES_OK;
 }
 
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -41,9 +39,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/128.c

@@ -10,15 +10,13 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
 static mps_res_t fmtscan(mps_ss_t ss,
   mps_addr_t base, mps_addr_t limit)
 {
  return MPS_RES_OK;
 }
 
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -37,9 +35,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/129.c

@@ -14,15 +14,13 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
 static mps_res_t fmtscan(mps_ss_t ss,
   mps_addr_t base, mps_addr_t limit)
 {
  return MPS_RES_OK;
 }
 
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -41,9 +39,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/13.c

@@ -19,9 +19,7 @@ END_HEADER
 static mps_gen_param_s testChain[genCOUNT] = {
   { 6000, 0.90 }, { 8000, 0.65 }, { 16000, 0.50 } };
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -35,11 +33,7 @@ static void test(void)
 
  cdie(mps_thread_reg(&thread, arena), "register thread");
 
- cdie(
-  mps_root_create_reg(&root, arena, mps_rank_ambig(), 0, thread,
-   mps_stack_scan_ambig, stackpointer, 0),
-  "create root");
-
+ cdie(mps_root_create_thread(&root, arena, thread, stack_pointer), "thread root");
  cdie(
   mps_fmt_create_A(&format, arena, &fmtA),
   "create format");
@@ -56,9 +50,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/130.c

@@ -1,7 +1,7 @@
 /* 
 TEST_HEADER
  id = $Id$
- summary = null &root_t for mps_root_create_reg
+ summary = null &root_t for mps_root_create_thread
  language = c
  link = testlib.o
 OUTPUT_SPEC
@@ -14,9 +14,7 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -25,17 +23,11 @@ static void test(void)
 
  cdie(mps_thread_reg(&thread, arena), "register thread");
 
- cdie(mps_root_create_reg(NULL, arena, mps_rank_ambig(), 0, 
-                      thread, mps_stack_scan_ambig, stackpointer, 0),
-      "root create");
-
+ cdie(mps_root_create_thread(NULL, arena, thread, stack_pointer), "thread root");
 }
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/131.c

@@ -1,7 +1,7 @@
 /* 
 TEST_HEADER
  id = $Id$
- summary = UNALIGNED &root_t for mps_root_create_reg
+ summary = UNALIGNED &root_t for mps_root_create_thread
  language = c
  link = testlib.o
 OUTPUT_SPEC
@@ -12,9 +12,7 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -23,17 +21,11 @@ static void test(void)
 
  cdie(mps_thread_reg(&thread, arena), "register thread");
 
- cdie(mps_root_create_reg(UNALIGNED, arena, mps_rank_ambig(), 0, 
-                      thread, mps_stack_scan_ambig, stackpointer, 0),
-      "root create");
-
+ cdie(mps_root_create_thread(UNALIGNED, arena, thread, stack_pointer), "root");
 }
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/132.c

@@ -1,7 +1,7 @@
 /* 
 TEST_HEADER
  id = $Id$
- summary = null arena for mps_root_create_reg
+ summary = null arena for mps_root_create_thread
  language = c
  link = testlib.o
 OUTPUT_SPEC
@@ -14,9 +14,7 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -26,17 +24,11 @@ static void test(void)
 
  cdie(mps_thread_reg(&thread, arena), "register thread");
 
- cdie(mps_root_create_reg(&root, NULL, mps_rank_ambig(), 0, 
-                      thread, mps_stack_scan_ambig, stackpointer, 0),
-      "root create");
-
+ cdie(mps_root_create_thread(&root, NULL, thread, stack_pointer), "thread root");
 }
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/133.c

@@ -1,7 +1,7 @@
 /* 
 TEST_HEADER
  id = $Id$
- summary = UNALIGNED arena for mps_root_create_reg
+ summary = UNALIGNED arena for mps_root_create_thread
  language = c
  link = testlib.o
 OUTPUT_SPEC
@@ -12,9 +12,7 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -24,17 +22,11 @@ static void test(void)
 
  cdie(mps_thread_reg(&thread, arena), "register thread");
 
- cdie(mps_root_create_reg(&root, UNALIGNED, mps_rank_ambig(), 0, 
-                      thread, mps_stack_scan_ambig, stackpointer, 0),
-      "root create");
-
+ cdie(mps_root_create_thread(&root, UNALIGNED, thread, stack_pointer), "thread root");
 }
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/134.c

@@ -14,9 +14,7 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -27,16 +25,13 @@ static void test(void)
  cdie(mps_thread_reg(&thread, arena), "register thread");
 
  cdie(mps_root_create_reg(&root, arena, mps_rank_ambig()-1, 0, 
-                      thread, mps_stack_scan_ambig, stackpointer, 0),
+                      thread, mps_stack_scan_ambig, stack_pointer, 0),
       "root create");
 
 }
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/135.c

@@ -14,9 +14,7 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -27,16 +25,13 @@ static void test(void)
  cdie(mps_thread_reg(&thread, arena), "register thread");
 
  cdie(mps_root_create_reg(&root, arena, mps_rank_ambig()+1, 0, 
-                      thread, mps_stack_scan_ambig, stackpointer, 0),
+                      thread, mps_stack_scan_ambig, stack_pointer, 0),
       "root create");
 
 }
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/136.c

@@ -14,9 +14,7 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -28,16 +26,13 @@ static void test(void)
 
  cdie(mps_root_create_reg(&root, arena, mps_rank_ambig()+HIGHBIT_INT,
                       0, 
-                      thread, mps_stack_scan_ambig, stackpointer, 0),
+                      thread, mps_stack_scan_ambig, stack_pointer, 0),
       "root create");
 
 }
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/137.c

@@ -14,9 +14,7 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -28,16 +26,13 @@ static void test(void)
 
  cdie(mps_root_create_reg(&root, arena, mps_rank_ambig(),
                       -1, 
-                      thread, mps_stack_scan_ambig, stackpointer, 0),
+                      thread, mps_stack_scan_ambig, stack_pointer, 0),
       "root create");
 
 }
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/138.c

@@ -14,9 +14,7 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -28,16 +26,13 @@ static void test(void)
 
  cdie(mps_root_create_reg(&root, arena, mps_rank_ambig(),
                       8, 
-                      thread, mps_stack_scan_ambig, stackpointer, 0),
+                      thread, mps_stack_scan_ambig, stack_pointer, 0),
       "root create");
 
 }
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/139.c

@@ -14,9 +14,7 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -28,16 +26,13 @@ static void test(void)
 
  cdie(mps_root_create_reg(&root, arena, mps_rank_ambig(),
                       HIGHBIT_INT, 
-                      thread, mps_stack_scan_ambig, stackpointer, 0),
+                      thread, mps_stack_scan_ambig, stack_pointer, 0),
       "root create");
 
 }
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/14.c

@@ -16,9 +16,7 @@ END_HEADER
 #include "newfmt.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -31,11 +29,7 @@ static void test(void)
 
  cdie(mps_thread_reg(&thread, arena), "register thread");
 
- cdie(
-  mps_root_create_reg(&root, arena, mps_rank_ambig(), 0, thread,
-   mps_stack_scan_ambig, stackpointer, 0),
-  "create root");
-
+ cdie(mps_root_create_thread(&root, arena, thread, stack_pointer), "thread root");
  cdie(
   mps_fmt_create_A(&format, arena, &fmtA),
   "create format");
@@ -50,9 +44,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/140.c

@@ -1,7 +1,7 @@
 /* 
 TEST_HEADER
  id = $Id$
- summary = null thread for mps_root_create_reg
+ summary = null thread for mps_root_create_thread
  language = c
  link = testlib.o
 OUTPUT_SPEC
@@ -13,9 +13,7 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -25,17 +23,11 @@ static void test(void)
 
  cdie(mps_thread_reg(&thread, arena), "register thread");
 
- cdie(mps_root_create_reg(&root, arena, mps_rank_ambig(), 0,
-                      NULL, mps_stack_scan_ambig, stackpointer, 0),
-      "root create");
-
+ cdie(mps_root_create_thread(&root, arena, NULL, stack_pointer), "thread root");
 }
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/141.c

@@ -1,7 +1,7 @@
 /* 
 TEST_HEADER
  id = $Id$
- summary = UNALIGNED thread for mps_root_create_reg
+ summary = UNALIGNED thread for mps_root_create_thread
  language = c
  link = testlib.o
 OUTPUT_SPEC
@@ -12,9 +12,7 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -24,17 +22,11 @@ static void test(void)
 
  cdie(mps_thread_reg(&thread, arena), "register thread");
 
- cdie(mps_root_create_reg(&root, arena, mps_rank_ambig(), 0,
-                      UNALIGNED, mps_stack_scan_ambig, stackpointer, 0),
-      "root create");
-
+ cdie(mps_root_create_thread(&root, arena, UNALIGNED, stack_pointer), "thread root");
 }
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/142.c

@@ -1,7 +1,7 @@
 /* 
 TEST_HEADER
  id = $Id$
- summary = null stackpointer for mps_root_create_reg
+ summary = null stack pointer for mps_root_create_thread
  language = c
  link = testlib.o
 OUTPUT_SPEC
@@ -14,9 +14,7 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -26,17 +24,11 @@ static void test(void)
 
  cdie(mps_thread_reg(&thread, arena), "register thread");
 
- cdie(mps_root_create_reg(&root, arena, mps_rank_ambig(), 0,
-                      thread, mps_stack_scan_ambig, NULL, 0),
-      "root create");
-
+ cdie(mps_root_create_thread(&root, arena, thread, NULL), "thread root");
 }
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/143.c

@@ -1,7 +1,7 @@
 /* 
 TEST_HEADER
  id = $Id$
- summary = UNALIGNED stackpointer for mps_root_create_reg
+ summary = UNALIGNED stack pointer for mps_root_create_thread
  language = c
  link = testlib.o
 OUTPUT_SPEC
@@ -14,9 +14,7 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -26,17 +24,11 @@ static void test(void)
 
  cdie(mps_thread_reg(&thread, arena), "register thread");
 
- cdie(mps_root_create_reg(&root, arena, mps_rank_ambig(), 0,
-                      thread, mps_stack_scan_ambig, UNALIGNED, 0),
-      "root create");
-
+ cdie(mps_root_create_thread(&root, arena, thread, UNALIGNED), "thread root");
 }
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/144.c

@@ -14,9 +14,7 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -31,9 +29,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/145.c

@@ -12,9 +12,7 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -29,9 +27,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/146.c

@@ -374,9 +374,7 @@ static void setref(mycell *obj, int n, mycell *to)
 static mps_gen_param_s testChain[genCOUNT] = {
   { 6000, 0.90 }, { 8000, 0.65 }, { 16000, 0.50 } };
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -394,11 +392,7 @@ static void test(void)
 
  cdie(mps_thread_reg(&thread, arena), "register thread");
 
- cdie(
-  mps_root_create_reg(&root, arena, mps_rank_ambig(), 0, thread,
-   mps_stack_scan_ambig, stackpointer, 0),
-  "create root");
-
+ cdie(mps_root_create_thread(&root, arena, thread, stack_pointer), "thread root");
  cdie(
   mps_fmt_create_A(&format, arena, &fmtA),
   "create format");
@@ -438,9 +432,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/147.c

@@ -374,9 +374,7 @@ static void setref(mycell *obj, int n, mycell *to)
 static mps_gen_param_s testChain[genCOUNT] = {
   { 6000, 0.90 }, { 8000, 0.65 }, { 16000, 0.50 } };
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -394,11 +392,7 @@ static void test(void)
 
  cdie(mps_thread_reg(&thread, arena), "register thread");
 
- cdie(
-  mps_root_create_reg(&root, arena, mps_rank_ambig(), 0, thread,
-   mps_stack_scan_ambig, stackpointer, 0),
-  "create root");
-
+ cdie(mps_root_create_thread(&root, arena, thread, stack_pointer), "thread root");
  cdie(
   mps_fmt_create_A(&format, arena, &fmtA),
   "create format");
@@ -429,9 +423,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/148.c

@@ -374,9 +374,7 @@ static void setref(mycell *obj, int n, mycell *to)
 static mps_gen_param_s testChain[genCOUNT] = {
   { 6000, 0.90 }, { 8000, 0.65 }, { 16000, 0.50 } };
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -394,11 +392,7 @@ static void test(void)
 
  cdie(mps_thread_reg(&thread, arena), "register thread");
 
- cdie(
-  mps_root_create_reg(&root, arena, mps_rank_ambig(), 0, thread,
-   mps_stack_scan_ambig, stackpointer, 0),
-  "create root");
-
+ cdie(mps_root_create_thread(&root, arena, thread, stack_pointer), "thread root");
  cdie(
   mps_fmt_create_A(&format, arena, &fmtA),
   "create format");
@@ -429,9 +423,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/149.c

@@ -436,9 +436,7 @@ long int getsize(mycell *obj)
 static mps_gen_param_s testChain[genCOUNT] = {
   { 6000, 0.90 }, { 8000, 0.65 }, { 16000, 0.50 } };
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -456,11 +454,7 @@ static void test(void)
 
  cdie(mps_thread_reg(&thread, arena), "register thread");
 
- cdie(
-  mps_root_create_reg(&root, arena, mps_rank_ambig(), 0, thread,
-   mps_stack_scan_ambig, stackpointer, 0),
-  "create root");
-
+ cdie(mps_root_create_thread(&root, arena, thread, stack_pointer), "thread root");
  cdie(
   mps_fmt_create_A(&format, arena, &fmtA),
   "create format");
@@ -491,9 +485,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/15.c

@@ -14,9 +14,7 @@ END_HEADER
 #include "newfmt.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -29,11 +27,7 @@ static void test(void)
 
  cdie(mps_thread_reg(&thread, arena), "register thread");
 
- cdie(
-  mps_root_create_reg(&root, arena, mps_rank_ambig(), 0, thread,
-   mps_stack_scan_ambig, stackpointer, 0),
-  "create root");
-
+ cdie(mps_root_create_thread(&root, arena, thread, stack_pointer), "thread root");
  cdie(
   mps_fmt_create_A(&format, arena, &fmtA),
   "create format");
@@ -48,9 +42,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/150.c

@@ -435,9 +435,7 @@ long int getsize(mycell *obj)
 static mps_gen_param_s testChain[genCOUNT] = {
   { 6000, 0.90 }, { 8000, 0.65 }, { 16000, 0.50 } };
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -455,11 +453,7 @@ static void test(void)
 
  cdie(mps_thread_reg(&thread, arena), "register thread");
 
- cdie(
-  mps_root_create_reg(&root, arena, mps_rank_ambig(), 0, thread,
-   mps_stack_scan_ambig, stackpointer, 0),
-  "create root");
-
+ cdie(mps_root_create_thread(&root, arena, thread, stack_pointer), "thread root");
  cdie(
   mps_fmt_create_A(&format, arena, &fmtA),
   "create format");
@@ -490,9 +484,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/151.c

@@ -436,9 +436,7 @@ long int getsize(mycell *obj)
 static mps_gen_param_s testChain[genCOUNT] = {
   { 6000, 0.90 }, { 8000, 0.65 }, { 16000, 0.50 } };
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -456,11 +454,7 @@ static void test(void)
 
  cdie(mps_thread_reg(&thread, arena), "register thread");
 
- cdie(
-  mps_root_create_reg(&root, arena, mps_rank_ambig(), 0, thread,
-   mps_stack_scan_ambig, stackpointer, 0),
-  "create root");
-
+ cdie(mps_root_create_thread(&root, arena, thread, stack_pointer), "thread root");
  cdie(
   mps_fmt_create_A(&format, arena, &fmtA),
   "create format");
@@ -491,9 +485,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/152.c

@@ -11,9 +11,7 @@ END_HEADER
 #include "mpscmfs.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -41,9 +39,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/153.c

@@ -13,7 +13,8 @@ END_HEADER
 #include "testlib.h"
 #include "mpscmvff.h"
 
-static void test(void) {
+static void test(void *stack_pointer)
+{
  mps_arena_t arena;
  mps_pool_t pool;
  mps_addr_t q;
@@ -29,6 +30,6 @@ static void test(void) {
 }
 
 int main(void) {
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/154.c

@@ -24,9 +24,7 @@ END_HEADER
 static mps_gen_param_s testChain[genCOUNT] = {
   { 6000, 0.90 }, { 8000, 0.65 }, { 16000, 0.50 } };
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -42,11 +40,7 @@ static void test(void)
 
  cdie(mps_thread_reg(&thread, arena), "register thread");
 
- cdie(
-  mps_root_create_reg(&root, arena, mps_rank_ambig(), 0, thread,
-   mps_stack_scan_ambig, stackpointer, 0),
-  "create root");
-
+ cdie(mps_root_create_thread(&root, arena, thread, stack_pointer), "thread root");
  cdie(
   mps_fmt_create_A(&format, arena, &fmtA),
   "create format");
@@ -70,9 +64,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/155.c

@@ -14,7 +14,7 @@ END_HEADER
 #include "testlib.h"
 #include "mps.h"
 
-static void test(void)
+static void test(void *stack_pointer)
 {
   void *p = &p;
   mps_arena_t arena;
@@ -26,6 +26,6 @@ static void test(void)
 
 int main(void)
 {
-  easy_tramp(test);
+  run_test(test);
   return 0;
 }

mps/test/argerr/156.c

@@ -14,7 +14,7 @@ END_HEADER
 #include "testlib.h"
 #include "mps.h"
 
-static void test(void)
+static void test(void *stack_pointer)
 {
   void *p = &p;
   mps_arena_t arena;
@@ -26,6 +26,6 @@ static void test(void)
 
 int main(void)
 {
-  easy_tramp(test);
+  run_test(test);
   return 0;
 }

mps/test/argerr/157.c

@@ -15,7 +15,7 @@ END_HEADER
 #include "mps.h"
 #include "mpscmvff.h"
 
-static void test(void)
+static void test(void *stack_pointer)
 {
   void *p;
   mps_arena_t arena;
@@ -32,6 +32,6 @@ static void test(void)
 
 int main(void)
 {
-  easy_tramp(test);
+  run_test(test);
   return 0;
 }

mps/test/argerr/158.c

@@ -14,7 +14,7 @@ END_HEADER
 #include "testlib.h"
 #include "mps.h"
 
-static void test(void)
+static void test(void *stack_pointer)
 {
   mps_arena_t arena;
   MPS_ARGS_BEGIN(args) {
@@ -26,6 +26,6 @@ static void test(void)
 
 int main(void)
 {
-  easy_tramp(test);
+  run_test(test);
   return 0;
 }

mps/test/argerr/159.c

@@ -14,7 +14,7 @@ END_HEADER
 #include "testlib.h"
 #include "mps.h"
 
-static void test(void)
+static void test(void *stack_pointer)
 {
   mps_arena_t arena;
   cdie(mps_arena_create_k(&arena, mps_arena_class_vm(), mps_args_none),
@@ -25,6 +25,6 @@ static void test(void)
 
 int main(void)
 {
-  easy_tramp(test);
+  run_test(test);
   return 0;
 }

mps/test/argerr/16.c

@@ -21,9 +21,7 @@ END_HEADER
 static mps_gen_param_s testChain[genCOUNT] = {
   { 6000, 0.90 }, { 8000, 0.65 }, { 16000, 0.50 } };
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -37,11 +35,7 @@ static void test(void)
 
  cdie(mps_thread_reg(&thread, arena), "register thread");
 
- cdie(
-  mps_root_create_reg(&root, arena, mps_rank_ambig(), 0, thread,
-   mps_stack_scan_ambig, stackpointer, 0),
-  "create root");
-
+ cdie(mps_root_create_thread(&root, arena, thread, stack_pointer), "thread root");
  cdie(
   mps_fmt_create_A(&format, arena, &fmtA),
   "create format");
@@ -58,9 +52,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/160.c

@@ -14,7 +14,7 @@ END_HEADER
 #include "testlib.h"
 #include "mps.h"
 
-static void test(void)
+static void test(void *stack_pointer)
 {
   mps_arena_t arena;
   MPS_ARGS_BEGIN(args) {
@@ -26,6 +26,6 @@ static void test(void)
 
 int main(void)
 {
-  easy_tramp(test);
+  run_test(test);
   return 0;
 }

mps/test/argerr/161.c

@@ -14,7 +14,7 @@ END_HEADER
 #include "testlib.h"
 #include "mps.h"
 
-static void test(void)
+static void test(void *stack_pointer)
 {
   mps_arena_t arena;
   cdie(mps_arena_create_k(&arena, mps_arena_class_vm(), mps_args_none),
@@ -25,6 +25,6 @@ static void test(void)
 
 int main(void)
 {
-  easy_tramp(test);
+  run_test(test);
   return 0;
 }

mps/test/argerr/17.c

@@ -19,9 +19,7 @@ END_HEADER
 static mps_gen_param_s testChain[genCOUNT] = {
   { 6000, 0.90 }, { 8000, 0.65 }, { 16000, 0.50 } };
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -34,11 +32,7 @@ static void test(void)
 
  cdie(mps_thread_reg(&thread, arena), "register thread");
 
- cdie(
-  mps_root_create_reg(&root, arena, mps_rank_ambig(), 0, thread,
-   mps_stack_scan_ambig, stackpointer, 0),
-  "create root");
-
+ cdie(mps_root_create_thread(&root, arena, thread, stack_pointer), "thread root");
  cdie(
   mps_fmt_create_A(&format, arena, &fmtA),
   "create format");
@@ -55,9 +49,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/18.c

@@ -21,9 +21,7 @@ END_HEADER
 static mps_gen_param_s testChain[genCOUNT] = {
   { 6000, 0.90 }, { 8000, 0.65 }, { 16000, 0.50 } };
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -37,11 +35,7 @@ static void test(void)
 
  cdie(mps_thread_reg(&thread, arena), "register thread");
 
- cdie(
-  mps_root_create_reg(&root, arena, mps_rank_ambig(), 0, thread,
-   mps_stack_scan_ambig, stackpointer, 0),
-  "create root");
-
+ cdie(mps_root_create_thread(&root, arena, thread, stack_pointer), "thread root");
  cdie(
   mps_fmt_create_A(&format, arena, &fmtA),
   "create format");
@@ -60,9 +54,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/19.c

@@ -19,9 +19,7 @@ END_HEADER
 static mps_gen_param_s testChain[genCOUNT] = {
   { 6000, 0.90 }, { 8000, 0.65 }, { 16000, 0.50 } };
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -34,11 +32,7 @@ static void test(void)
 
  cdie(mps_thread_reg(&thread, arena), "register thread");
 
- cdie(
-  mps_root_create_reg(&root, arena, mps_rank_ambig(), 0, thread,
-   mps_stack_scan_ambig, stackpointer, 0),
-  "create root");
-
+ cdie(mps_root_create_thread(&root, arena, thread, stack_pointer), "thread root");
  cdie(
   mps_fmt_create_A(&format, arena, &fmtA),
   "create format");
@@ -57,9 +51,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/2.c

@@ -14,7 +14,7 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
 
@@ -25,6 +25,6 @@ static void test(void)
 
 int main(void)
 {
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/20.c

@@ -15,9 +15,7 @@ END_HEADER
 #include "mpscmfs.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -43,9 +41,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/21.c

@@ -13,9 +13,7 @@ END_HEADER
 #include "mpscmfs.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -41,9 +39,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/22.c

@@ -15,9 +15,7 @@ END_HEADER
 #include "mpscmfs.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -44,9 +42,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/23.c

@@ -13,9 +13,7 @@ END_HEADER
 #include "mpscmfs.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -42,9 +40,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/24.c

@@ -15,9 +15,7 @@ END_HEADER
 #include "mpscmfs.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -44,9 +42,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/25.c

@@ -15,9 +15,7 @@ END_HEADER
 #include "mpscmfs.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -44,9 +42,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/26.c

@@ -15,9 +15,7 @@ END_HEADER
 #include "mpscmfs.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -44,9 +42,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/27.c

@@ -13,9 +13,7 @@ END_HEADER
 #include "mpscmfs.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -43,9 +41,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/28.c

@@ -15,9 +15,7 @@ END_HEADER
 #include "mpscmfs.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -45,9 +43,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/29.c

@@ -15,9 +15,7 @@ END_HEADER
 #include "mpscmfs.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -45,9 +43,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/3.c

@@ -12,7 +12,7 @@ END_HEADER
 #include "testlib.h"
 #include "arg.h"
 
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
 
@@ -23,6 +23,6 @@ static void test(void)
 
 int main(void)
 {
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/30.c

@@ -15,9 +15,7 @@ END_HEADER
 #include "mpscmfs.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -45,9 +43,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/31.c

@@ -15,9 +15,7 @@ END_HEADER
 #include "mpscmfs.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -45,9 +43,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/32.c

@@ -15,9 +15,7 @@ END_HEADER
 #include "mpscmfs.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -45,9 +43,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/33.c

@@ -15,9 +15,7 @@ END_HEADER
 #include "mpscmfs.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -45,9 +43,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/34.c

@@ -14,7 +14,7 @@ END_HEADER
 #include "mpscmvff.h"
 #include "arg.h"
 
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -32,6 +32,6 @@ static void test(void)
 
 int main(void)
 {
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/35.c

@@ -15,7 +15,7 @@ END_HEADER
 #include "mpscmvff.h"
 #include "arg.h"
 
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -34,6 +34,6 @@ static void test(void)
 
 int main(void)
 {
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/36.c

@@ -15,9 +15,7 @@ END_HEADER
 #include "mpscmvff.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -43,9 +41,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/37.c

@@ -15,7 +15,7 @@ END_HEADER
 #include "mpscmvff.h"
 #include "arg.h"
 
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -34,6 +34,6 @@ static void test(void)
 
 int main(void)
 {
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/38.c

@@ -15,9 +15,7 @@ END_HEADER
 #include "mpscmfs.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -38,9 +36,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/39.c

@@ -15,9 +15,7 @@ END_HEADER
 #include "mpscmfs.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -38,9 +36,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/4.c

@@ -16,9 +16,7 @@ END_HEADER
 #include "arg.h"
 #include "newfmt.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_thr_t thread;
@@ -28,11 +26,7 @@ static void test(void)
 
  cdie(mps_thread_reg(&thread, arena), "register thread");
 
- cdie(
-  mps_root_create_reg(&root, arena, mps_rank_ambig(), 0, thread,
-   mps_stack_scan_ambig, stackpointer, 0),
-  "create root");
-
+ cdie(mps_root_create_thread(&root, arena, thread, stack_pointer), "thread root");
  cdie(
   mps_fmt_create_A(NULL, arena, &fmtA),
   "create format");
@@ -41,9 +35,6 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/40.c

@@ -11,9 +11,7 @@ END_HEADER
 #include "mpscmfs.h"
 #include "arg.h"
 
-void *stackpointer;
-
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -34,10 +32,7 @@ static void test(void)
 
 int main(void)
 {
- void *m;
- stackpointer=&m; /* hack to get stack pointer */
-
- easy_tramp(test);
+ run_test(test);
  pass();
  return 0;
 }

mps/test/argerr/41.c

@@ -15,7 +15,7 @@ END_HEADER
 #include "mpscmvff.h"
 #include "arg.h"
 
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -33,6 +33,6 @@ static void test(void)
 
 int main(void)
 {
- easy_tramp(test);
+ run_test(test);
  return 0;
 }

mps/test/argerr/42.c

@@ -15,7 +15,7 @@ END_HEADER
 #include "mpscmvff.h"
 #include "arg.h"
 
-static void test(void)
+static void test(void *stack_pointer)
 {
  mps_arena_t arena;
  mps_pool_t pool;
@@ -33,6 +33,6 @@ static void test(void)
 
 int main(void)
 {
- easy_tramp(test);
+ run_test(test);
  return 0;
 }