paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 17:59:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed fpc_tcon_shortint_array_from_string() in case the length of the array

Browse Source 
to initialize was odd

git-svn-id: branches/jvmbackend@20210 -
This commit is contained in:
Jonas Maebe 2012-02-01 18:03:58 +00:00
parent 0dfdae3132
commit 8b4b081ed5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/java/jtcon.inc
View File

@ -27,7 +27,7 @@ procedure fpc_tcon_shortint_array_from_string(const s: unicodestring; var arr: a
arr[startindex+i*2+1]:=shortint(ord(c));
end;
if odd(len) then
arr[startindex+len-1]:=ord(s[len div 2]) shr 8;
arr[startindex+len-1]:=ord(s[len div 2 + 1]) shr 8;
end;