|
From: Vitor S. C. <vs...@us...> - 2008-06-16 21:22:11
|
Update of /cvsroot/yap/pl In directory sc8-pr-cvs10.sourceforge.net:/tmp/cvs-serv19140/pl Modified Files: boot.yap messages.yap statistics.yap Log Message: fix stack growth in globals fix compilation messages Index: boot.yap =================================================================== RCS file: /cvsroot/yap/pl/boot.yap,v retrieving revision 1.187 retrieving revision 1.188 diff -u -r1.187 -r1.188 --- boot.yap 26 May 2008 09:16:24 -0000 1.187 +++ boot.yap 16 Jun 2008 21:22:15 -0000 1.188 @@ -104,7 +104,7 @@ nb_setval('$endif',off), nb_setval('$consulting_file',[]), nb_setval('$consulting',false), - nb_setval('$included_file',''). + nb_setval('$included_file',[]). % Start file for yap Index: messages.yap =================================================================== RCS file: /cvsroot/yap/pl/messages.yap,v retrieving revision 1.12 retrieving revision 1.13 diff -u -r1.12 -r1.13 --- messages.yap 12 Jun 2008 10:55:52 -0000 1.12 +++ messages.yap 16 Jun 2008 21:22:15 -0000 1.13 @@ -25,7 +25,7 @@ file_location(Prefix) --> { prolog_load_context(file, FileName) - }, + }, { '$start_line'(LN) }, file_position(FileName,LN,Prefix), [ nl ]. Index: statistics.yap =================================================================== RCS file: /cvsroot/yap/pl/statistics.yap,v retrieving revision 1.9 retrieving revision 1.10 diff -u -r1.9 -r1.10 --- statistics.yap 12 Feb 2008 21:50:58 -0000 1.9 +++ statistics.yap 16 Jun 2008 21:22:15 -0000 1.10 @@ -135,6 +135,14 @@ :- meta_predicate time(:). time(Goal) :- + var(Goal), + '$do_error'(instantiation_error,time(Goal)). +time(_:Goal) :- + var(Goal), + '$do_error'(instantiation_error,time(Goal)). +time(Goal) :- \+ callable(Goal), !, + '$do_error'(type_error(callable,Goal),time(Goal)). +time(Goal) :- statistics(walltime, _), statistics(cputime, _), ( catch(Goal, E, true) |