rev 314 - in trunk: include/prothon src

Author: mark
Date: 2004-04-09 21:49:41 -0400 (Fri, 09 Apr 2004)
New Revision: 314

Modified:
   trunk/include/prothon/prothon.h
   trunk/src/builtins-thread.c
   trunk/src/object.c
Log:
cleanup

Modified: trunk/include/prothon/prothon.h
===================================================================
--- trunk/include/prothon/prothon.h	2004-04-10 01:10:16 UTC (rev 313)
+++ trunk/include/prothon/prothon.h	2004-04-10 01:49:41 UTC (rev 314)
@@ -198,6 +198,8 @@
 
 typedef pr_str_t* pr_str_p;
 
+typedef struct frame_t* frame_p;
+
 typedef struct interp_state_s* isp;
 
 typedef struct {
@@ -206,6 +208,7 @@
 	int					main_id;
 	int					running;
 	isp					ist;
+	frame_p				frame;
 } pr_thread_t;
 
 typedef pr_thread_t* pr_thread_p;
@@ -415,7 +418,7 @@
 typedef struct interp_state_s {
 	access_t				access;
 	void*					lock_stack;
-	struct exec_frame_t*	frame;
+	frame_p					frame;
 	obj_p					exception_obj;
 } interp_state_t;
 

Modified: trunk/src/builtins-thread.c
===================================================================
--- trunk/src/builtins-thread.c	2004-04-10 01:10:16 UTC (rev 313)
+++ trunk/src/builtins-thread.c	2004-04-10 01:49:41 UTC (rev 314)
@@ -150,6 +150,7 @@
 	return res;
 }
 
+// ***************************** Thread ******************************************
 
 MODULE_START(Thread)
 {
@@ -189,10 +190,13 @@
 	return new_string_obj(ist, name);
 }
 
+DEF(Thread, __objlist__, NULL) {
+	return OBJ(NONE);
+}
 
-MAIN_MODULE_INIT(Thread)
-{
+MAIN_MODULE_INIT(Thread) {
 	MODULE_SUB_INIT(Thread);
 	MODULE_ADD_SYM(Thread, __init__);
 	MODULE_ADD_SYM(Thread, __str__);
+	MODULE_ADD_SYM(Thread, __objlist__);
 }

Modified: trunk/src/object.c
===================================================================
--- trunk/src/object.c	2004-04-10 01:10:16 UTC (rev 313)
+++ trunk/src/object.c	2004-04-10 01:49:41 UTC (rev 314)
@@ -212,6 +212,7 @@
 	BUILTIN_LOAD(Int);
 	BUILTIN_LOAD(List);
 	BUILTIN_LOAD(String);
+	BUILTIN_LOAD(Thread);
 	BUILTIN_LOAD(Tuple);
 }