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

* fixed support for anonymous class/object definitions in macpas mode

Browse Source 
git-svn-id: trunk@753 -
This commit is contained in:
Jonas Maebe 2005-07-26 10:11:39 +00:00
parent d767f3e053
commit 0bfe43e7cd
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/pdecl.pas
View File

@ -420,6 +420,13 @@ implementation
consume(_EQUAL);
{ support 'ttype=type word' syntax }
unique:=try_to_consume(_TYPE);
{ MacPas object model is more like Delphi's than like TP's, but }
{ uses the object keyword instead of class }
if (m_mac in aktmodeswitches) and
(token = _OBJECT) then
token := _CLASS;
{ is the type already defined? }
searchsym(typename,sym,srsymtable);
newtype:=nil;

5
compiler/pdecobj.pas
View File

@ -214,11 +214,6 @@ implementation
begin
readobjecttype:=true;
{ MacPas object model is more like Delphi's than like TP's, but }
{ uses the object keyword instead of class }
if (m_mac in aktmodeswitches) and
(token = _OBJECT) then
token := _CLASS;
{ distinguish classes and objects }
case token of
_OBJECT: