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

* remove outdated defines, resolves #40897

Browse Source
This commit is contained in:
florian 2024-08-21 23:07:55 +02:00
parent 7ca0ddc70e
commit 2f0cd77d86
2 changed files with 11 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -288,10 +288,8 @@ type
procedure AddTerminateProc(TermProc: TTerminateProc);
function CallTerminateProcs: Boolean;
{$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
OnShowException : Procedure (Msg : ShortString);

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

@ -899,7 +899,6 @@ end;
// generic ifthen..
{$IFNDEF VER3_0}
generic function IfThen<T>(val:boolean;const iftrue:T; const iffalse:T) :T; inline; overload;
begin
if val then
@ -913,7 +912,7 @@ begin
Result := target;
target := newvalue;
end;
{$ENDIF}
Function ArrayOfConstToStrArray(const Args: array of const) : TUTF8StringDynArray;