paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-08 13:19:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: add IfThen compiler intrinsic. Issue #29555

Browse Source 
added to FPC in r33036 #2e2567a84d.

git-svn-id: trunk@51463 -
This commit is contained in:
ondrej 2016-01-31 17:03:50 +00:00
parent 207682336d
commit 2022201d06
3 changed files with 8 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

@ -9527,6 +9527,11 @@ begin
if ParamList.Count<>1 then exit;
Result:=ParamList.Items[0];
end
else if (CompareIdentifiers(IdentPos,'IFTHEN')=0) then
begin
if ParamList.Count<>3 then exit;
Result:=ParamList.Items[1]; // ifthen sets the result based on the second parameter
end
else if (CompareIdentifiers(IdentPos,'LOW')=0)
or (CompareIdentifiers(IdentPos,'HIGH')=0) then
begin

2
components/codetools/identcompletiontool.pas
View File

@ -1398,6 +1398,7 @@ begin
AddCompilerProcedure('Finalize','var X');
AddCompilerFunction('get_frame','','Pointer');
AddCompilerFunction('High','Arg:TypeOrVariable','Ordinal');
AddCompilerFunction('IfThen','Condition:Boolean;ThenExpr,ElseExpr:T','T');
AddCompilerProcedure('Inc','var X:Ordinal;N:Integer=1');
AddCompilerProcedure('Include','var S:Set;X:Ordinal');
AddCompilerProcedure('Initialize','var X');
@ -2940,6 +2941,7 @@ var
AddCompilerProc('Finalize','var X');
AddCompilerProc('get_frame','','Pointer');
AddCompilerProc('High','Arg:TypeOrVariable','Ordinal');
AddCompilerProc('IfThen','Condition:Boolean;ThenExpr,ElseExpr:T','T');
AddCompilerProc('Inc','var X:Ordinal;N:Integer=1');
AddCompilerProc('Include','var S:Set;X:Ordinal');
AddCompilerProc('Initialize','var X');

1
components/codetools/keywordfunclists.pas
View File

@ -1246,6 +1246,7 @@ begin
Add('INC' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('DEC' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('DEFAULT' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('IFTHEN' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('INITIALIZE' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('FINALIZE' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('COPY' ,{$ifdef FPC}@{$endif}AllwaysTrue);