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

* don't allow interface without m_class mode

Browse Source
This commit is contained in:
peter 2002-10-02 18:20:20 +00:00
parent 4510d75277
commit 56e20d72f8
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/pdecobj.pas
View File

@ -674,6 +674,10 @@ implementation
end; end;
_INTERFACE: _INTERFACE:
begin begin
{ need extra check here since interface is a keyword
in all pascal modes }
if not(m_class in aktmodeswitches) then
Message(parser_f_need_objfpc_or_delphi_mode);
if aktinterfacetype=it_interfacecom then if aktinterfacetype=it_interfacecom then
classtype:=odt_interfacecom classtype:=odt_interfacecom
else {it_interfacecorba} else {it_interfacecorba}
@ -1152,7 +1156,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.53 2002-09-27 21:13:28 carl Revision 1.54 2002-10-02 18:20:20 peter
* don't allow interface without m_class mode
Revision 1.53 2002/09/27 21:13:28 carl
* low-highval always checked if limit ober 2GB is reached (to avoid overflow) * low-highval always checked if limit ober 2GB is reached (to avoid overflow)
Revision 1.52 2002/09/16 14:11:13 peter Revision 1.52 2002/09/16 14:11:13 peter