===================================================================
RCS file: /home/cvs/OpenXM/src/k097/sm1sm.c,v
retrieving revision 1.1
retrieving revision 1.5
diff -u -p -r1.1 -r1.5
--- OpenXM/src/k097/sm1sm.c	2003/05/14 07:09:48	1.1
+++ OpenXM/src/k097/sm1sm.c	2020/10/07 23:53:25	1.5
@@ -1,9 +1,13 @@
-/* $OpenXM$ */
+/* $OpenXM: OpenXM/src/k097/sm1sm.c,v 1.4 2015/10/10 11:29:46 takayama Exp $ */
 /* This is imported from kxx/sm1stackmachine.c */
 #include <stdio.h>
 #include <setjmp.h>
+#include <string.h>
+#include <stdlib.h>
 #include "../kxx/ox_kan.h"
 #include "../kxx/serversm.h"
+#include "ox_k0.h"
+
 extern int OXprintMessage;
 
 /*  server stack machine */
@@ -20,8 +24,8 @@ int Sm1_setMathCap(ox_stream os) {
   /* Set the mathcap data of the client in the server. */
   /*  sm1 <====== ox_sm1  mathcap is set in ox_stream = FILE2 * */
   /* The mathcap data is on the stack. */
-  struct object ob;
-  struct object ob2;
+  struct object ob = OINIT;
+  struct object ob2 = OINIT;
   int n,i;
   ob = KSpop();
   KSpush(ob);  KSexecuteString(" (mathcap data is ) message message ");
@@ -56,7 +60,7 @@ char *Sm1_popString(void) {
 int Sm1_setName(void)
 {
   char *s;
-  struct object ob;
+  struct object ob = OINIT;
   s = Sm1_popString();
   if (s == NULL) {
     printf("NULL argument for setName.\n");
@@ -72,7 +76,7 @@ int Sm1_setName(void)
 int Sm1_evalName(void)
 {
   char *s;
-  struct object ob;
+  struct object ob = OINIT;
   s = Sm1_popString();
   if (s == NULL) {
     printf("NULL argument for evalName.\n");
@@ -100,7 +104,7 @@ int Sm1_popCMO(ox_stream fp,int serial)
 
 int Sm1_pushError2(int serial, int no, char *s)
 {
-  struct object ob;
+  struct object ob = OINIT;
   ob = KnewErrorPacket(serial,no,s);
   KSpush(ob);
 }
@@ -140,7 +144,7 @@ void Sm1_dupErrors(void) {
 }
 
 void Sm1_pushCMOtag(int serial) {
-  struct object obj;
+  struct object obj = OINIT;
   int t;
   obj = KSpeek(0);
   t = KgetCmoTagOfObject(obj);