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

* some realname updates for messages

Browse Source
This commit is contained in:
peter 2000-11-12 22:17:46 +00:00
parent 72f618d322
commit e0a874dc4f
5 changed files with 42 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/parser.pas
View File

@ -266,7 +266,7 @@ implementation
{$ifndef Delphi} {$ifndef Delphi}
recoverpos : jmp_buf; recoverpos : jmp_buf;
oldrecoverpos : pjmp_buf; oldrecoverpos : pjmp_buf;
{$endif Delphi} {$endif Delphi}
{$endif useexcept} {$endif useexcept}
{$ifdef newcg} {$ifdef newcg}
oldcg : pcg; oldcg : pcg;
@ -557,7 +557,7 @@ implementation
{$endif BrowserLog} {$endif BrowserLog}
{ Write Browser Collections } { Write Browser Collections }
do_extractsymbolinfo; do_extractsymbolinfo{$ifdef FPC}(){$endif};
end; end;
if current_module^.in_second_compile then if current_module^.in_second_compile then
@ -593,7 +593,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.9 2000-11-04 14:25:20 florian Revision 1.10 2000-11-12 22:17:46 peter
* some realname updates for messages
Revision 1.9 2000/11/04 14:25:20 florian
+ merged Attila's changes for interfaces, not tested yet + merged Attila's changes for interfaces, not tested yet
Revision 1.8 2000/10/31 22:02:49 peter Revision 1.8 2000/10/31 22:02:49 peter
@ -618,4 +621,4 @@ end.
Revision 1.2 2000/07/13 11:32:44 michael Revision 1.2 2000/07/13 11:32:44 michael
+ removed logs + removed logs
} }

9
compiler/pdecl.pas
View File

@ -335,7 +335,7 @@ implementation
end end
else else
begin begin
MessagePos1(psym(p)^.fileinfo,sym_e_forward_type_not_resolved,p^.name); MessagePos1(psym(p)^.fileinfo,sym_e_forward_type_not_resolved,psym(p)^.realname);
{ try to recover } { try to recover }
ppointerdef(pd)^.pointertype.def:=generrordef; ppointerdef(pd)^.pointertype.def:=generrordef;
end; end;
@ -350,7 +350,7 @@ implementation
begin begin
{ only give an error as the implementation may follow in an { only give an error as the implementation may follow in an
other type block which is allowed by FPC modes } other type block which is allowed by FPC modes }
MessagePos1(psym(p)^.fileinfo,sym_e_forward_type_not_resolved,p^.name); MessagePos1(psym(p)^.fileinfo,sym_e_forward_type_not_resolved,psym(p)^.realname);
end end
else else
begin begin
@ -545,7 +545,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.20 2000-11-11 16:19:11 peter Revision 1.21 2000-11-12 22:17:46 peter
* some realname updates for messages
Revision 1.20 2000/11/11 16:19:11 peter
* allow far directive for pointer type declarations * allow far directive for pointer type declarations
Revision 1.19 2000/11/04 14:25:20 florian Revision 1.19 2000/11/04 14:25:20 florian

7
compiler/pdecobj.pas
View File

@ -1156,7 +1156,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.9 2000-11-06 23:05:52 florian Revision 1.10 2000-11-12 22:17:47 peter
* some realname updates for messages
Revision 1.9 2000/11/06 23:05:52 florian
* more fixes * more fixes
Revision 1.8 2000/11/06 20:30:55 peter Revision 1.8 2000/11/06 20:30:55 peter
@ -1187,4 +1190,4 @@ end.
Revision 1.1 2000/10/14 10:14:51 peter Revision 1.1 2000/10/14 10:14:51 peter
* moehrendorf oct 2000 rewrite * moehrendorf oct 2000 rewrite
} }

11
compiler/scandir.inc
View File

