Changeset 4533 for trunk/compiler

Timestamp:

10/22/08 18:24:27 (3 months ago)

Author:

pmoura

Message:

Updated the Logtalk compiler to provide file information when printing redefined entity warnings if the files of the new and the old definitions are different (requires support for the file/2 entity property).

Files:

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

trunk/compiler/logtalk.pl

@@ -4267 +4267 @@
         '$lgt_pp_file_rclause_'('$lgt_entity_property_'(Entity, file(NewBase, NewPath))),
         (OldPath \== NewPath; OldBase \== NewBase) ->
-        atom_concat(OldPath, OldBase, File)
+        File = OldBase-OldPath
     ;   File = nil
     ).
@@ -4284 +4284 @@
         (   File == nil ->
             true
-        ;   write('              loaded from file '), write(File), nl
+        ;   File = Base-Path,
+            write('              loaded from file '), write(Base), write(' ('), write(Path), write(')'), nl
         )
     ;   true