paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 18:10:24 +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} {$IFNDEF VER3_0}
generic function IfThen<T>(val:boolean;const iftrue:T; const iffalse:T) :T; inline; overload; 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} {$ENDIF}
Var Var

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

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