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

* fixed endianess bug in fpc_val_int64_shortstr() (webtbf/tw2128)

Browse Source
This commit is contained in:
Jonas Maebe 2004-11-02 22:38:58 +00:00
parent 135be09271
commit d9267aafdf
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/inc/sstrings.inc
View File

@ -663,8 +663,13 @@ end;
{ high(int64) produces 0 in version 1.0 (JM) } { high(int64) produces 0 in version 1.0 (JM) }
with qwordrec(maxint64) do with qwordrec(maxint64) do
begin begin
{$ifdef ENDIAN_LITTLE}
l1 := longint($ffffffff); l1 := longint($ffffffff);
l2 := $7fffffff; l2 := $7fffffff;
{$else ENDIAN_LITTLE}
l1 := $7fffffff;
l2 := longint($ffffffff);
{$endif ENDIAN_LITTLE}
end; end;
with qwordrec(maxqword) do with qwordrec(maxqword) do
begin begin
@ -862,7 +867,10 @@ end;
{ {
$Log$ $Log$
Revision 1.30 2004-05-01 23:55:18 peter Revision 1.31 2004-11-02 22:38:58 jonas
* fixed endianess bug in fpc_val_int64_shortstr() (webtbf/tw2128)
Revision 1.30 2004/05/01 23:55:18 peter
* replace strlenint with sizeint * replace strlenint with sizeint
Revision 1.29 2004/05/01 20:52:50 peter Revision 1.29 2004/05/01 20:52:50 peter