|
From: Vitor S. C. <vs...@us...> - 2008-08-06 23:05:42
|
Update of /cvsroot/yap/pl In directory sc8-pr-cvs10.sourceforge.net:/tmp/cvs-serv2923/pl Modified Files: directives.yap Log Message: fix debugging info Index: directives.yap =================================================================== RCS file: /cvsroot/yap/pl/directives.yap,v retrieving revision 1.77 retrieving revision 1.78 diff -u -r1.77 -r1.78 --- directives.yap 10 May 2008 23:24:13 -0000 1.77 +++ directives.yap 6 Aug 2008 23:05:49 -0000 1.78 @@ -23,42 +23,42 @@ '$all_directives'(G) :- !, '$directive'(G). -'$directive'(multifile(_)). -'$directive'(expects_dialect(_)). +'$directive'(block(_)). +'$directive'(char_conversion(_,_)). +'$directive'(compile(_)). +'$directive'(consult(_)). '$directive'(discontiguous(_)). -'$directive'(initialization(_)). +'$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'(meta_predicate(_)). '$directive'(module_transparent(_)). -'$directive'(public(_)). -'$directive'(dynamic(_)). +'$directive'(multifile(_)). '$directive'(noprofile(_)). +'$directive'(parallel). +'$directive'(public(_)). '$directive'(op(_,_,_)). '$directive'(set_prolog_flag(_,_)). -'$directive'(ensure_loaded(_)). -'$directive'(char_conversion(_,_)). -'$directive'(compile(_)). -'$directive'(consult(_)). '$directive'(reconsult(_)). +'$directive'(reexport(_)). +'$directive'(reexport(_,_)). '$directive'(sequential). -'$directive'(parallel). '$directive'(sequential(_)). -'$directive'(block(_)). -'$directive'(wait(_)). +'$directive'(thread_local(_)). +'$directive'(uncutable(_)). '$directive'(use_module(_)). '$directive'(use_module(_,_)). '$directive'(use_module(_,_,_)). -'$directive'(thread_local(_)). -'$directive'(uncutable(_)). -'$directive'(encoding(_)). -'$directive'(if(_)). -'$directive'(else). -'$directive'(elif(_)). -'$directive'(endif). -'$directive'(reexport(_)). -'$directive'(reexport(_,_)). +'$directive'(wait(_)). '$exec_directives'((G1,G2), Mode, M) :- !, '$exec_directives'(G1, Mode, M), |