diff --git a/C/heapgc.c b/C/heapgc.c index 01c5392c8..5b12b69a0 100644 --- a/C/heapgc.c +++ b/C/heapgc.c @@ -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)); diff --git a/C/sysbits.c b/C/sysbits.c index 70fcba884..cbe3eed9a 100644 --- a/C/sysbits.c +++ b/C/sysbits.c @@ -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; diff --git a/TO_DO b/TO_DO index a12007b62..99ab02257 100644 --- a/TO_DO +++ b/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 diff --git a/changes4.3.html b/changes4.3.html index e7049b40e..ff34de75e 100644 --- a/changes4.3.html +++ b/changes4.3.html @@ -16,6 +16,8 @@

Yap-4.3.20: