From 08521ea24818c1b31dc6be9d72cefa211f630751 Mon Sep 17 00:00:00 2001 From: mattias Date: Thu, 29 Jul 2010 22:17:42 +0000 Subject: [PATCH] codetools: runtool: utf8tosys git-svn-id: trunk@26908 - --- components/codetools/definetemplates.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/components/codetools/definetemplates.pas b/components/codetools/definetemplates.pas index c19d14b322..60491c76db 100644 --- a/components/codetools/definetemplates.pas +++ b/components/codetools/definetemplates.pas @@ -1183,7 +1183,7 @@ begin if Params<>'' then CmdLine:=CmdLine+' '+Params; //DebugLn(['RunTool ',Params]); - TheProcess.CommandLine := CmdLine; + TheProcess.CommandLine := UTF8ToSys(CmdLine); TheProcess.Options:= [poUsePipes, poStdErrToOutPut]; TheProcess.ShowWindow := swoHide; TheProcess.CurrentDirectory:=WorkingDirectory; @@ -1467,7 +1467,7 @@ begin // create empty file try - fs:=TFileStream.Create(TestFilename,fmCreate); + fs:=TFileStream.Create(UTF8ToSys(TestFilename),fmCreate); fs.Free; except debugln(['RunFPCVerbose unable to create test file '+TestFilename]);