paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 05:10:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix import in wince system unit, patch by Gennadiy, resolves #22131

Browse Source 
git-svn-id: trunk@21414 -
This commit is contained in:
florian 2012-05-28 14:29:55 +00:00
parent ff2469f533
commit 10023597d2
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/wince/system.pp
View File

@ -311,8 +311,6 @@ function MultiByteToWideChar(CodePage:UINT; dwFlags:DWORD; lpMultiByteStr:PChar;
function WideCharToMultiByte(CodePage:UINT; dwFlags:DWORD; lpWideCharStr:PWideChar; cchWideChar:longint; lpMultiByteStr:PChar;cchMultiByte:longint; lpDefaultChar:PChar; lpUsedDefaultChar:pointer):longint;
cdecl; external 'coredll' name 'WideCharToMultiByte';
function GetACP:UINT; cdecl; external 'coredll' name 'GetACP';
function GetConsoleCP:UINT; cdecl; external 'coredll' name 'GetConsoleCP';
function GetConsoleOutputCP:UINT; cdecl; external 'coredll' name 'GetConsoleOutputCP';
{ Returns number of characters stored to WideBuf, including null-terminator. }
function AnsiToWideBuf(AnsiBuf: PChar; AnsiBufLen: longint; WideBuf: PWideChar; WideBufLen: longint): longint;
@ -1591,8 +1589,8 @@ function WinCEGetStandardCodePage(const stdcp: TStandardCodePageEnum): TSystemCo
begin
case stdcp of
scpAnsi: Result := GetACP;
scpConsoleInput: Result := GetConsoleCP;
scpConsoleOutput: Result := GetConsoleOutputCP;
scpConsoleInput: Result := GetACP;
scpConsoleOutput: Result := GetACP;
end;
end;