mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-12 09:56:12 +02:00
codetools: ExtractProcHead extract operator result name
git-svn-id: trunk@28528 -
This commit is contained in:
parent
80d936c033
commit
82f7e95ca0
@ -463,6 +463,11 @@ begin
|
|||||||
if (CurPos.Flag=cafRoundBracketOpen) then
|
if (CurPos.Flag=cafRoundBracketOpen) then
|
||||||
ReadParamList(false,true,Attr);
|
ReadParamList(false,true,Attr);
|
||||||
ExtractProcHeadPos:=phepParamList;
|
ExtractProcHeadPos:=phepParamList;
|
||||||
|
if IsOperator and (CurPos.Flag=cafWord) then begin
|
||||||
|
// read operator result name
|
||||||
|
ExtractNextAtom([phpWithParameterNames,phpWithResultType]*Attr
|
||||||
|
=[phpWithParameterNames,phpWithResultType],Attr);
|
||||||
|
end;
|
||||||
// read result type
|
// read result type
|
||||||
if (CurPos.Flag=cafColon) then begin
|
if (CurPos.Flag=cafColon) then begin
|
||||||
ExtractNextAtom(phpWithResultType in Attr,Attr);
|
ExtractNextAtom(phpWithResultType in Attr,Attr);
|
||||||
|
@ -28,7 +28,9 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
var
|
var
|
||||||
Form1: TForm1;
|
Form1: TForm1;
|
||||||
|
|
||||||
|
operator + (dp1: TPoint; dp2: TPoint) dps: TPoint;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user