mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-11 09:06:14 +02:00
* fixed support for anonymous class/object definitions in macpas mode
git-svn-id: trunk@753 -
This commit is contained in:
parent
d767f3e053
commit
0bfe43e7cd
@ -420,6 +420,13 @@ implementation
|
|||||||
consume(_EQUAL);
|
consume(_EQUAL);
|
||||||
{ support 'ttype=type word' syntax }
|
{ support 'ttype=type word' syntax }
|
||||||
unique:=try_to_consume(_TYPE);
|
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? }
|
{ is the type already defined? }
|
||||||
searchsym(typename,sym,srsymtable);
|
searchsym(typename,sym,srsymtable);
|
||||||
newtype:=nil;
|
newtype:=nil;
|
||||||
|
@ -214,11 +214,6 @@ implementation
|
|||||||
|
|
||||||
begin
|
begin
|
||||||
readobjecttype:=true;
|
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 }
|
{ distinguish classes and objects }
|
||||||
case token of
|
case token of
|
||||||
_OBJECT:
|
_OBJECT:
|
||||||
|
Loading…
Reference in New Issue
Block a user