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

* small message fixes

Browse Source
This commit is contained in:
peter 1999-05-10 09:01:43 +00:00
parent 93438c3ba4
commit 75aea84e80
2 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/symsym.inc
View File

@ -409,7 +409,9 @@
destructor tprocsym.done;
begin
check_forward;
{ don't check if errors !! }
if Errorcount=0 then
check_forward;
tsym.done;
end;
@ -444,9 +446,6 @@
var
pd : pprocdef;
begin
{ don't check if errors !! }
if Errorcount>0 then
exit;
pd:=definition;
while assigned(pd) do
begin
@ -457,7 +456,10 @@
demangledparas(pd^.demangled_paras))
else
MessagePos1(fileinfo,sym_e_forward_not_resolved,name+pd^.demangled_paras);
{ Turn futher error messages off }
pd^.forwarddef:=false;
end;
pd:=pd^.nextoverloaded;
end;
end;
@ -2016,7 +2018,10 @@
{
$Log$
Revision 1.87 1999-05-08 19:52:38 peter
Revision 1.88 1999-05-10 09:01:43 peter
* small message fixes
Revision 1.87 1999/05/08 19:52:38 peter
+ MessagePos() which is enhanced Message() function but also gets the
position info
* Removed comp warnings

7
compiler/tccal.pas
View File

@ -692,7 +692,7 @@ implementation
internalerror(39393)
else
CGMessage3(type_e_wrong_parameter_type,tostr(lastpara),
lastparatype^.typename,pt^.resulttype^.typename);
pt^.resulttype^.typename,lastparatype^.typename);
{$else}
CGMessage1(parser_e_wrong_parameter_type,tostr(lastpara));
{$endif}
@ -1153,7 +1153,10 @@ implementation
end.
{
$Log$
Revision 1.39 1999-05-02 09:35:46 florian
Revision 1.40 1999-05-10 09:01:45 peter
* small message fixes
Revision 1.39 1999/05/02 09:35:46 florian
+ method message handlers which contain an explicit self can't be called
directly anymore
+ self is now loaded at the start of the an message handler with an explicit