paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 17:29:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* give info of original duplicated symbol more often

Browse Source
This commit is contained in:
pierre 1999-12-01 22:32:35 +00:00
parent 6e68ef88c5
commit 98a6530898
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/symtable.pas
View File

@ -647,16 +647,13 @@ implementation
begin begin
Message1(sym_e_duplicate_id,sym^.name); Message1(sym_e_duplicate_id,sym^.name);
st:=findunitsymtable(sym^.owner); st:=findunitsymtable(sym^.owner);
if assigned(st) then with sym^.fileinfo do
begin begin
with sym^.fileinfo do if assigned(st) and (st^.unitid<>0) then
begin Message2(sym_h_duplicate_id_where,'unit '+st^.name^,tostr(line))
if st^.unitid=0 then else
Message2(sym_h_duplicate_id_where,current_module^.sourcefiles^.get_file_name(fileindex),tostr(line)) Message2(sym_h_duplicate_id_where,current_module^.sourcefiles^.get_file_name(fileindex),tostr(line));
else end;
Message2(sym_h_duplicate_id_where,'unit '+st^.name^,tostr(line));
end;
end;
end; end;
@ -2794,7 +2791,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.68 1999-11-30 10:40:56 peter Revision 1.69 1999-12-01 22:32:35 pierre
* give info of original duplicated symbol more often
Revision 1.68 1999/11/30 10:40:56 peter
+ ttype, tsymlist + ttype, tsymlist
Revision 1.67 1999/11/24 11:41:05 pierre Revision 1.67 1999/11/24 11:41:05 pierre