Changeset 4403

Timestamp:

07/24/08 10:26:55 (4 months ago)

Author:

pmoura

Message:

Corrected a bug in the implementation of the built-in database method retractall/1 when retracting clauses in an object compiled in debug mode. Thanks to Parker Jones for the bug report.

Location:

trunk

Files:

• compiler/logtalk.pl (modified) (3 diffs)
• RELEASE_NOTES.txt (modified) (2 diffs)
• UPGRADING.txt (modified) (1 diff)

trunk/compiler/logtalk.pl

@@ -2639 +2639 @@
                     '$lgt_update_ddef_table'(DDef, Head, Call)
                 ;   call_with_args(Def, Head, _, _, _, Call) ->
-                    '$lgt_add_db_lookup_cache_entry'(Obj, Head, PScope, Sender, Call),
+                    (   '$lgt_debugging_'(Obj) ->
+                        true
+                    ;   '$lgt_add_db_lookup_cache_entry'(Obj, Head, PScope, Sender, Call)
+                    ),
                     retractall(Call)
                 ;   true
@@ -2655 +2658 @@
         (   Obj = Sender,
             call_with_args(DDef, Head, _, _, _, Call) ->
-            '$lgt_add_db_lookup_cache_entry'(Obj, Head, PScope, Sender, Call),
+            (   '$lgt_debugging_'(Obj) ->
+                true
+            ;   '$lgt_add_db_lookup_cache_entry'(Obj, Head, PScope, Sender, Call)
+            ),
             retractall(Call)
         ;   throw(error(existence_error(predicate_declaration, Head), Obj::retractall(Head), Sender))
@@ -5005 +5011 @@
 % returns runtime table clauses for the entity being compiled
 
-'$lgt_pp_rclause'(Clause) :-
-    '$lgt_pp_rclause_'(Clause).
-
 '$lgt_pp_rclause'('$lgt_debugging_'(Entity)) :-
     '$lgt_compiler_flag'(debug, on),
     '$lgt_pp_entity'(_, Entity, _, _, _).
+
+'$lgt_pp_rclause'(Clause) :-
+    '$lgt_pp_rclause_'(Clause).
 
 '$lgt_pp_rclause'('$lgt_current_object_'(Obj, Prefix, Dcl, Def, Super, IDcl, IDef, DDcl, DDef, Rnm, Mode, Synchronized, Threaded)) :-

trunk/RELEASE_NOTES.txt

@@ -61 +61 @@
     from within a category.
 
+    Corrected a bug in the implementation of the built-in database method 
+    retractall/1 when retracting clauses in an object compiled in debug mode.
+    Thanks to Parker Jones for the bug report.
+
     Updated all config files due to changes to the predicate used to declare 
     proprietary meta-predicates, '$lgt_pl_meta_predicate'/1. Added a second 
@@ -66 +70 @@
     or a built-in control construct. This is necessary in order to properly 
     compile calls to these proprietary meta-predicates when in debug mode.
+    Thanks to Victor Noel for the bug report.
 
     Corrected a bug in the config files hooks used in handling proprietary 

trunk/UPGRADING.txt

@@ -208 +208 @@
 
 Logtalk version 2.32.2 changes the internal predicate used in the processing 
-of "super" calls, changes the implementation of complementing categories, and 
+of "super" calls, changes the implementation of complementing categories,  
 changes the possible values of the read-only compiler flag "break_predicate",
-therefore implying the recompilation of all objects.
+and changes the way proprietary Prolog meta-predicates and control constructs 
+are declared, therefore implying the recompilation of all objects.