mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-14 02:39:27 +02:00
60e0347bd9
automatically generated full declarations by javapp, using the
command line parameters:
-protected java.lang.System java.lang.Object java.io.Serializable java.lang.Float java.lang.Double java.lang.String java.lang.StringBuilder java.lang.StringBuffer java.lang.CharSequence java.lang.AbstractStringBuilder java.lang.Appendable java.lang.Number java.lang.IndexOutOfBoundsException java.lang.RuntimeException java.lang.IllegalArgumentException java.lang.Exception java.lang.Throwable java.lang.LinkageError java.lang.Error java.lang.Comparable java.lang.Character java.text.Collator java.lang.Cloneable java.util.Comparator -i -o java_sys
git-svn-id: branches/jvmbackend@18422 -
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 JLObject;
|
|
|
|
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;
|
|
|