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

* get a failure on webtbf/tbug890

Browse Source
This commit is contained in:
pierre 2000-07-07 20:42:55 +00:00
parent 1d1b4bcb53
commit ab6fd6b3b8
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/psub.pas
View File

@ -1292,7 +1292,7 @@ begin
is_equal(pd^.nextoverloaded^.rettype.def,aktprocsym^.definition^.rettype.def))) then is_equal(pd^.nextoverloaded^.rettype.def,aktprocsym^.definition^.rettype.def))) then
begin begin
if not equal_paras(aktprocsym^.definition^.para,hd^.para,cp_all) and if not equal_paras(aktprocsym^.definition^.para,hd^.para,cp_all) and
(m_repeat_forward in aktmodeswitches) then ((m_repeat_forward in aktmodeswitches) or (aktprocsym^.definition^.para^.count>0)) then
begin begin
Message1(parser_e_header_dont_match_forward,aktprocsym^.demangledName); Message1(parser_e_header_dont_match_forward,aktprocsym^.demangledName);
exit; exit;
@ -2083,7 +2083,10 @@ end.
{ {
$Log$ $Log$
Revision 1.66 2000-07-06 19:04:59 peter Revision 1.67 2000-07-07 20:42:55 pierre
* get a failure on webtbf/tbug890
Revision 1.66 2000/07/06 19:04:59 peter
* allow in delphi mode directives without semicolons between * allow in delphi mode directives without semicolons between
Revision 1.65 2000/06/25 20:13:51 florian Revision 1.65 2000/06/25 20:13:51 florian