paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 15:31:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

* some error messages use nicer symbol names

Browse Source
This commit is contained in:
florian 2023-04-01 22:34:08 +02:00
parent 1eca53a681
commit 8f3cce556d
3 changed files with 11 additions and 6 deletions

4
compiler/ncal.pas
View File

@ -3397,7 +3397,7 @@ implementation
pd:=tprocdef(AbstractMethodsList[i]);
if po_abstractmethod in pd.procoptions then
begin
Message2(type_w_instance_with_abstract,objectdf.objrealname^,pd.procsym.RealName);
Message2(type_w_instance_with_abstract,objectdf.typesymbolprettyname,pd.customprocname([pno_proctypeoption, pno_paranames,pno_ownername, pno_noclassmarker, pno_prettynames]));
MessagePos1(pd.fileinfo,sym_h_abstract_method_list,pd.fullprocname(true));
end;
end;
@ -4608,7 +4608,7 @@ implementation
(procdefinition.typ=procdef) and
not (pio_inline_not_possible in tprocdef(procdefinition).implprocoptions) then
begin
Message1(cg_n_no_inline,tprocdef(procdefinition).customprocname([pno_proctypeoption, pno_paranames,pno_ownername, pno_noclassmarker]));
Message1(cg_n_no_inline,tprocdef(procdefinition).customprocname([pno_proctypeoption, pno_paranames,pno_ownername, pno_noclassmarker, pno_prettynames]));
end;
mark_unregable_parameters;
result:=pass1_normal;

11
compiler/symdef.pas
View File

@ -658,7 +658,7 @@ interface
tprocnameoption = (pno_showhidden, pno_proctypeoption, pno_paranames,
pno_ownername, pno_noclassmarker, pno_noleadingdollar,
pno_mangledname, pno_noparams);
pno_mangledname, pno_noparams, pno_prettynames);
tprocnameoptions = set of tprocnameoption;
tproccopytyp = (pc_normal,
{$ifdef i8086}
@ -6853,8 +6853,10 @@ implementation
else
s:=s+'procedure';
end
else if pno_prettynames in pno then
rn:=procsym.prettyname
else
rn:=procsym.realname;
rn:=procsym.RealName;
if (pno_noleadingdollar in pno) and
(rn[1]='$') then
delete(rn,1,1);
@ -6874,7 +6876,10 @@ implementation
s:=s+':'+module.realmodulename^+'.'
else
s:=s+':';
hs:=returndef.typesym.realname;
if pno_prettynames in pno then
hs:=returndef.typesym.prettyname
else
hs:=returndef.typesym.realname;
if hs[1]<>'$' then
s:=s+returndef.OwnerHierarchyName+hs
else

2
compiler/symtype.pas
View File

@ -438,7 +438,7 @@ implementation
if assigned(typesym) then
result:=result+typesym.prettyname
else
result:=result+'<no type symbol>'
result:=result+'<no type symbol>';
end;