From 5ba261921d3ac00ebf2f62e3407546162fbecd26 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 17 Jun 2013 13:32:38 +0000
Subject: [PATCH] codetools: inlining

git-svn-id: trunk@41744 -
---
 components/codetools/fileprocs.pas | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/components/codetools/fileprocs.pas b/components/codetools/fileprocs.pas
index ac6be35171..1366d16edb 100644
--- a/components/codetools/fileprocs.pas
+++ b/components/codetools/fileprocs.pas
@@ -215,9 +215,9 @@ function SysToUTF8(const s: string): string; inline;// as AnsiToUTF8 but more in
 function UTF8CharacterLength(p: PChar): integer; inline;
 
 // environment
-function ParamStrUTF8(Param: Integer): string;
-function GetEnvironmentStringUTF8(Index : Integer): String;
-function GetEnvironmentVariableUTF8(const EnvVar: String): String;
+function ParamStrUTF8(Param: Integer): string; inline;
+function GetEnvironmentStringUTF8(Index : Integer): String; inline;
+function GetEnvironmentVariableUTF8(const EnvVar: String): String; inline;
 
 procedure InvalidateFileStateCache(const Filename: string = ''); inline;
 
@@ -397,17 +397,17 @@ end;
 
 function ParamStrUTF8(Param: Integer): string;
 begin
-  Result:=SysToUTF8(ObjPas.ParamStr(Param));
+  Result:=LazUTF8.ParamStrUTF8(Param);
 end;
 
 function GetEnvironmentStringUTF8(Index: Integer): String;
 begin
-  Result:=SysToUTF8(SysUtils.GetEnvironmentString(Index));
+  Result:=LazUTF8.GetEnvironmentStringUTF8(Index);
 end;
 
 function GetEnvironmentVariableUTF8(const EnvVar: String): String;
 begin
-  Result:=SysToUTF8(SysUtils.GetEnvironmentVariable(UTF8ToSys(EnvVar)));
+  Result:=LazUTF8.GetEnvironmentVariableUTF8(EnvVar);
 end;
 
 function CompareFilenames(const Filename1, Filename2: string): integer;