paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-26 20:40:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: parser: Compatibility with FPC management operators: rename Copy to AddRef and Clone to Copy

Browse Source 
git-svn-id: trunk@54196 -
This commit is contained in:
hnb 2017-02-19 16:43:30 +00:00
parent d45b1fe5cd
commit 11563b2959
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/pascalparsertool.pas
View File

@ -332,7 +332,7 @@ begin
if IsOperator then begin if IsOperator then begin
AtomIsCustomOperator(true,true,true); AtomIsCustomOperator(true,true,true);
IsFunction:=not (UpAtomIs('INITIALIZE') or UpAtomIs('FINALIZE') IsFunction:=not (UpAtomIs('INITIALIZE') or UpAtomIs('FINALIZE')
or UpAtomIs('COPY') or UpAtomIs('CLONE')); or UpAtomIs('ADDREF') or UpAtomIs('COPY'));
end else end else
AtomIsIdentifierSaveE; AtomIsIdentifierSaveE;
end; end;