paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 12:30:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

Add Exchange<T> that works like std::exchange in C++.

Browse Source 
(cherry picked from commit 05b7ebd34e)
This commit is contained in:
Rika Ichinose 2023-11-21 04:34:16 +03:00 committed by marcoonthegit
parent 587c1df60e
commit 52d7e9b49f
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/objpas/sysutils/sysutilh.inc
View File

@ -287,6 +287,7 @@ type
{$IFNDEF VER3_0}
generic function IfThen<T>(val:boolean;const iftrue:T; const iffalse:T) :T; inline; overload;
generic function Exchange<T>(var target:T; const newvalue:T) :T; inline;
{$ENDIF}
Var

6
rtl/objpas/sysutils/sysutils.inc
View File

@ -872,6 +872,12 @@ begin
else
Result:=ifFalse;
end;
generic function Exchange<T>(var target:T; const newvalue:T) :T;
begin
Result := target;
target := newvalue;
end;
{$ENDIF}
Function ArrayOfConstToStrArray(Args: array of const) : TUTF8StringDynArray;