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

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

Browse Source
This commit is contained in:
Rika Ichinose 2023-11-21 04:34:16 +03:00
parent d287788b57
commit 05b7ebd34e
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

@ -297,6 +297,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

@ -878,6 +878,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;