diff options
author | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-09-01 20:32:46 +0000 |
---|---|---|
committer | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-09-01 20:32:46 +0000 |
commit | 8d6c0d0070c456c9fdb59236d1957f2983f1633b (patch) | |
tree | 03f0a82a8b69ca5ab1e2691d4c6eead0d8bc688f /rtl/objpas | |
parent | 54948ffa4008ca9b56900d16ac3655ed0dde699e (diff) | |
download | fpc-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.inc | 16 |
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} |