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

* web bug #2942 fixed: reintroduce isn't necessary in methods of child classes of course

Browse Source
This commit is contained in:
florian 2004-02-08 23:30:43 +00:00
parent 7241c5daff
commit b4bbc5c383
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/nobj.pas
View File

@ -688,8 +688,8 @@ implementation
if (procdefcoll^.data.proccalloption<>pd.proccalloption) or if (procdefcoll^.data.proccalloption<>pd.proccalloption) or
(procdefcoll^.data.proctypeoption<>pd.proctypeoption) or (procdefcoll^.data.proctypeoption<>pd.proctypeoption) or
((procdefcoll^.data.procoptions- ((procdefcoll^.data.procoptions-
[po_abstractmethod,po_overridingmethod,po_assembler,po_overload,po_public])<> [po_abstractmethod,po_overridingmethod,po_assembler,po_overload,po_public,po_reintroduce])<>
(pd.procoptions-[po_abstractmethod,po_overridingmethod,po_assembler,po_overload,po_public])) then (pd.procoptions-[po_abstractmethod,po_overridingmethod,po_assembler,po_overload,po_public,po_reintroduce])) then
begin begin
MessagePos1(pd.fileinfo,parser_e_header_dont_match_forward,pd.fullprocname(false)); MessagePos1(pd.fileinfo,parser_e_header_dont_match_forward,pd.fullprocname(false));
tprocsym(procdefcoll^.data.procsym).write_parameter_lists(pd); tprocsym(procdefcoll^.data.procsym).write_parameter_lists(pd);
@ -1367,7 +1367,10 @@ initialization
end. end.
{ {
$Log$ $Log$
Revision 1.59 2004-01-28 20:30:18 peter Revision 1.60 2004-02-08 23:30:43 florian
* web bug 2942 fixed: reintroduce isn't necessary in methods of child classes of course
Revision 1.59 2004/01/28 20:30:18 peter
* record alignment splitted in fieldalignment and recordalignment, * record alignment splitted in fieldalignment and recordalignment,
the latter is used when this record is inserted in another record. the latter is used when this record is inserted in another record.