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

rtl: possible fix compilation of charset.pp on 64 bit

Browse Source 
git-svn-id: trunk@23729 -
This commit is contained in:
paul 2013-03-08 13:50:21 +00:00
parent bb735aa7e5
commit fc0bab5844
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
rtl/inc/charset.pp
View File

@ -68,12 +68,12 @@ unit charset;
function getunicode(c : char;p : punicodemap) : tunicodechar;inline; function getunicode(c : char;p : punicodemap) : tunicodechar;inline;
function getunicode( function getunicode(
AAnsiStr : pansichar; AAnsiStr : pansichar;
AAnsiLen : SizeInt; AAnsiLen : LongInt;
AMap : punicodemap; AMap : punicodemap;
ADest : tunicodestring ADest : tunicodestring
) : SizeInt; ) : LongInt;
function getascii(c : tunicodechar;p : punicodemap) : string; function getascii(c : tunicodechar;p : punicodemap) : string;
function getascii(c : tunicodechar;p : punicodemap; ABuffer : PAnsiChar; ABufferLen : SizeInt) : SizeInt; function getascii(c : tunicodechar;p : punicodemap; ABuffer : PAnsiChar; ABufferLen : LongInt) : LongInt;
implementation implementation
@ -125,7 +125,7 @@ unit charset;
function find( function find(
const c : tunicodechar; const c : tunicodechar;
const AData : preversecharmapping; const AData : preversecharmapping;
const ALen : SizeInt const ALen : LongInt
) : preversecharmapping;overload; ) : preversecharmapping;overload;
var var
l, h, m : longint; l, h, m : longint;
@ -159,12 +159,12 @@ unit charset;
function RemoveDuplicates( function RemoveDuplicates(
const AData : preversecharmapping; const AData : preversecharmapping;
const ALen : SizeInt; const ALen : LongInt;
out AResultLen : SizeInt out AResultLen : LongInt
) : preversecharmapping; ) : preversecharmapping;
var var
r0, r, p, t : preversecharmapping; r0, r, p, t : preversecharmapping;
i, c, actualCount : SizeInt; i, c, actualCount : LongInt;
begin begin
c:=ALen; c:=ALen;
GetMem(r0,c*SizeOf(treversecharmapping)); GetMem(r0,c*SizeOf(treversecharmapping));
@ -199,8 +199,8 @@ unit charset;
function buildreversemap( function buildreversemap(
const AMapping : punicodecharmapping; const AMapping : punicodecharmapping;
const ALen : SizeInt; const ALen : LongInt;
out AResultLen : SizeInt out AResultLen : LongInt
) : preversecharmapping; ) : preversecharmapping;
var var
r0, r, t : preversecharmapping; r0, r, t : preversecharmapping;
@ -250,7 +250,7 @@ unit charset;
Result:=r0; Result:=r0;
end; end;
procedure inititems(const p : punicodecharmapping; const ALen : SizeInt); procedure inititems(const p : punicodecharmapping; const ALen : LongInt);
const const
INIT_ITEM : tunicodecharmapping = (unicode:0; flag:umf_unused; reserved:0); INIT_ITEM : tunicodecharmapping = (unicode:0; flag:umf_unused; reserved:0);
var var
@ -468,10 +468,10 @@ unit charset;
function getunicode( function getunicode(
AAnsiStr : pansichar; AAnsiStr : pansichar;
AAnsiLen : SizeInt; AAnsiLen : LongInt;
AMap : punicodemap; AMap : punicodemap;
ADest : tunicodestring ADest : tunicodestring
) : SizeInt; ) : LongInt;
var var
i, c, k, destLen : longint; i, c, k, destLen : longint;
@ -562,7 +562,7 @@ unit charset;
Result:=UNKNOW_CHAR_A; Result:=UNKNOW_CHAR_A;
end; end;
function getascii(c : tunicodechar;p : punicodemap; ABuffer : PAnsiChar; ABufferLen : SizeInt) : SizeInt; function getascii(c : tunicodechar;p : punicodemap; ABuffer : PAnsiChar; ABufferLen : LongInt) : LongInt;
var var
rm : preversecharmapping; rm : preversecharmapping;
begin begin