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

codetools: parse specialize in param type

Browse Source 
git-svn-id: branches/fixes_1_8@56294 -
This commit is contained in:
mattias 2017-11-06 10:13:43 +00:00
parent 6beebfef9c
commit 86532d38e7
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/codetools/pascalparsertool.pas
View File

@ -1559,7 +1559,13 @@ function TPascalParserTool.ReadParamType(ExceptionOnError, Extract: boolean;
const Attr: TProcHeadAttributes): boolean;
// after reading, CurPos is the atom after the type
// Examples:
// Domain: LongInt location 'd0' (only m68k, powerpc)
// integer
// array of integer
// array of const
// file
// file of integer
// LongInt location 'd0' (only m68k, powerpc)
// univ longint (only macpas)
var
copying: boolean;
IsArrayType: Boolean;
@ -1616,6 +1622,9 @@ begin
end else begin
NeedIdentifier:=false;
end;
end else if UpAtomIs('SPECIALIZE') then begin
ReadSpecialize(phpCreateNodes in Attr);
NeedIdentifier:=false;
end;
if NeedIdentifier then begin
if not AtomIsIdentifier then begin