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
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 FPC}
Libc,
{$ELSE}
{$IFDEF FPC_USE_LIBC}
Libc,
{$ENDIF}
{$ENDIF}
{$ELSE}
Windows,
@@ -1504,12 +1500,9 @@ begin
{$IFNDEF FPC}
Result := GetCPFromID(nl_langinfo(_NL_CTYPE_CODESET_NAME));
{$ELSE}
{$IFDEF FPC_USE_LIBC}
Result := GetCPFromID(nl_langinfo(_NL_CTYPE_CODESET_NAME));
{$ELSE}
//How to get system codepage without LIBC?
Result := UTF_8;
{$ENDIF}
{ TODO : Waiting for FPC 2.8 solution }
{$ENDIF}
end;