OpenXM/src/kan96xx/Kan/stackm.h - diff

Return to stackm.h CVS log

Up to [local] / OpenXM / src / kan96xx / Kan

version 1.8, 2004/09/20 02:11:22

version 1.13, 2015/10/08 08:14:25

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/stackm.h,v 1.7 2004/09/16 23:53:44 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.

Line 8

/******************* 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

Line 70 struct object{

Line 76 struct object{

int tag; /* class identifier */

union cell lc; /* left cell */

union cell rc; /* right cell */

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 */

Line 151 if ((ob).tag != Sarray) {fprintf(stderr,"Warning: PUTO

Line 161 if ((ob).tag != Sarray) {fprintf(stderr,"Warning: PUTO

typedef enum {CCPUSH,CCPOP,CCRESTORE} actionOfContextControl;

#define SCANNERBUF_SIZE 240