mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-17 09:59:41 +02:00
2c313e397e
o support for copying value parameters at the callee side if they were
passed by reference in hlcg
o JVM g_concatcopy() implementation for arrays
o moved code to get length of an array from njvminl to hlcgcpu so it can
be reused elsewhere as well
o export array copy helpers from system unit for use when assigning one
array to another
o some generic support for types that are normally not implicit pointers,
but which are for the JVM target (such as normal arrays)
* handle assigning nil to a dynamic array by generating a setlength(x,0)
node instead of by hardcoding a call to fpc_dynarray_clear, so
target-specific code can handle it if required
* hook up gethltemp() for JVM ttgjvm so array temps are properly
allocated
git-svn-id: branches/jvmbackend@18388 -
78 lines
3.2 KiB
PHP
78 lines
3.2 KiB
PHP
{
|
|
This file is part of the Free Pascal run time library.
|
|
Copyright (c) 2011 by Jonas Maebe
|
|
member of the Free Pascal development team.
|
|
|
|
This file implements the helper routines for dyn. Arrays in FPC
|
|
|
|
See the file COPYING.FPC, included in this distribution,
|
|
for details about the copyright.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
**********************************************************************
|
|
}
|
|
|
|
type
|
|
TJByteArray = array of jbyte;
|
|
TJShortArray = array of jshort;
|
|
TJIntArray = array of jint;
|
|
TJLongArray = array of jlong;
|
|
TJCharArray = array of jchar;
|
|
TJFloatArray = array of jfloat;
|
|
TJDoubleArray = array of jdouble;
|
|
TJObjectArray = array of tobject;
|
|
|
|
const
|
|
FPCJDynArrTypeJByte = 'B';
|
|
FPCJDynArrTypeJShort = 'S';
|
|
FPCJDynArrTypeJInt = 'I';
|
|
FPCJDynArrTypeJLong = 'J';
|
|
FPCJDynArrTypeJChar = 'C';
|
|
FPCJDynArrTypeJFloat = 'F';
|
|
FPCJDynArrTypeJDouble = 'D';
|
|
FPCJDynArrTypeJObject = 'A';
|
|
|
|
{ 1-dimensional setlength routines
|
|
|
|
Convention: aorg, is the current array, anew: is a newly allocated array of the
|
|
size specified to setlength. The function either returns org if it had the
|
|
right size already, or copies (part of) org in new and returns new.
|
|
}
|
|
function fpc_setlength_dynarr_jbyte(aorg, anew: TJByteArray; deepcopy: boolean): TJByteArray;
|
|
function fpc_setlength_dynarr_jshort(aorg, anew: TJShortArray; deepcopy: boolean): TJShortArray;
|
|
function fpc_setlength_dynarr_jint(aorg, anew: TJIntArray; deepcopy: boolean): TJIntArray;
|
|
function fpc_setlength_dynarr_jlong(aorg, anew: TJLongArray; deepcopy: boolean): TJLongArray;
|
|
function fpc_setlength_dynarr_jchar(aorg, anew: TJCharArray; deepcopy: boolean): TJCharArray;
|
|
function fpc_setlength_dynarr_jfloat(aorg, anew: TJFloatArray; deepcopy: boolean): TJFloatArray;
|
|
function fpc_setlength_dynarr_jdouble(aorg, anew: TJDoubleArray; deepcopy: boolean): TJDoubleArray;
|
|
function fpc_setlength_dynarr_jobject(aorg, anew: TJObjectArray; deepcopy: boolean; docopy : boolean = true): TJObjectArray;
|
|
|
|
{ array copying helpers }
|
|
|
|
procedure fpc_copy_jbyte_array(src, dst: TJByteArray);
|
|
procedure fpc_copy_jshort_array(src, dst: TJShortArray);
|
|
procedure fpc_copy_jint_array(src, dst: TJIntArray);
|
|
procedure fpc_copy_jlong_array(src, dst: TJLongArray);
|
|
procedure fpc_copy_jchar_array(src, dst: TJCharArray);
|
|
procedure fpc_copy_jfloat_array(src, dst: TJFloatArray);
|
|
procedure fpc_copy_jdouble_array(src, dst: TJDoubleArray);
|
|
procedure fpc_copy_jobject_array(src, dst: TJObjectArray);
|
|
|
|
{ multi-dimendional setlength routine: all intermediate dimensions are arrays
|
|
of arrays, so that's the same for all array kinds. Only the type of the final
|
|
dimension matters.
|
|
|
|
org is the current array, new is a newly allocated array of the
|
|
(multi-demensional) size specified to setlength.
|
|
|
|
This routine uses the intermediate levels from the old array if possible so
|
|
that an unchanged array remains in the same place.
|
|
|
|
Warning: ndim must be >= 2 when this routine is called.
|
|
}
|
|
function fpc_setlength_dynarr_multidim(aorg, anew: TJObjectArray; deepcopy: boolean; ndim: longint; eletype: jchar): TJObjectArray;
|
|
|