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

fix debugging info

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2299 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2008-08-06 23:05:49 +00:00
parent dbd6e1b139
commit 6d23a23a81
2 changed files with 32 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
C/absmi.c
View File

@ -10,8 +10,11 @@
* * * *
* File: absmi.c * * File: absmi.c *
* comments: Portable abstract machine interpreter * * comments: Portable abstract machine interpreter *
* Last rev: $Date: 2008-08-06 17:32:18 $,$Author: vsc $ * * Last rev: $Date: 2008-08-06 23:05:49 $,$Author: vsc $ *
* $Log: not supported by cvs2svn $ * $Log: not supported by cvs2svn $
* Revision 1.243 2008/08/06 17:32:18 vsc
* more thread fixes
*
* Revision 1.242 2008/06/17 13:37:48 vsc * Revision 1.242 2008/06/17 13:37:48 vsc
* fix c_interface not to crash when people try to recover slots that are * fix c_interface not to crash when people try to recover slots that are
* not there. * not there.
@ -1564,11 +1567,6 @@ Yap_absmi(int inp)
ASP = YREG+E_CB; ASP = YREG+E_CB;
saveregs(); saveregs();
if (cl->ClSource == NULL) {
fprintf(stderr,"%d CLLLLL %p %p %s\n",worker_id,cl,cl->ClSource,RepAtom(cl->ClPred->FunctorOfPred)->StrOfAE);
exit(1);
FAIL();
}
while ((t = Yap_FetchTermFromDB(cl->ClSource)) == 0L) { while ((t = Yap_FetchTermFromDB(cl->ClSource)) == 0L) {
if (Yap_Error_TYPE == OUT_OF_ATTVARS_ERROR) { if (Yap_Error_TYPE == OUT_OF_ATTVARS_ERROR) {
Yap_Error_TYPE = YAP_NO_ERROR; Yap_Error_TYPE = YAP_NO_ERROR;

56
pl/directives.yap
View File

@ -23,42 +23,42 @@
'$all_directives'(G) :- !, '$all_directives'(G) :- !,
'$directive'(G). '$directive'(G).
'$directive'(multifile(_)). '$directive'(block(_)).
'$directive'(expects_dialect(_)).
'$directive'(discontiguous(_)).
'$directive'(initialization(_)).
'$directive'(include(_)).
'$directive'(module(_,_)).
'$directive'(module(_,_,_)).
'$directive'(meta_predicate(_)).
'$directive'(module_transparent(_)).
'$directive'(public(_)).
'$directive'(dynamic(_)).
'$directive'(noprofile(_)).
'$directive'(op(_,_,_)).
'$directive'(set_prolog_flag(_,_)).
'$directive'(ensure_loaded(_)).
'$directive'(char_conversion(_,_)). '$directive'(char_conversion(_,_)).
'$directive'(compile(_)). '$directive'(compile(_)).
'$directive'(consult(_)). '$directive'(consult(_)).
'$directive'(reconsult(_)). '$directive'(discontiguous(_)).
'$directive'(sequential). '$directive'(dynamic(_)).
'$directive'(elif(_)).
'$directive'(else).
'$directive'(encoding(_)).
'$directive'(endif).
'$directive'(ensure_loaded(_)).
'$directive'(expects_dialect(_)).
'$directive'(if(_)).
'$directive'(include(_)).
'$directive'(initialization(_)).
'$directive'(meta_predicate(_)).
'$directive'(module(_,_)).
'$directive'(module(_,_,_)).
'$directive'(module_transparent(_)).
'$directive'(multifile(_)).
'$directive'(noprofile(_)).
'$directive'(parallel). '$directive'(parallel).
'$directive'(public(_)).
'$directive'(op(_,_,_)).
'$directive'(set_prolog_flag(_,_)).
'$directive'(reconsult(_)).
'$directive'(reexport(_)).
'$directive'(reexport(_,_)).
'$directive'(sequential).
'$directive'(sequential(_)). '$directive'(sequential(_)).
'$directive'(block(_)). '$directive'(thread_local(_)).
'$directive'(wait(_)). '$directive'(uncutable(_)).
'$directive'(use_module(_)). '$directive'(use_module(_)).
'$directive'(use_module(_,_)). '$directive'(use_module(_,_)).
'$directive'(use_module(_,_,_)). '$directive'(use_module(_,_,_)).
'$directive'(thread_local(_)). '$directive'(wait(_)).
'$directive'(uncutable(_)).
'$directive'(encoding(_)).
'$directive'(if(_)).
'$directive'(else).
'$directive'(elif(_)).
'$directive'(endif).
'$directive'(reexport(_)).
'$directive'(reexport(_,_)).
'$exec_directives'((G1,G2), Mode, M) :- !, '$exec_directives'((G1,G2), Mode, M) :- !,
'$exec_directives'(G1, Mode, M), '$exec_directives'(G1, Mode, M),