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

* encoding strings now CONST, minor optimization from mantis 028117

Browse Source 
git-svn-id: trunk@36139 -
This commit is contained in:
marco 2017-05-06 18:47:50 +00:00
parent f985971a62
commit 6ed045a911
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/iconvenc/src/iconvenc.pas
View File

@ -72,7 +72,7 @@ function iconv_close (__cd: iconv_t): cint; cdecl; external libiconvname name ic
var
IconvLibFound: boolean = False;
function Iconvert(s: string; var res: string; FromEncoding, ToEncoding: string): cint;
function Iconvert(s: string; var res: string; const FromEncoding, ToEncoding: string): cint;
function InitIconv(var error: string): boolean;
implementation

2
packages/iconvenc/src/iconvenc_dyn.pas
View File

@ -47,7 +47,7 @@ var
IconvLibFound: boolean = False;
function TryLoadLib(LibName: string; var error: string): boolean; // can be used to load non standard libname
function Iconvert(s: string; var res: string; FromEncoding, ToEncoding: string): cint;
function Iconvert(s: string; var res: string; const FromEncoding, ToEncoding: string): cint;
function InitIconv(var error: string): boolean;
implementation

2
packages/iconvenc/src/iconvert.inc
View File

@ -3,7 +3,7 @@
{$define noerrnoiconv}
{$endif}
function Iconvert(S: string; var Res: string; FromEncoding, ToEncoding: string): cint;
function Iconvert(S: string; var Res: string; const FromEncoding, ToEncoding: string): cint;
var
InLen, OutLen, Offset: size_t;
Src, Dst: pchar;