version 1.12, 2025/04/16 17:36:12
|
version 1.18, 2025/05/16 04:42:02
|
Line 24
|
Line 24
|
* along with FreeM. If not, see <https://www.gnu.org/licenses/>. |
* along with FreeM. If not, see <https://www.gnu.org/licenses/>. |
* |
* |
* $Log$ |
* $Log$ |
|
* Revision 1.18 2025/05/16 04:42:02 snw |
|
* Fix macOS port |
|
* |
|
* Revision 1.17 2025/05/05 04:46:35 snw |
|
* Documentation fixes; make FreeM more standards compliant |
|
* |
|
* Revision 1.16 2025/04/30 17:19:16 snw |
|
* Improve backtraces in debugger |
|
* |
|
* Revision 1.15 2025/04/30 14:41:03 snw |
|
* Further debugger work |
|
* |
|
* Revision 1.14 2025/04/28 19:38:55 snw |
|
* Add trace mode |
|
* |
|
* Revision 1.13 2025/04/17 14:34:27 snw |
|
* Further logging improvements |
|
* |
* Revision 1.12 2025/04/16 17:36:12 snw |
* Revision 1.12 2025/04/16 17:36:12 snw |
* Add FreeBSD shm cleanup script |
* Add FreeBSD shm cleanup script |
* |
* |
Line 64
|
Line 82
|
#include <string.h> |
#include <string.h> |
#include <sys/types.h> |
#include <sys/types.h> |
#include <sys/wait.h> |
#include <sys/wait.h> |
|
#include <errno.h> |
#include "transact.h" |
#include "transact.h" |
#include "locktab.h" |
#include "locktab.h" |
#include <errno.h> |
#include "log.h" |
|
|
#ifdef LIBFREEM |
#ifdef LIBFREEM |
# include "errmsg.h" |
# include "errmsg.h" |
Line 542 char curdir[256] = "."; /* curre
|
Line 561 char curdir[256] = "."; /* curre
|
char startuprou[PATHLEN] = "\201"; /* start up routine from cmdline*/ |
char startuprou[PATHLEN] = "\201"; /* start up routine from cmdline*/ |
|
|
char zcommds[256] = |
char zcommds[256] = |
" za zas zb zd zg zh zi zj zl zn zp zq zr zs zt zwr zbreak \ |
" za zb zc zd zg zh zi zj zl zm zn zp zq zr zs zth ztr zwa zwi zwr zassert zbreak \ |
zgo zhalt zinsert zjob zload znamespace zprint zquit zremove zsave ztrap zwrite \201"; /* intrinsic z-commands */ |
zconst zgo zhalt zinsert zjob zload zmap znamespace zprint zquit zremove zsave zthrow ztrap zunmap zwatch zwith zwrite \201"; /* intrinsic z-commands */ |
char zfunctions[256] = /* intrinsic z-functions */ |
char zfunctions[256] = /* intrinsic z-functions */ |
" zb zc zd ze zh zht zk zl zm zn zo zp zr zs zt zboolean zcall zcr zcrc zdata zdate zedit zhorolog \ |
" zb zc zd ze zh zht zk zl zm zn zo zp zr zs zt zboolean zcall zcr zcrc zdata zdate zedit zhorolog \ |
zkey zlength zlsd zname znext zorder zpiece zprevious zreplace zsyntax zsort ztime \201"; |
zkey zlength zlsd zname znext zorder zpiece zprevious zreplace zsyntax zsort ztime \201"; |
Line 652 short ipc_pending = 0; /* 1 if an inco
|
Line 671 short ipc_pending = 0; /* 1 if an inco
|
|
|
int strict_mode = 0; |
int strict_mode = 0; |
|
|
|
int trace_mode = 0; |
|
short debug_mode = FALSE; |
|
int lasterr[NESTLEVLS + 1]; |
|
|
short first_process = FALSE; |
short first_process = FALSE; |
#if defined(__FreeBSD__) |
#if defined(__FreeBSD__) |
size_t shm_init_size = 4194304; |
size_t shm_init_size = 4194304; |
#else |
#else |
|
# if !defined(__APPLE__) |
size_t shm_init_size = 16777216; |
size_t shm_init_size = 16777216; |
|
# else |
|
size_t shm_init_size = 2048576; |
|
#endif |
#endif |
#endif |
short inrpt_after_async = FALSE; |
short inrpt_after_async = FALSE; |
|
|
Line 740 void m_fatal(char *s)
|
Line 767 void m_fatal(char *s)
|
|
|
|
|
if (tp_level) { |
if (tp_level) { |
fprintf (stderr, "freem [FATAL]: memory allocation failure in %s; rolling back %d transactions [errno %d %s]\n", s, tp_level, errno_sav, strerror (errno_sav)); |
/* TODO: make this FM_LOG_FATAL (logger will need to do a tp_trollback) */ |
|
logprintf (FM_LOG_ERROR, "freem: memory allocation failure in %s; rolling back %d transactions (error code %d [%s])", s, tp_level, errno_sav, strerror (errno_sav)); |
tp_trollback (tp_level); |
tp_trollback (tp_level); |
} |
} |
else { |
else { |
fprintf (stderr, "freem [FATAL]: memory allocation failure in %s [errno %d %s]\n", s, errno_sav, strerror (errno_sav)); |
logprintf (FM_LOG_FATAL, "freem: memory allocation failure in %s (error code %d [%s])", s, errno_sav, strerror (errno_sav)); |
} |
} |
|
|
exit (3); |
exit (3); |