===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/global.c,v
retrieving revision 1.28
retrieving revision 1.31
diff -u -p -r1.28 -r1.31
--- OpenXM/src/kan96xx/Kan/global.c	2004/02/23 04:54:45	1.28
+++ OpenXM/src/kan96xx/Kan/global.c	2004/09/17 02:42:57	1.31
@@ -1,4 +1,4 @@
-/* global.c $OpenXM: OpenXM/src/kan96xx/Kan/global.c,v 1.27 2003/11/20 09:20:36 takayama Exp $ */
+/* global.c $OpenXM: OpenXM/src/kan96xx/Kan/global.c,v 1.30 2004/06/15 08:15:11 takayama Exp $ */
 #include <stdio.h>
 #include <setjmp.h>
 #include "datatype.h"
@@ -103,6 +103,8 @@ int CmoDMSOutputOption = 0;  /* Output with
                  (1) RING_BY_NAME or (0) DMS_OF_N_VARIABLES.
                  plugin/cmo.c */
 int SecureMode = 0;
+int RestrictedMode = 0;
+int RestrictedMode_saved = 0;
 int Ecart = 0;
 int EcartAutomaticHomogenization = 0;
 int TraceLift = 0;
@@ -129,10 +131,6 @@ jmp_buf EnvOfStackMachine;
 #endif
 #endif
 
-#if defined(__CYGWIN__)
-int errno;
-#endif
-
 struct object NullObject;
 struct object NoObject;
 
@@ -161,6 +159,7 @@ FILE *Fk = NULL;  /* Initialized to stdout in stackmac
 stackmachine_init() {
   int i,j;
   extern FILE *BaseFp;
+  GC_init();
   OxSystemVersion = VersionString;
   Fstack = stdout;  /* initialize output stream */
   Fk = stdout;