pascal/synapse
1
0
Fork 0
Code Issues Releases Activity

synachar.pas - FPC - removed Libc dependency

Browse Source 
git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@168 7c85be65-684b-0410-a082-b2ed4fbef004
This commit is contained in:
geby 2012-10-08 10:50:30 +00:00
parent 39620234ba
commit b423f3d8d5
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
synachar.pas
View File

@ -80,10 +80,6 @@ uses
{$IFNDEF MSWINDOWS} {$IFNDEF MSWINDOWS}
{$IFNDEF FPC} {$IFNDEF FPC}
Libc, Libc,
{$ELSE}
{$IFDEF FPC_USE_LIBC}
Libc,
{$ENDIF}
{$ENDIF} {$ENDIF}
{$ELSE} {$ELSE}
Windows, Windows,
@ -1504,12 +1500,9 @@ begin
{$IFNDEF FPC} {$IFNDEF FPC}
Result := GetCPFromID(nl_langinfo(_NL_CTYPE_CODESET_NAME)); Result := GetCPFromID(nl_langinfo(_NL_CTYPE_CODESET_NAME));
{$ELSE} {$ELSE}
{$IFDEF FPC_USE_LIBC}
Result := GetCPFromID(nl_langinfo(_NL_CTYPE_CODESET_NAME));
{$ELSE}
//How to get system codepage without LIBC? //How to get system codepage without LIBC?
Result := UTF_8; Result := UTF_8;
{$ENDIF} { TODO : Waiting for FPC 2.8 solution }
{$ENDIF} {$ENDIF}
end; end;