paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 14:49:17 +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; destructor tprocsym.done;
begin begin
check_forward; { don't check if errors !! }
if Errorcount=0 then
check_forward;
tsym.done; tsym.done;
end; end;
@ -444,9 +446,6 @@
var var
pd : pprocdef; pd : pprocdef;
begin begin
{ don't check if errors !! }
if Errorcount>0 then
exit;
pd:=definition; pd:=definition;
while assigned(pd) do while assigned(pd) do
begin begin
@ -457,7 +456,10 @@
demangledparas(pd^.demangled_paras)) demangledparas(pd^.demangled_paras))
else else
MessagePos1(fileinfo,sym_e_forward_not_resolved,name+pd^.demangled_paras); MessagePos1(fileinfo,sym_e_forward_not_resolved,name+pd^.demangled_paras);
{ Turn futher error messages off }
pd^.forwarddef:=false;
end; end;
pd:=pd^.nextoverloaded; pd:=pd^.nextoverloaded;
end; end;
end; end;
@ -2016,7 +2018,10 @@
{ {
$Log$ $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 + MessagePos() which is enhanced Message() function but also gets the
position info position info
* Removed comp warnings * Removed comp warnings

7
compiler/tccal.pas
View File

@ -692,7 +692,7 @@ implementation
internalerror(39393) internalerror(39393)
else else
CGMessage3(type_e_wrong_parameter_type,tostr(lastpara), CGMessage3(type_e_wrong_parameter_type,tostr(lastpara),
lastparatype^.typename,pt^.resulttype^.typename); pt^.resulttype^.typename,lastparatype^.typename);
{$else} {$else}
CGMessage1(parser_e_wrong_parameter_type,tostr(lastpara)); CGMessage1(parser_e_wrong_parameter_type,tostr(lastpara));
{$endif} {$endif}
@ -1153,7 +1153,10 @@ implementation
end. end.
{ {
$Log$ $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 + method message handlers which contain an explicit self can't be called
directly anymore directly anymore
+ self is now loaded at the start of the an message handler with an explicit + self is now loaded at the start of the an message handler with an explicit