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

* fixed a problem with forward declarations in TP mode, probably introduced by

Browse Source 
Pierre's last changes
This commit is contained in:
florian 2000-06-25 20:13:51 +00:00
parent 44307fe5ba
commit 73269986f3
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/psub.pas
View File

@ -1291,7 +1291,8 @@ begin
((aktprocsym^.definition^.proctypeoption<>potype_operator) or (optoken<>_ASSIGNMENT) or ((aktprocsym^.definition^.proctypeoption<>potype_operator) or (optoken<>_ASSIGNMENT) or
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) then if not equal_paras(aktprocsym^.definition^.para,hd^.para,cp_all) and
(m_repeat_forward in aktmodeswitches) then
begin begin
Message1(parser_e_header_dont_match_forward,aktprocsym^.demangledName); Message1(parser_e_header_dont_match_forward,aktprocsym^.demangledName);
exit; exit;
@ -2079,7 +2080,11 @@ end.
{ {
$Log$ $Log$
Revision 1.64 2000-06-20 12:47:52 pierre Revision 1.65 2000-06-25 20:13:51 florian
* fixed a problem with forward declarations in TP mode, probably introduced by
Pierre's last changes
Revision 1.64 2000/06/20 12:47:52 pierre
* equal_paras and convertable_paras changed by transforming third parameter * equal_paras and convertable_paras changed by transforming third parameter
into an enum with three possible values: into an enum with three possible values:
cp_none, cp_value_equal_const and cp_all. cp_none, cp_value_equal_const and cp_all.