paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 06:55:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 54845 #a3a7c54e1e from trunk:

Browse Source 
LazUtf8: fix compilation for WinCE. Issue #0031788.
........

git-svn-id: branches/fixes_1_8@54869 -
This commit is contained in:
maxim 2017-05-10 22:47:41 +00:00
parent d6b22af510
commit f6ee624914
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazutils/lazutf8.pas
View File

@ -352,7 +352,7 @@ end;
function GetEnvironmentVariableCountUTF8: Integer;
begin
{$IF defined(FPC_RTL_UNICODE) or not defined(Windows)}
{$IF defined(FPC_RTL_UNICODE) or not defined(MSWindows)} //also WinCE, issue #0031788
Result:=SysUtils.GetEnvironmentVariableCount;
{$ELSE}
Result:=GetGetEnvironmentVariableCountWide;
@ -364,7 +364,7 @@ begin
{$IFDEF FPC_RTL_UNICODE}
Result:=UTF16ToUTF8(SysUtils.GetEnvironmentString(Index));
{$ELSE}
{$IFDEF Windows}
{$IFDEF MSWindows} //not for WinCE, issue #0031788
Result:=UTF16ToUTF8(GetEnvironmentStringWide(Index));
{$ELSE}
// by default the environment is in console encoding

4
components/lazutils/winlazutf8.inc
View File

@ -222,6 +222,7 @@ begin
end;
end;
{$IFNDEF WINCE}
function GetGetEnvironmentVariableCountWide: integer;
var
hp,p : PWideChar;
@ -238,6 +239,7 @@ begin
FreeEnvironmentStringsW(p);
end;
function GetEnvironmentStringWide(Index: Integer): UnicodeString;
var
hp,p : PWideChar;
@ -255,6 +257,7 @@ begin
Result:=hp;
FreeEnvironmentStringsW(p);
end;
{$ENDIF WINCE}
function GetEnvironmentVariableWide(const EnvVar: string): UnicodeString;
{$IF FPC_FULLVERSION>=30000}
@ -287,6 +290,7 @@ begin
end;
{$ENDIF}
//*************** END WideString impementations
{$ifdef WinCE}