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

* fix for form bug #555

Browse Source
This commit is contained in:
pierre 1999-11-29 23:42:49 +00:00
parent 55bb8c7de7
commit 1bfbccaf08
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/hcgdata.pas
View File

@ -444,8 +444,8 @@ implementation
{ only if both are virtual !! }
if (procdefcoll^.data^.proccalloptions<>hp^.proccalloptions) or
(procdefcoll^.data^.proctypeoption<>hp^.proctypeoption) or
((procdefcoll^.data^.procoptions-[po_abstractmethod,po_overridingmethod])<>
(hp^.procoptions-[po_abstractmethod,po_overridingmethod])) then
((procdefcoll^.data^.procoptions-[po_abstractmethod,po_overridingmethod,po_assembler])<>
(hp^.procoptions-[po_abstractmethod,po_overridingmethod,po_assembler])) then
Message1(parser_e_header_dont_match_forward,_c^.objname^+'.'+_name);
{ check, if the overridden directive is set }
@ -614,7 +614,10 @@ implementation
end.
{
$Log$
Revision 1.18 1999-10-26 12:30:41 peter
Revision 1.19 1999-11-29 23:42:49 pierre
* fix for form bug 555
Revision 1.18 1999/10/26 12:30:41 peter
* const parameter is now checked
* better and generic check if a node can be used for assigning
* export fixes