paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 14:36:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

wince: fix compilation from Henry Vermaak

Browse Source 
git-svn-id: trunk@17034 -
This commit is contained in:
paul 2008-10-17 16:45:32 +00:00
parent f3bb14bdb6
commit a50363f995
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/fileutil.inc
View File

@ -83,13 +83,13 @@ begin
end;
function UTF8ToConsole(const s: string): string;
{$ifdef Windows}
{$ifdef MSWindows}
var
Dst: PChar;
{$endif}
begin
Result := UTF8ToSys(s);
{$ifdef Windows}
{$ifdef MSWindows}
Dst := AllocMem((Length(Result) + 1) * SizeOf(Char));
if CharToOEM(PChar(Result), Dst) then
Result := StrPas(Dst);