paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 15:39:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* replaced manual array copy loops with calls to JLSystem.arraycopy(); still

Browse Source 
separate helper per array element type because there is no generic array
    type, and we need to get the length of the arrays

git-svn-id: branches/jvmbackend@18501 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:05:07 +00:00
parent 622107c605
commit 49de6346ce
1 changed files with 65 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

89
rtl/java/system.pp
View File

@ -283,73 +283,113 @@ function min(a,b : longint) : longint;
{ also for booleans }
procedure fpc_copy_jbyte_array(src, dst: TJByteArray);
var
i: longint;
srclen, dstlen: jint;
begin
for i:=0 to min(high(src),high(dst)) do
dst[i]:=src[i];
srclen:=length(src);
dstlen:=length(dst);
{ causes exception in JLSystem.arraycopy }
if (srclen=0) or
(dstlen=0) then
exit;
JLSystem.arraycopy(JLObject(src),0,JLObject(dst),0,min(srclen,dstlen));
end;
procedure fpc_copy_jshort_array(src, dst: TJShortArray);
var
i: longint;
srclen, dstlen: jint;
begin
for i:=0 to min(high(src),high(dst)) do
dst[i]:=src[i];
srclen:=length(src);
dstlen:=length(dst);
{ causes exception in JLSystem.arraycopy }
if (srclen=0) or
(dstlen=0) then
exit;
JLSystem.arraycopy(JLObject(src),0,JLObject(dst),0,min(srclen,dstlen));
end;
procedure fpc_copy_jint_array(src, dst: TJIntArray);
var
i: longint;
srclen, dstlen: jint;
begin
for i:=0 to min(high(src),high(dst)) do
dst[i]:=src[i];
srclen:=length(src);
dstlen:=length(dst);
{ causes exception in JLSystem.arraycopy }
if (srclen=0) or
(dstlen=0) then
exit;
JLSystem.arraycopy(JLObject(src),0,JLObject(dst),0,min(srclen,dstlen));
end;
procedure fpc_copy_jlong_array(src, dst: TJLongArray);
var
i: longint;
srclen, dstlen: jint;
begin
for i:=0 to min(high(src),high(dst)) do
dst[i]:=src[i];
srclen:=length(src);
dstlen:=length(dst);
{ causes exception in JLSystem.arraycopy }
if (srclen=0) or
(dstlen=0) then
exit;
JLSystem.arraycopy(JLObject(src),0,JLObject(dst),0,min(srclen,dstlen));
end;
procedure fpc_copy_jchar_array(src, dst: TJCharArray);
var
i: longint;
srclen, dstlen: jint;
begin
for i:=0 to min(high(src),high(dst)) do
dst[i]:=src[i];
srclen:=length(src);
dstlen:=length(dst);
{ causes exception in JLSystem.arraycopy }
if (srclen=0) or
(dstlen=0) then
exit;
JLSystem.arraycopy(JLObject(src),0,JLObject(dst),0,min(srclen,dstlen));
end;
procedure fpc_copy_jfloat_array(src, dst: TJFloatArray);
var
i: longint;
srclen, dstlen: jint;
begin
for i:=0 to min(high(src),high(dst)) do
dst[i]:=src[i];
srclen:=length(src);
dstlen:=length(dst);
{ causes exception in JLSystem.arraycopy }
if (srclen=0) or
(dstlen=0) then
exit;
JLSystem.arraycopy(JLObject(src),0,JLObject(dst),0,min(srclen,dstlen));
end;
procedure fpc_copy_jdouble_array(src, dst: TJDoubleArray);
var
i: longint;
srclen, dstlen: jint;
begin
for i:=0 to min(high(src),high(dst)) do
dst[i]:=src[i];
srclen:=length(src);
dstlen:=length(dst);
{ causes exception in JLSystem.arraycopy }
if (srclen=0) or
(dstlen=0) then
exit;
JLSystem.arraycopy(JLObject(src),0,JLObject(dst),0,min(srclen,dstlen));
end;
procedure fpc_copy_jobject_array(src, dst: TJObjectArray);
var
i: longint;
srclen, dstlen: jint;
begin
for i:=0 to min(high(src),high(dst)) do
dst[i]:=src[i];
srclen:=length(src);
dstlen:=length(dst);
{ causes exception in JLSystem.arraycopy }
if (srclen=0) or
(dstlen=0) then
exit;
JLSystem.arraycopy(JLObject(src),0,JLObject(dst),0,min(srclen,dstlen));
end;
@ -357,6 +397,7 @@ procedure fpc_copy_jrecord_array(src, dst: TJRecordArray);
var
i: longint;
begin
{ no arraycopy, have to clone each element }
for i:=0 to min(high(src),high(dst)) do
dst[i]:=FpcBaseRecordType(src[i].clone);
end;