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

* fix static method check

Browse Source 
* don't require class for class methods in the implementation for
    non delphi modes
This commit is contained in:
peter 2002-12-29 14:55:44 +00:00
parent 556435a4e1
commit 24b7def7c2
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/pdecsub.pas
View File

@ -1848,13 +1848,12 @@ const
Add definition aprocdef to the overloaded definitions of aprocsym. If a Add definition aprocdef to the overloaded definitions of aprocsym. If a
forwarddef is found and reused it returns true forwarddef is found and reused it returns true
} }
const
po_comp = po_compatibility_options - [po_iocheck];
var var
hd : tprocdef; hd : tprocdef;
ad,fd : tsym; ad,fd : tsym;
forwardfound : boolean;
i : cardinal; i : cardinal;
forwardfound : boolean;
po_comp : tprocoptions;
begin begin
forwardfound:=false; forwardfound:=false;
@ -1947,7 +1946,11 @@ const
aprocdef.setmangledname(hd.mangledname); aprocdef.setmangledname(hd.mangledname);
end; end;
{ Check procedure options } { Check procedure options, Delphi requires that class is
repeated in the implementation for class methods }
po_comp:=po_compatibility_options-[po_iocheck,po_staticmethod];
if (m_delphi in aktmodeswitches) then
include(po_comp,po_classmethod);
if ((po_comp * hd.procoptions)<>(po_comp * aprocdef.procoptions)) then if ((po_comp * hd.procoptions)<>(po_comp * aprocdef.procoptions)) then
begin begin
MessagePos1(aprocdef.fileinfo,parser_e_header_dont_match_forward, MessagePos1(aprocdef.fileinfo,parser_e_header_dont_match_forward,
@ -2112,7 +2115,12 @@ const
end. end.
{ {
$Log$ $Log$
Revision 1.95 2002-12-27 15:25:14 peter Revision 1.96 2002-12-29 14:55:44 peter
* fix static method check
* don't require class for class methods in the implementation for
non delphi modes
Revision 1.95 2002/12/27 15:25:14 peter
* check procoptions when a forward is found * check procoptions when a forward is found
* exclude some call directives for constructor/destructor * exclude some call directives for constructor/destructor