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

* fix po_comp setting for fpc mode

Browse Source
This commit is contained in:
peter 2003-04-23 13:12:26 +00:00
parent f272c18e94
commit 74756e4e85
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/pdecsub.pas
View File

@ -1960,11 +1960,11 @@ const
{ Check procedure options, Delphi requires that class is
repeated in the implementation for class methods }
po_comp:=[];
if (m_fpc in aktmodeswitches) then
po_comp:=[po_varargs,po_methodpointer,po_containsself,po_interrupt]
else if (m_delphi in aktmodeswitches) then
po_comp:=[po_varargs,po_methodpointer,po_containsself,po_interrupt,po_clearstack]
else
po_comp:=[po_classmethod,po_methodpointer,po_containsself];
if ((po_comp * hd.procoptions)<>(po_comp * aprocdef.procoptions)) then
begin
MessagePos1(aprocdef.fileinfo,parser_e_header_dont_match_forward,
@ -2129,7 +2129,10 @@ const
end.
{
$Log$
Revision 1.113 2003-04-23 10:12:51 peter
Revision 1.114 2003-04-23 13:12:26 peter
* fix po_comp setting for fpc mode
Revision 1.113 2003/04/23 10:12:51 peter
* don't check po_varargs for delphi
Revision 1.112 2003/04/22 13:47:08 peter