===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/stackm.h,v
retrieving revision 1.9
retrieving revision 1.13
diff -u -p -r1.9 -r1.13
--- OpenXM/src/kan96xx/Kan/stackm.h	2005/06/09 04:47:16	1.9
+++ OpenXM/src/kan96xx/Kan/stackm.h	2015/10/08 08:14:25	1.13
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM/src/kan96xx/Kan/stackm.h,v 1.8 2004/09/20 02:11:22 takayama Exp $ */
+/* $OpenXM: OpenXM/src/kan96xx/Kan/stackm.h,v 1.12 2005/07/18 10:55:16 takayama Exp $ */
 #define LOAD_SM1_PATH "/usr/local/lib/sm1/"
 /* Do not forget to put / at the tail.
    "/usr/local/lib/sm1" does not work.
@@ -8,8 +8,14 @@
 /******************* stackm.h ******************************/
 #include <setjmp.h>
 
-
-
+#if defined(__CYGWIN__) || defined(__MSYS__)
+#define MYSETJMP(e) _setjmp(e)
+#define MYSIGSETJMP(e,f) _setjmp(e)
+#else
+#define MYSETJMP(e)  setjmp(e)
+#define MYSIGSETJMP(e,f) sigsetjmp(e,f)
+#endif
+ 
 /**** data types (class identifiers) ************/
 /* Never change the following orders.  
    If you add a new class, add that class at the bottom and give the
@@ -70,9 +76,12 @@ struct object{
   int tag;                /* class identifier */
   union cell lc;          /* left cell */
   union cell rc;          /* right cell */
-  struct object *attr;    /* Attribute list */
+  struct object *attr;    /* Attribute list. See misc-2005/06/gfan/test1.sm1
+                             as to performance test. */
 };
 
+#define OINIT  { .attr = NULL}
+
 struct dictionary {
   char *key;
   int h0; /* Value of hash functions */
@@ -152,3 +161,4 @@ if ((ob).tag != Sarray) {fprintf(stderr,"Warning: PUTO
 
 typedef enum {CCPUSH,CCPOP,CCRESTORE} actionOfContextControl;
 
+#define SCANNERBUF_SIZE 240