paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 18:10:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: added predefined fpc identifier get_frame

Browse Source 
git-svn-id: trunk@54859 -
This commit is contained in:
mattias 2017-05-10 15:48:45 +00:00
parent 9c8fc2ffde
commit 878dfd23f9
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/finddeclarationtool.pas
View File

@ -10258,6 +10258,11 @@ begin
Result:=ParamList.Items[0]; // Copy sets the result based on the first
// parameter (can be any kind of string or array)
end
else if (CompareIdentifiers(IdentPos,'GET_FRAME')=0) then
begin
if ParamList.Count<>1 then exit;
Result.Desc:=xtPointer;
end
else if (CompareIdentifiers(IdentPos,'OBJCSELECTOR')=0) then
begin
// return type is System.SEL

1
components/codetools/keywordfunclists.pas
View File

@ -1690,6 +1690,7 @@ begin
Add('EXTENDED' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('FALSE' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('FILE' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('GET_FRAME' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('INT64' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('LENGTH' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('LONGBOOL' ,{$ifdef FPC}@{$endif}AllwaysTrue);