summaryrefslogtreecommitdiff
path: root/rtl/objpas
diff options
context:
space:
mode:
authorflorian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2>2020-09-01 20:32:46 +0000
committerflorian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2>2020-09-01 20:32:46 +0000
commit8d6c0d0070c456c9fdb59236d1957f2983f1633b (patch)
tree03f0a82a8b69ca5ab1e2691d4c6eead0d8bc688f /rtl/objpas
parent54948ffa4008ca9b56900d16ac3655ed0dde699e (diff)
downloadfpc-8d6c0d0070c456c9fdb59236d1957f2983f1633b.tar.gz
* cosmetics
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@46744 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'rtl/objpas')
-rw-r--r--rtl/objpas/sysutils/sysutils.inc16
1 files changed, 8 insertions, 8 deletions
diff --git a/rtl/objpas/sysutils/sysutils.inc b/rtl/objpas/sysutils/sysutils.inc
index 627f430056..7855753b97 100644
--- a/rtl/objpas/sysutils/sysutils.inc
+++ b/rtl/objpas/sysutils/sysutils.inc
@@ -39,7 +39,7 @@
{ variant error codes }
{$i varerror.inc}
-
+
{ Type helpers}
{$i syshelp.inc}
@@ -144,7 +144,7 @@ end;
{$i sysuni.inc}
{$i sysencoding.inc}
{$endif FPC_HAS_UNICODESTRING}
-
+
{ threading stuff }
{$i sysuthrd.inc}
@@ -161,7 +161,7 @@ end;
end;
procedure FreeMemAndNil(var p);
-
+
var
temp:Pointer;
begin
@@ -169,7 +169,7 @@ end;
Pointer(P):=nil;
FreeMem(temp);
end;
-
+
{ Interfaces support }
{$i sysuintf.inc}
@@ -300,7 +300,7 @@ Procedure CatchUnhandledException (Obj : TObject; Addr: CodePointer; FrameCount:
Var
i : longint;
hstdout : ^text;
-
+
begin
if WriteErrorsToStdErr then
hstdout:=@stderr
@@ -802,7 +802,7 @@ begin
end;
function ExecuteProcess(Const Path: UnicodeString; Const ComLine: Array of UnicodeString;Flags:TExecuteFlags=[]):integer;
-var
+var
ComLineA : array of RawByteString;
I : Integer;
begin
@@ -818,9 +818,9 @@ end;
{$IFNDEF VER3_0}
generic function IfThen<T>(val:boolean;const iftrue:T; const iffalse:T) :T; inline; overload;
begin
- if val then
+ if val then
Result := ifTrue
else
- Result:=ifFalse;
+ Result:=ifFalse;
end;
{$ENDIF}