|
@@ -1484,7 +1484,14 @@ begin
|
|
If (Result='') Then
|
|
If (Result='') Then
|
|
Result:=GetEnvironmentVariable('TMPDIR');
|
|
Result:=GetEnvironmentVariable('TMPDIR');
|
|
if (Result='') then
|
|
if (Result='') then
|
|
- Result:='/tmp/' // fallback.
|
|
|
|
|
|
+ begin
|
|
|
|
+ // fallback.
|
|
|
|
+ {$ifdef android}
|
|
|
|
+ Result:='/data/local/tmp/';
|
|
|
|
+ {$else}
|
|
|
|
+ Result:='/tmp/';
|
|
|
|
+ {$endif android}
|
|
|
|
+ end;
|
|
end;
|
|
end;
|
|
if (Result<>'') then
|
|
if (Result<>'') then
|
|
Result:=IncludeTrailingPathDelimiter(Result);
|
|
Result:=IncludeTrailingPathDelimiter(Result);
|