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

* Parse management operators. Each management operator is special kind of operator without result.

Browse Source 
git-svn-id: trunk@35442 -
This commit is contained in:
maciej-izak 2017-02-18 19:12:48 +00:00
parent 168e59837a
commit 520bb31fa6
1 changed files with 62 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
compiler/pdecsub.pas
View File

@ -596,6 +596,10 @@ implementation
_EXPLICIT:optoken:=_OP_EXPLICIT;
_INC:optoken:=_OP_INC;
_DEC:optoken:=_OP_DEC;
_INITIALIZE:optoken:=_OP_INITIALIZE;
_FINALIZE:optoken:=_OP_FINALIZE;
_ADDREF:optoken:=_OP_ADDREF;
_COPY:optoken:=_OP_COPY;
else
if (m_delphi in current_settings.modeswitches) then
case lastidtoken of
@ -1436,6 +1440,33 @@ implementation
pd.resultname:=stringdup(orgpattern);
consume(_ID);
end;
{ operators without result (management operators) }
if optoken in [_OP_INITIALIZE, _OP_FINALIZE, _OP_ADDREF, _OP_COPY] then
begin
{ single var parameter to point the record }
if (optoken in [_OP_INITIALIZE, _OP_FINALIZE, _OP_ADDREF]) and
(
(pd.parast.SymList.Count<>1) or
(tparavarsym(pd.parast.SymList[0]).vardef<>pd.struct) or
(tparavarsym(pd.parast.SymList[0]).varspez<>vs_var)
) then
Message(parser_e_overload_impossible)
{ constref (source) and var (dest) parameter to point the records }
else if (optoken=_OP_COPY) and
(
(pd.parast.SymList.Count<>2) or
(tparavarsym(pd.parast.SymList[0]).vardef<>pd.struct) or
(tparavarsym(pd.parast.SymList[0]).varspez<>vs_constref) or
(tparavarsym(pd.parast.SymList[1]).vardef<>pd.struct) or
(tparavarsym(pd.parast.SymList[1]).varspez<>vs_var)
) then
Message(parser_e_overload_impossible);
trecordsymtable(pd.procsym.Owner).includemanagementoperator(
token2managementoperator(optoken));
pd.returndef:=voidtype
end
else
if not try_to_consume(_COLON) then
begin
consume(_COLON);