From 80118667676198b34d5779019bea4cb2cd3324ce Mon Sep 17 00:00:00 2001
From: Kevin Tew <tewk@racket-lang.org>
Date: Tue, 9 Sep 2008 15:57:02 +0000
Subject: [PATCH] Made Place_Start_Data a gc allocation

svn: r11615
---
 src/mzscheme/src/places.c | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/mzscheme/src/places.c b/src/mzscheme/src/places.c
index 76ab128265..d19c7eef68 100644
--- a/src/mzscheme/src/places.c
+++ b/src/mzscheme/src/places.c
@@ -96,10 +96,8 @@ Scheme_Object *scheme_place(int argc, Scheme_Object *args[]) {
   place = MALLOC_ONE_TAGGED(Scheme_Place);
   place->so.type = scheme_place_type;
 
-  scheme_console_printf("Hello creating new place %p\n", place);
-
   /* pass critical info to new place */
-  place_data = (Place_Start_Data*)malloc(sizeof(Place_Start_Data));
+  place_data = MALLOC_ONE(Place_Start_Data);
   place_data->thunk  = args[0];
   collection_paths = scheme_current_library_collection_paths(0, NULL);
   place_data->current_library_collection_paths = collection_paths;
@@ -154,10 +152,14 @@ static void *place_start_proc(void *data_arg) {
   Scheme_Object *thunk;
   Place_Start_Data *place_data;
   Scheme_Object *a[1];
+  int ptid;
+  ptid = mz_proc_thread_self();
 
 
   stack_base = PROMPT_STACK(stack_base);
   place_data = (Place_Start_Data *) data_arg;
+ 
+  printf("Startin place: proc thread id%u\n", ptid);
 
   /* create pristine THREAD_LOCAL variables*/
   null_out_runtime_globals();
@@ -171,8 +173,6 @@ static void *place_start_proc(void *data_arg) {
 
   thunk = place_data->thunk;
 
-  scheme_console_printf("Hello in new place %p\n", thunk);
-
   scheme_apply(thunk, 0, NULL);
 
   stack_base = NULL;