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

debugging cleanups

Browse Source 
actually use readline flag.
This commit is contained in:
Vitor Santos Costa 2011-03-26 15:45:42 +00:00
parent c1c32ec26a
commit 9c3d6a187d
5 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
C/sysbits.c
View File

@ -1553,6 +1553,7 @@ void (*handler)(int);
static int static int
InteractSIGINT(int ch) { InteractSIGINT(int ch) {
CACHE_REGS
Yap_PrologMode |= AsyncIntMode; Yap_PrologMode |= AsyncIntMode;
switch (ch) { switch (ch) {
case 'a': case 'a':

3
library/dialect/swi/fli/swi.c
View File

@ -1882,7 +1882,6 @@ PL_recorded(record_t db, term_t ts)
X_API record_t X_API record_t
PL_duplicate_record(record_t db) PL_duplicate_record(record_t db)
{ {
CACHE_REGS
Term t = YAP_Recorded((void *)db); Term t = YAP_Recorded((void *)db);
if (t == ((CELL)0)) if (t == ((CELL)0))
return FALSE; return FALSE;
@ -2335,9 +2334,11 @@ X_API void PL_register_foreign_in_module(const char *module, const char *name, i
Term tmod; Term tmod;
Int nflags = 0; Int nflags = 0;
#ifdef DEBUG
if (flags & (PL_FA_NOTRACE|PL_FA_CREF)) { if (flags & (PL_FA_NOTRACE|PL_FA_CREF)) {
fprintf(stderr,"PL_register_foreign_in_module called with non-implemented flag %x when creating predicate %s:%s/%d\n", flags, module, name, arity); fprintf(stderr,"PL_register_foreign_in_module called with non-implemented flag %x when creating predicate %s:%s/%d\n", flags, module, name, arity);
} }
#endif
if (module == NULL) { if (module == NULL) {
tmod = CurrentModule; tmod = CurrentModule;
} else { } else {

3
packages/PLStream/pl-read.c
View File

@ -509,9 +509,6 @@ raw_read2(ReadData _PL_rd ARG_LD)
_PL_rd->strictness = truePrologFlag(PLFLAG_ISO); _PL_rd->strictness = truePrologFlag(PLFLAG_ISO);
source_line_no = -1; source_line_no = -1;
fprintf(stderr,"write_prompt\n");
jmp_deb(1);
for(;;) for(;;)
{ c = getchr(); { c = getchr();

4
pl/boot.yap
View File

@ -145,9 +145,7 @@ true :- true.
/* main execution loop */ /* main execution loop */
'$read_vars'(user_input, Goal, Mod, Pos, Bindings) :- '$read_vars'(user_input, Goal, Mod, Pos, Bindings) :-
writeln(c:Raw), '$swi_current_prolog_flag'(readline, true), !,
get_value('$readline',true), !,
writeln(d:Raw),
read_history(h, '!h', read_history(h, '!h',
[trace, end_of_file], [trace, end_of_file],
' ?- ', Goal, Bindings), ' ?- ', Goal, Bindings),

2
pl/flags.yap
View File

@ -563,7 +563,7 @@ yap_flag(system_options,X) :-
'$system_options'(rational_trees) :- '$system_options'(rational_trees) :-
'$yap_has_rational_trees'. '$yap_has_rational_trees'.
'$system_options'(readline) :- '$system_options'(readline) :-
'$has_readline'. '$swi_current_prolog_flag'(readline, true).
'$system_options'(tabling) :- '$system_options'(tabling) :-
\+ '$undefined'('$c_table'(_,_), prolog). \+ '$undefined'('$c_table'(_,_), prolog).
'$system_options'(threads) :- '$system_options'(threads) :-