@ -1158,9 +1158,9 @@ const
current_scanner^.skipspace; current_scanner^.skipspace;
hs:=current_scanner^.readid; hs:=current_scanner^.readid;
if hs='GUI' then if hs='GUI' then
apptype:=at_gui apptype:=app_gui
else if hs='CONSOLE' then else if hs='CONSOLE' then
apptype:=at_cui apptype:=app_cui
else else
Message1(scan_w_unsupported_app_type,hs); Message1(scan_w_unsupported_app_type,hs);
end; end;
@ -1455,7 +1455,10 @@ const
{ {
$Log$ $Log$
Revision 1.11 2000-11-04 14:25:21 florian Revision 1.12 2000-11-12 22:17:47 peter
* some realname updates for messages
Revision 1.11 2000/11/04 14:25:21 florian
+ merged Attila's changes for interfaces, not tested yet + merged Attila's changes for interfaces, not tested yet
Revision 1.10 2000/10/31 22:02:51 peter Revision 1.10 2000/10/31 22:02:51 peter
@ -1489,4 +1492,4 @@ const
Revision 1.2 2000/07/13 11:32:49 michael Revision 1.2 2000/07/13 11:32:49 michael
+ removed logs + removed logs
} }

31
compiler/symtable.pas
View File

@ -262,9 +262,9 @@ implementation
not(plabelsym(p)^.defined) then not(plabelsym(p)^.defined) then
begin begin
if plabelsym(p)^.used then if plabelsym(p)^.used then
Message1(sym_e_label_used_and_not_defined,p^.name) Message1(sym_e_label_used_and_not_defined,plabelsym(p)^.realname)
else else
Message1(sym_w_label_not_defined,p^.name); Message1(sym_w_label_not_defined,plabelsym(p)^.realname);
end; end;
end; end;
@ -297,30 +297,30 @@ implementation
begin begin
if (psym(p)^.owner^.symtabletype=parasymtable) or (vo_is_local_copy in pvarsym(p)^.varoptions) then if (psym(p)^.owner^.symtabletype=parasymtable) or (vo_is_local_copy in pvarsym(p)^.varoptions) then
begin begin
MessagePos1(psym(p)^.fileinfo,sym_h_para_identifier_not_used,p^.name); MessagePos1(psym(p)^.fileinfo,sym_h_para_identifier_not_used,psym(p)^.realname);
end end
else if (psym(p)^.owner^.symtabletype=objectsymtable) then else if (psym(p)^.owner^.symtabletype=objectsymtable) then
MessagePos2(psym(p)^.fileinfo,sym_n_private_identifier_not_used,psym(p)^.owner^.name^,p^.name) MessagePos2(psym(p)^.fileinfo,sym_n_private_identifier_not_used,psym(p)^.owner^.name^,psym(p)^.realname)
else else
MessagePos1(psym(p)^.fileinfo,sym_n_local_identifier_not_used,p^.name); MessagePos1(psym(p)^.fileinfo,sym_n_local_identifier_not_used,psym(p)^.realname);
end end
else if pvarsym(p)^.varstate=vs_assigned then else if pvarsym(p)^.varstate=vs_assigned then
begin begin
if (psym(p)^.owner^.symtabletype=parasymtable) then if (psym(p)^.owner^.symtabletype=parasymtable) then
begin begin
if not(pvarsym(p)^.varspez in [vs_var,vs_out]) then if not(pvarsym(p)^.varspez in [vs_var,vs_out]) then
MessagePos1(psym(p)^.fileinfo,sym_h_para_identifier_only_set,p^.name) MessagePos1(psym(p)^.fileinfo,sym_h_para_identifier_only_set,psym(p)^.realname)
end end
else if (vo_is_local_copy in pvarsym(p)^.varoptions) then else if (vo_is_local_copy in pvarsym(p)^.varoptions) then
begin begin
if not(pvarsym(p)^.varspez in [vs_var,vs_out]) then if not(pvarsym(p)^.varspez in [vs_var,vs_out]) then
MessagePos1(psym(p)^.fileinfo,sym_h_para_identifier_only_set,p^.name); MessagePos1(psym(p)^.fileinfo,sym_h_para_identifier_only_set,psym(p)^.realname);
end end
else if (psym(p)^.owner^.symtabletype=objectsymtable) then else if (psym(p)^.owner^.symtabletype=objectsymtable) then
MessagePos2(psym(p)^.fileinfo,sym_n_private_identifier_only_set,psym(p)^.owner^.name^,p^.name) MessagePos2(psym(p)^.fileinfo,sym_n_private_identifier_only_set,psym(p)^.owner^.name^,psym(p)^.realname)
else if (psym(p)^.owner^.symtabletype<>parasymtable) then else if (psym(p)^.owner^.symtabletype<>parasymtable) then
if not (vo_is_exported in pvarsym(p)^.varoptions) then if not (vo_is_exported in pvarsym(p)^.varoptions) then
MessagePos1(psym(p)^.fileinfo,sym_n_local_identifier_only_set,p^.name); MessagePos1(psym(p)^.fileinfo,sym_n_local_identifier_only_set,psym(p)^.realname);
end; end;
end end
else if ((psym(p)^.owner^.symtabletype in else if ((psym(p)^.owner^.symtabletype in
@ -330,7 +330,7 @@ implementation
exit; exit;
{ do not claim for inherited private fields !! } { do not claim for inherited private fields !! }
if (pstoredsym(p)^.refs=0) and (psym(p)^.owner^.symtabletype=objectsymtable) then if (pstoredsym(p)^.refs=0) and (psym(p)^.owner^.symtabletype=objectsymtable) then
MessagePos2(psym(p)^.fileinfo,sym_n_private_method_not_used,psym(p)^.owner^.name^,p^.name) MessagePos2(psym(p)^.fileinfo,sym_n_private_method_not_used,psym(p)^.owner^.name^,psym(p)^.realname)
{ units references are problematic } { units references are problematic }
else if (pstoredsym(p)^.refs=0) and not(psym(p)^.typ in [funcretsym,enumsym,unitsym]) then else if (pstoredsym(p)^.refs=0) and not(psym(p)^.typ in [funcretsym,enumsym,unitsym]) then
if (psym(p)^.typ<>procsym) or not (pprocsym(p)^.is_global) or if (psym(p)^.typ<>procsym) or not (pprocsym(p)^.is_global) or
@ -338,7 +338,7 @@ implementation
but unused should still be signaled PM } but unused should still be signaled PM }
((psym(p)^.owner^.symtabletype=staticsymtable) and ((psym(p)^.owner^.symtabletype=staticsymtable) and
not current_module^.is_unit) then not current_module^.is_unit) then
MessagePos2(psym(p)^.fileinfo,sym_h_local_symbol_not_used,SymTypeName[psym(p)^.typ],p^.name); MessagePos2(psym(p)^.fileinfo,sym_h_local_symbol_not_used,SymTypeName[psym(p)^.typ],psym(p)^.realname);
end; end;
end; end;
@ -2007,7 +2007,7 @@ implementation
var var
st : psymtable; st : psymtable;
begin begin
Message1(sym_e_duplicate_id,sym^.name); Message1(sym_e_duplicate_id,sym^.realname);
st:=findunitsymtable(sym^.owner); st:=findunitsymtable(sym^.owner);
with sym^.fileinfo do with sym^.fileinfo do
begin begin
@ -2352,7 +2352,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.15 2000-11-06 15:54:15 florian Revision 1.16 2000-11-12 22:17:47 peter
* some realname updates for messages
Revision 1.15 2000/11/06 15:54:15 florian
* fixed two bugs to get make cycle work, but it's not enough * fixed two bugs to get make cycle work, but it's not enough
Revision 1.14 2000/11/04 14:25:22 florian Revision 1.14 2000/11/04 14:25:22 florian
@ -2398,4 +2401,4 @@ end.
Revision 1.2 2000/07/13 11:32:50 michael Revision 1.2 2000/07/13 11:32:50 michael
+ removed logs + removed logs
} }