paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 14:48:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* New Boolean "SetAndTest" utility function

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2024-01-26 18:00:31 +00:00 committed by FPK
parent 9c9497375e
commit 05d6e20acc
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/aoptutils.pas
View File

@ -39,7 +39,10 @@ unit aoptutils;
function SkipLabels(hp: tai; out hp2: tai): boolean;
{ sets hp2 to hp and returns True if hp is not nil }
function SetAndTest(const hp: tai; out hp2: tai): Boolean;
function SetAndTest(const hp: tai; out hp2: tai): Boolean; inline;
{ Set Store and Result to Condition (useful as an inline assignment in a conditional block) }
function SetAndTest(const Condition: Boolean; out Store: Boolean): Boolean; inline;
implementation
@ -85,10 +88,18 @@ unit aoptutils;
end;
{ sets hp2 to hp and returns True if hp is not nil }
function SetAndTest(const hp: tai; out hp2: tai): Boolean; inline;
function SetAndTest(const hp: tai; out hp2: tai): Boolean;
begin
hp2 := hp;
Result := Assigned(hp);
end;
{ Set Store and Result to Condition (useful as an inline assignment in a conditional block) }
function SetAndTest(const Condition: Boolean; out Store: Boolean): Boolean;
begin
Store := Condition;
Result := Store;
end;
end.