Logtalk 2.29.1 files.
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1746 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
c79a7a5bdb
commit
23fb55aa62
File diff suppressed because it is too large
Load Diff
@ -1,11 +1,11 @@
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
%
|
||||
% Logtalk - Object oriented extension to Prolog
|
||||
% Release 2.28.2
|
||||
% Release 2.29.1
|
||||
%
|
||||
% configuration file for YAP Prolog 4.3.23 and later versions
|
||||
%
|
||||
% last updated: September 23, 2006
|
||||
% last updated: December 19, 2006
|
||||
%
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
@ -44,6 +44,7 @@
|
||||
dynamic('$lgt_obj_lookup_cache_'/4), hide_predicate('$lgt_obj_lookup_cache_'/4),
|
||||
dynamic('$lgt_self_lookup_cache_'/4), hide_predicate('$lgt_self_lookup_cache_'/4),
|
||||
dynamic('$lgt_super_lookup_cache_'/5), hide_predicate('$lgt_super_lookup_cache_'/5),
|
||||
dynamic('$lgt_db_lookup_cache_'/6), hide_predicate('$lgt_db_lookup_cache_'/6),
|
||||
dynamic('$lgt_pp_warnings_top_argument_'/1), hide_predicate('$lgt_pp_warnings_top_argument_'/1),
|
||||
dynamic('$lgt_pp_comp_warnings_counter_'/1), hide_predicate('$lgt_pp_comp_warnings_counter_'/1),
|
||||
dynamic('$lgt_pp_load_warnings_counter_'/1), hide_predicate('$lgt_pp_load_warnings_counter_'/1)
|
||||
@ -232,7 +233,7 @@ forall(Generate, Test) :-
|
||||
'$lgt_default_flag'(debug, off).
|
||||
'$lgt_default_flag'(supports_break_predicate, true).
|
||||
|
||||
'$lgt_default_flag'(events, on).
|
||||
'$lgt_default_flag'(events, off).
|
||||
|
||||
'$lgt_default_flag'(altdirs, off).
|
||||
|
||||
@ -478,13 +479,17 @@ forall(Generate, Test) :-
|
||||
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
%
|
||||
% getting line number from stream position
|
||||
% getting stream current line number
|
||||
% (needed for improved compiler error messages)
|
||||
%
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
|
||||
'$lgt_stream_position_to_line_number'('$stream_position'(_, Line, _), Line).
|
||||
% '$lgt_stream_current_line_number'(@stream, -integer)
|
||||
|
||||
'$lgt_stream_current_line_number'(Stream, Line) :-
|
||||
stream_property(Stream, position('$stream_position'(_, Last, _))),
|
||||
Line is Last + 1.
|
||||
|
||||
|
||||
|
||||
|
Reference in New Issue
Block a user