--- a/mc.h	Sat Oct 27 13:30:38 2007 +0900
+++ b/mc.h	Sat Oct 27 23:20:44 2007 +0900
@@ -547,7 +547,12 @@
         char *nm;
 	struct nametable *next;
         int sc,attr;
-	int ty,dsp; } NMTBL;
+	int ty,dsp; 
+	union {
+	    struct nametable *nptr;
+	    char *nm;
+	} u;
+} NMTBL;
 
 extern int *heap;                   /* heap area (in cheap ) */
 extern NMTBL *global_list;          /* list of all global NMTBL */
@@ -565,8 +570,10 @@
 extern int glist3n(int e1, int e2, NMTBL *e3);
 extern int list4(int e1, int e2, int e3,int e4);
 extern int list4n(int e1, int e2, int e3,NMTBL *e4);
+extern int list4s(int e1, int e2, int e3,char *e4);
 extern int glist4n(int e1, int e2, int e3,NMTBL *e4);
 extern int list5(int e1, int e2, int e3,int e4,int e5);
+extern int list5n(int e1, int e2, int e3,int e4,NMTBL * e5);
 extern int length(int e1);
 extern int getfree(int size);
 extern int nth(int n,int e1);
@@ -603,6 +610,8 @@
 
 #define ncadddr(e) (*(NMTBL**)&heap[((int)(e))+3])
 
+#define ncaddddr(e) (*(NMTBL**)&heap[((int)(e))+4])
+
 #define vcaddr(e) (*(void**)&heap[((int)(e))+2])
 
 #define vcadddr(e) (*(void**)&heap[((int)(e))+3])
@@ -611,6 +620,12 @@
 
 #define pcadddr(e) (*(int**)&heap[((int)(e))+3])
 
+#define scaddr(e) (*(char**)&heap[((int)(e))+2])
+#ifdef NOTHREAD
+	my_spe_run_thread(t_args);
+#endif
+#define scadddr(e) (*(char**)&heap[((int)(e))+3])
+
 #if FLOAT_CODE
 #define dcadr(e) (*(double*)&heap[((int)(e))+1])
 #define dcaddr(e) (*(double*)&heap[((int)(e))+2])