find_iconv_in_libc_on_debian
authorPascal Packaging Team <pkg-pascal-devel@lists.alioth.debian.org>
Sat, 10 Jun 2017 17:13:48 +0000 (18:13 +0100)
committerAbou Al Montacir <abou.almontacir@sfr.fr>
Sat, 10 Jun 2017 17:13:48 +0000 (18:13 +0100)
===================================================================

Gbp-Pq: Name find_iconv_in_libc_on_debian.patch

fpcsrc/rtl/unix/cwstring.pp

index f6d1d7092586a36a21e471be7e55fb71abf784bc..80cf80f872c98a4845470136767edc02129d7ac9 100644 (file)
@@ -26,9 +26,10 @@ procedure SetCWidestringManager;
 implementation
 
 {$linklib c}
+{$define debian}
 
 // Linux (and maybe glibc platforms in general), have iconv in glibc.
-{$if defined(linux) or defined(solaris)}
+{$if defined(linux) or defined(solaris) or defined(debian)}
   {$define iconv_is_in_libc}
 {$endif}
 
@@ -102,7 +103,7 @@ function mblen(const s: pchar; n: size_t): size_t; cdecl; external clib name 'mb
 
 
 const
-{$if defined(linux)}
+{$if defined(linux) or defined(debian)}
   __LC_CTYPE = 0;
   LC_ALL = 6;
   _NL_CTYPE_CLASS = (__LC_CTYPE shl 16);
@@ -195,7 +196,7 @@ type
   {$endif}
 {$endif}
 
-{$if (not defined(bsd) and not defined(beos)) or defined(iconv_is_in_libc) or (defined(darwin) and not defined(cpupowerpc32))}
+{$if (not defined(bsd) and not defined(beos)) or defined(iconv_is_in_libc) or (defined(darwin) and not defined(cpupowerpc32)) or defined(debian)}
 function iconv_open(__tocode:pchar; __fromcode:pchar):iconv_t;cdecl;external libiconvname name 'iconv_open';
 function iconv(__cd:iconv_t; __inbuf:ppchar; __inbytesleft:psize_t; __outbuf:ppchar; __outbytesleft:psize_t):size_t;cdecl;external libiconvname name 'iconv';
 function iconv_close(__cd:iconv_t):cint;cdecl;external libiconvname name 'iconv_close';