Changeset 5040 for trunk/compiler/logtalk.pl

Timestamp:

06/21/09 12:00:40 (15 months ago)

Author:

pmoura

Message:

Added missing dynamic directives in the definition of the pseudo-object "debugger".

Allow the "debugger" built-in object to play the role of both a class and a prototype when being specialized or extended.

Files:

• trunk/compiler/logtalk.pl (modified) (3 diffs)

trunk/compiler/logtalk.pl

@@ -3965 +3965 @@
 % the following clauses correspond to a virtual compilation of the built-in object debugger
 
+:- dynamic('$lgt_bio_debugger_0__ddcl'/2).
+:- dynamic('$lgt_bio_debugger_0__ddef'/3).
+
 
 % debugger public protocol
@@ -3991 +3994 @@
     '$lgt_bio_debugger_0__dcl'(Pred, Scope, Type, Meta, NonTerminal, Synchronized).
 
+'$lgt_bio_debugger_0__dcl'(Pred, Scope, (dynamic), no, no, no, debugger, debugger) :-
+    '$lgt_bio_debugger_0__ddcl'(Pred, Scope).
+
 
 '$lgt_bio_debugger_0__def'(reset, _, '$lgt_dbg_reset').
@@ -4014 +4020 @@
 '$lgt_bio_debugger_0__def'(Pred, ExCtx, Call, debugger) :-
     '$lgt_bio_debugger_0__def'(Pred, ExCtx, Call).
+
+'$lgt_bio_debugger_0__def'(Pred, ExCtx, Call, debugger) :-
+    '$lgt_bio_debugger_0__ddef'(Pred, ExCtx, Call).
+
+
+'$lgt_bio_debugger_0__idcl'(Pred, Scope, (dynamic), no, no, no, debugger, debugger) :-
+    '$lgt_bio_debugger_0__ddcl'(Pred, Scope).
+
+
+'$lgt_bio_debugger_0__idef'(Pred, ExCtx, Call, debugger) :-
+    '$lgt_bio_debugger_0__ddef'(Pred, ExCtx, Call).