diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixes to allow more memory: disable gc after crashing with MBIT, start

Browse Source 
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 2001-09-24 14:06:06 +00:00
parent 0258eb0aab
commit af370a73e3
8 changed files with 205 additions and 146 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/heapgc.c
View File

@ -2605,7 +2605,7 @@ do_gc(Int predarity, CELL *current_env, yamop *nextop)
if (GetValue(AtomGcTrace) != TermNil) if (GetValue(AtomGcTrace) != TermNil)
gc_trace = 1; gc_trace = 1;
/* sanity check: can we still do garbage_collection ? */ /* sanity check: can we still do garbage_collection ? */
if (TrailTop & (MBIT|RBIT)) { if ((CELL)TrailTop & (MBIT|RBIT)) {
/* oops, we can't */ /* oops, we can't */
if (gc_verbose) { if (gc_verbose) {
YP_fprintf(YP_stderr, "[GC] LCLO at %p clashes with gc bits: %lx\n", LCL0, (MBIT|RBIT)); YP_fprintf(YP_stderr, "[GC] LCLO at %p clashes with gc bits: %lx\n", LCL0, (MBIT|RBIT));

2
C/sysbits.c
View File

@ -1217,7 +1217,9 @@ HandleSIGINT (int sig)
#if HAVE_LIBREADLINE #if HAVE_LIBREADLINE
if (in_getc) { if (in_getc) {
fprintf(stderr, "Action (h for help): "); fprintf(stderr, "Action (h for help): ");
#if HAVE_RL_SET_PROMPT
rl_set_prompt("Action (h for help): "); rl_set_prompt("Action (h for help): ");
#endif
} }
#endif #endif
return; return;

5
TO_DO
View File

@ -5,8 +5,7 @@ BEFORE 4.4:
- fix restore when code is moved around. - fix restore when code is moved around.
- document new interface functions. - document new interface functions.
- mask when installing. - mask when installing.
- Yap core dumps under simple configure/make in WIN32 - 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).
- 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).
TO CHECK: TO CHECK:
- bad register allocation for a(X,Y) :- X is Y+2.3 ? - bad register allocation for a(X,Y) :- X is Y+2.3 ?
@ -88,4 +87,4 @@ DONE:
- warnings in documentation file. - warnings in documentation file.
- make gc work after mutable var changes (done) - make gc work after mutable var changes (done)
- knap-sack (done) - knap-sack (done)
- Yap core dumps under simple configure/make in WIN32

2
changes4.3.html
View File

@ -16,6 +16,8 @@
<h2>Yap-4.3.20:</h2> <h2>Yap-4.3.20:</h2>
<ul> <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 <li>FIXED: always release stack after InitBigNum (report from
Nicos Angelopoulos).</li> Nicos Angelopoulos).</li>
<li>FIXED: random would not load in windows (report from <li>FIXED: random would not load in windows (report from

1
config.h.in
View File

@ -134,6 +134,7 @@
#undef HAVE_RANDOM #undef HAVE_RANDOM
#undef HAVE_RENAME #undef HAVE_RENAME
#undef HAVE_RINT #undef HAVE_RINT
#undef HAVE_RL_SET_PROMPT
#undef HAVE_SBRK #undef HAVE_SBRK
#undef HAVE_SELECT #undef HAVE_SELECT
#undef HAVE_SETBUF #undef HAVE_SETBUF

332
configure vendored
View File

File diff suppressed because it is too large Load Diff

3
configure.in
View File

@ -588,7 +588,8 @@ AC_CHECK_FUNCS(gethostbyname gethostid gethostname)
AC_CHECK_FUNCS(gethrtime getpwnam getrusage gettimeofday getwd) AC_CHECK_FUNCS(gethrtime getpwnam getrusage gettimeofday getwd)
AC_CHECK_FUNCS(isatty isnan kill labs link localtime lstat) AC_CHECK_FUNCS(isatty isnan kill labs link localtime lstat)
AC_CHECK_FUNCS(memcpy memmove mkstemp mktemp mmap opendir) 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(setbuf setlinebuf shmat sigaction siggetmask siginterrupt)
AC_CHECK_FUNCS(signal sigprocmask sleep snprintf socket stat) AC_CHECK_FUNCS(signal sigprocmask sleep snprintf socket stat)
AC_CHECK_FUNCS(strchr strerror strncat strncpy strtod system) AC_CHECK_FUNCS(strchr strerror strncat strncpy strtod system)

4
m4/Yap.h.m4
View File

@ -10,7 +10,7 @@
* File: Yap.h.m4 * * File: Yap.h.m4 *
* mods: * * mods: *
* comments: main header file for YAP * * 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" #include "config.h"
@ -240,7 +240,7 @@ extern char Option[20];
#elif __APPLE__ #elif __APPLE__
#define MMAP_ADDR 0x01000000 #define MMAP_ADDR 0x01000000
#else #else
#define MMAP_ADDR 0x10000000 #define MMAP_ADDR 0x09000000
#endif #endif
#elif __svr4__ #elif __svr4__
#define MMAP_ADDR 0x02000000 #define MMAP_ADDR 0x02000000