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

Merged revisions 753 via svnmerge from

Browse Source 
/trunk

git-svn-id: branches/fixes_2_0@754 -
This commit is contained in:
Jonas Maebe 2005-07-26 10:14:13 +00:00
parent f3968e7626
commit 9866f19226
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

@ -421,6 +421,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: