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

* object_dec can now return tobjectdef instead of tdef

Browse Source 
git-svn-id: trunk@12047 -
This commit is contained in:
peter 2008-11-10 21:04:08 +00:00
parent af437d5beb
commit e5e3462161
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/pdecobj.pas
View File

@ -30,7 +30,7 @@ interface
globtype,symconst,symtype,symdef;
{ parses a object declaration }
function object_dec(objecttype:tobjecttyp;const n:tidstring;genericdef:tstoreddef;genericlist:TFPObjectList;fd : tobjectdef) : tdef;
function object_dec(objecttype:tobjecttyp;const n:tidstring;genericdef:tstoreddef;genericlist:TFPObjectList;fd : tobjectdef) : tobjectdef;
implementation
@ -632,9 +632,7 @@ implementation
end;
function object_dec(objecttype:tobjecttyp;const n:tidstring;genericdef:tstoreddef;genericlist:TFPObjectList;fd : tobjectdef) : tdef;
label
myexit;
function object_dec(objecttype:tobjecttyp;const n:tidstring;genericdef:tstoreddef;genericlist:TFPObjectList;fd : tobjectdef) : tobjectdef;
var
old_object_option : tsymoptions;
old_current_objectdef : tobjectdef;
@ -731,7 +729,6 @@ implementation
{ return defined objectdef }
result:=current_objectdef;
myexit:
{ restore old state }
current_objectdef:=old_current_objectdef;
current_object_option:=old_object_option;