===================================================================
RCS file: /home/cvs/OpenXM/src/kxx/sm1stackmachine.c,v
retrieving revision 1.6
retrieving revision 1.9
diff -u -p -r1.6 -r1.9
--- OpenXM/src/kxx/sm1stackmachine.c	2006/02/01 00:30:05	1.6
+++ OpenXM/src/kxx/sm1stackmachine.c	2020/10/07 07:47:23	1.9
@@ -1,5 +1,6 @@
 #include <stdio.h>
 #include <setjmp.h>
+#include <stdlib.h>
 #include "ox_kan.h"
 #include "serversm.h"
 extern int OXprintMessage;
@@ -7,6 +8,15 @@ extern char *MsgStackTrace;
 extern char *MsgSourceTrace;
 extern struct object *MsgStackTraceInArrayp;
 
+void KSstart(); // kan96xx/Kan/datatype.h
+int KSexecuteString(char *s); // kan96xx/Kan/datatype.h
+int Kan_pushCMOFromStream(FILE2 *fp); //kan96xx/Kan/plugin.h
+int Kan_popCMOToStream(FILE2 *fp,int serial); //
+int KgetCmoTagOfObject(struct object obj);    //
+int KSstackPointer(void); //kan96xx/Kan/extern.h
+int Kan_setMathCapToStream(FILE2 *fp,struct object ob); // kan96xx/plugin/cmo.c
+
+
 /*  server stack machine */
 
 int Sm1_start(int argc, char *fnames[],char *myname) {
@@ -144,6 +154,10 @@ int Sm1_pushError2(int serial, int no, char *s)
   struct object core = OINIT; 
   struct object core1 = OINIT; 
   char *ss;
+
+  ss = (char *)sGC_malloc(strlen(s)+1);
+  strcpy(ss,s);
+  /*
   char *error_message="<ox103:error_message>";
   char *message="<ox103:message>";
   char *stack_trace="<ox103:stack_trace>";
@@ -174,6 +188,7 @@ int Sm1_pushError2(int serial, int no, char *s)
 	strcat(ss,source_trace2);
   }
   strcat(ss,error_message2);
+  */
 
   if (MsgStackTraceInArrayp != NULL) {
 	core = KSnewObjectArray(2);