fixes to allow more memory: disable gc after crashing with MBIT, start
from 0x09 instead of 0x10. git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@163 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
parent
0258eb0aab
commit
af370a73e3
|
|
@ -2605,7 +2605,7 @@ do_gc(Int predarity, CELL *current_env, yamop *nextop)
|
|||
if (GetValue(AtomGcTrace) != TermNil)
|
||||
gc_trace = 1;
|
||||
/* sanity check: can we still do garbage_collection ? */
|
||||
if (TrailTop & (MBIT|RBIT)) {
|
||||
if ((CELL)TrailTop & (MBIT|RBIT)) {
|
||||
/* oops, we can't */
|
||||
if (gc_verbose) {
|
||||
YP_fprintf(YP_stderr, "[GC] LCLO at %p clashes with gc bits: %lx\n", LCL0, (MBIT|RBIT));
|
||||
|
|
|
|||
|
|
@ -1217,7 +1217,9 @@ HandleSIGINT (int sig)
|
|||
#if HAVE_LIBREADLINE
|
||||
if (in_getc) {
|
||||
fprintf(stderr, "Action (h for help): ");
|
||||
#if HAVE_RL_SET_PROMPT
|
||||
rl_set_prompt("Action (h for help): ");
|
||||
#endif
|
||||
}
|
||||
#endif
|
||||
return;
|
||||
|
|
|
|||
5
TO_DO
5
TO_DO
|
|
@ -5,8 +5,7 @@ BEFORE 4.4:
|
|||
- fix restore when code is moved around.
|
||||
- document new interface functions.
|
||||
- mask when installing.
|
||||
- Yap core dumps under simple configure/make in WIN32
|
||||
- check leash(full). [-user]. a(X) :- call(setof(Z,call(c(Z)),X)). a(X) :- b(X). b(X) :- c(X). c(1). c(2). end_of_file. spy a/1. a(X).
|
||||
- debugger: leash(full). [-user]. a(X) :- call(setof(Z,call(c(Z)),X)). a(X) :- b(X). b(X) :- c(X). c(1). c(2). end_of_file. spy a/1. a(X).
|
||||
|
||||
TO CHECK:
|
||||
- bad register allocation for a(X,Y) :- X is Y+2.3 ?
|
||||
|
|
@ -88,4 +87,4 @@ DONE:
|
|||
- warnings in documentation file.
|
||||
- make gc work after mutable var changes (done)
|
||||
- knap-sack (done)
|
||||
|
||||
- Yap core dumps under simple configure/make in WIN32
|
||||
|
|
|
|||
|
|
@ -16,6 +16,8 @@
|
|||
|
||||
<h2>Yap-4.3.20:</h2>
|
||||
<ul>
|
||||
<li>FIXED: check if we still can do garbage collection (MBIT
|
||||
and RBIT ok) (report from James Cussens).</li>
|
||||
<li>FIXED: always release stack after InitBigNum (report from
|
||||
Nicos Angelopoulos).</li>
|
||||
<li>FIXED: random would not load in windows (report from
|
||||
|
|
|
|||
|
|
@ -134,6 +134,7 @@
|
|||
#undef HAVE_RANDOM
|
||||
#undef HAVE_RENAME
|
||||
#undef HAVE_RINT
|
||||
#undef HAVE_RL_SET_PROMPT
|
||||
#undef HAVE_SBRK
|
||||
#undef HAVE_SELECT
|
||||
#undef HAVE_SETBUF
|
||||
|
|
|
|||
|
|
@ -588,7 +588,8 @@ AC_CHECK_FUNCS(gethostbyname gethostid gethostname)
|
|||
AC_CHECK_FUNCS(gethrtime getpwnam getrusage gettimeofday getwd)
|
||||
AC_CHECK_FUNCS(isatty isnan kill labs link localtime lstat)
|
||||
AC_CHECK_FUNCS(memcpy memmove mkstemp mktemp mmap opendir)
|
||||
AC_CHECK_FUNCS(popen putenv rand random rename rint sbrk select)
|
||||
AC_CHECK_FUNCS(popen putenv rand random rename rint rl_set_prompt)
|
||||
AC_CHECK_FUNCS(sbrk select)
|
||||
AC_CHECK_FUNCS(setbuf setlinebuf shmat sigaction siggetmask siginterrupt)
|
||||
AC_CHECK_FUNCS(signal sigprocmask sleep snprintf socket stat)
|
||||
AC_CHECK_FUNCS(strchr strerror strncat strncpy strtod system)
|
||||
|
|
|
|||
|
|
@ -10,7 +10,7 @@
|
|||
* File: Yap.h.m4 *
|
||||
* mods: *
|
||||
* comments: main header file for YAP *
|
||||
* version: $Id: Yap.h.m4,v 1.10 2001-09-06 15:39:28 stasinos Exp $ *
|
||||
* version: $Id: Yap.h.m4,v 1.11 2001-09-24 14:06:06 vsc Exp $ *
|
||||
*************************************************************************/
|
||||
|
||||
#include "config.h"
|
||||
|
|
@ -240,7 +240,7 @@ extern char Option[20];
|
|||
#elif __APPLE__
|
||||
#define MMAP_ADDR 0x01000000
|
||||
#else
|
||||
#define MMAP_ADDR 0x10000000
|
||||
#define MMAP_ADDR 0x09000000
|
||||
#endif
|
||||
#elif __svr4__
|
||||
#define MMAP_ADDR 0x02000000
|
||||
|
|
|
|||
Reference in New Issue