--- freem/src/mpsdef.h 2025/04/04 19:43:18 1.7 +++ freem/src/mpsdef.h 2025/04/30 17:19:16 1.11 @@ -1,5 +1,5 @@ /* - * $Id: mpsdef.h,v 1.7 2025/04/04 19:43:18 snw Exp $ + * $Id: mpsdef.h,v 1.11 2025/04/30 17:19:16 snw Exp $ * common external definitions for all mumps modules * * @@ -24,6 +24,18 @@ * along with FreeM. If not, see . * * $Log: mpsdef.h,v $ + * Revision 1.11 2025/04/30 17:19:16 snw + * Improve backtraces in debugger + * + * Revision 1.10 2025/04/28 19:38:55 snw + * Add trace mode + * + * Revision 1.9 2025/04/13 04:22:43 snw + * Fix snprintf calls + * + * Revision 1.8 2025/04/10 01:24:38 snw + * Remove C++ style comments + * * Revision 1.7 2025/04/04 19:43:18 snw * Switch to using environment catalog to determine user and group for environment, and remove -u and -g flags from freem * @@ -385,7 +397,7 @@ extern short direct_mode; extern short loadsw; /* flag to avoid redundant loads */ extern short extr_types[NESTLEVLS + 1]; /* return types of extrinsic functions */ -extern char destructors[10][50]; +extern char destructors[10][OBJ_DSTRSIZE]; extern int destructor_ct; extern char private_keys[MAX_PRIVATE_KEYS][255]; @@ -404,7 +416,6 @@ extern short timeoutms; extern char tmp4[80]; extern short param; /* parameter count */ extern short paramx; /* current parameter */ -//extern char *calloc (); extern short level; /* level count */ extern short nestlt[NESTLEVLS + 1]; /* stack $T / stack levelcount */ extern pid_t pid; /* $J = process ID */ @@ -423,11 +434,9 @@ extern int strict_mode; extern short first_process; extern size_t shm_init_size; extern short inrpt_after_async; - -//#ifndef OLDUNIX -// extern struct sigaction act; /* signals stuff */ -//#endif /* OLDUNIX */ - +extern int trace_mode; +extern short debug_mode; +extern short lasterr[NESTLEVLS + 1]; /* Macros */ /* Create a new variable of type (datatype) with space for qty instances */ #define NEW(datatype,qty) ((datatype *)calloc(qty,sizeof(datatype)))