===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/sm.c,v
retrieving revision 1.16
retrieving revision 1.30
diff -u -p -r1.16 -r1.30
--- OpenXM/src/kan96xx/Kan/sm.c	2001/08/21 14:12:46	1.16
+++ OpenXM/src/kan96xx/Kan/sm.c	2020/10/06 11:33:47	1.30
@@ -1,12 +1,14 @@
-/* sm.c   $OpenXM: OpenXM/src/kan96xx/Kan/sm.c,v 1.15 2001/05/04 01:06:25 takayama Exp $ */
-#define DATE "2001/08/21"
-#define RELEASE "3.010821"    /* This "string" must be an increasing seq.*/
+/* sm.c   $OpenXM: OpenXM/src/kan96xx/Kan/sm.c,v 1.29 2015/09/29 01:52:14 takayama Exp $ */
+#define DATE "2005/06/15"
+#define RELEASE "3.050615"    /* This "string" must be an increasing seq.*/
 /* You should write the same string in global.c
                      VersionString for ox_sm1.
                  Change also OxVersion in plugin/oxmisc.c
                  if you install new openXM protocol.*/
 
 #include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
 #include "datatype.h"
 #include "stackm.h"
 #include "extern.h"
@@ -28,12 +30,14 @@ extern int StartAString;
 extern char *StartString;
 extern int Quiet;
 extern char *VersionString;
+//extern unsigned int GC_version;
 
-main(argc,argv) 
+int main(argc,argv) 
      int argc;
      char *argv[];
 {
   int i;
+  int gc_version;
   StandardMacros = 1;
   VersionString = RELEASE;
   if (argc > 1) {
@@ -72,18 +76,18 @@ main(argc,argv) 
     }
   }
 
-
-  stackmachine_init();
+  stackmachine_init(); /* GC is also initialized here */
+  gc_version = GC_get_version();
   if (!Quiet) {
     fprintf(Fstack,"\n");
     fprintf(Fstack,"Kan/StackMachine1");
-    fprintf(Fstack,"                         1991 April --- 2000.\n");
+    fprintf(Fstack,"                         1991 April --- 2004.\n");
     fprintf(Fstack,"                              Release %s (C) N. Takayama\n",
             RELEASE);
-    fprintf(Fstack,"gc 4.14 (C) Boehm, Demers, GNU MP 2.0.2 (C) Free Software Foundation,\n");
-    fprintf(Fstack,"OpenXM (C) OpenXM developing team. \n");
-    fprintf(Fstack,"This software may be freely distributed as is ");
-    fprintf(Fstack,"with no warranty expressed.\n");
+    fprintf(Fstack,"gc %d.%d-%d (C) Boehm, Demers, Xerox, SGI, HP,\nGNU MP 4.1 (C) Free Software Foundation,\n",gc_version >>16, (gc_version >> 8)&0xff,gc_version & 0xff);
+    fprintf(Fstack,"OpenXM RFC100, 101, 103 (C) OpenXM developing team. \n");
+    fprintf(Fstack,"This software may be freely distributed  ");
+    fprintf(Fstack,"with no warranty expressed. \nSee OpenXM/Copyright/Copyright.generic\n");
     fprintf(Fstack,"Info: http://www.math.kobe-u.ac.jp/KAN, kan@math.kobe-u.ac.jp. ? for help.\n");
 #ifdef NOGC
     fprintf(Fstack,"No garbage collector is installed.\n");
@@ -95,6 +99,7 @@ main(argc,argv) 
   }
   scanner();
   Kclose();  stackmachine_close();
+  return(0);
 }