IDE: test file for compiler, expand temp directory

git-svn-id: trunk@43431 -
This commit is contained in:
mattias 2013-11-12 21:02:25 +00:00
parent a18cd3e026
commit 2aa15b32f5

View File

@ -201,7 +201,7 @@ function CreateCompilerTestPascalFilename: string;
begin
Result:=AppendPathDelim(GetPrimaryConfigPath)+'compilertest.pas';
if CreateFile(Result) then exit;
Result:=AppendPathDelim(GetTempDir)+'compilertest.pas';
Result:=AppendPathDelim(ExpandFileNameUTF8(GetTempDir))+'compilertest.pas';
if CreateFile(Result) then exit;
Debugln('unable to create temporay file ',Result);
Result:='';