mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-22 10:36:25 +02:00
37aa2d8443
o sets of enums are handled as JUEnumSet instances, others as JUBitSet
derivatives (both smallsets and varsets, to make interoperability with
Java easier)
o special handling of set constants: these have to be constructed at run
time. In case of constants in the code, create an internal constsym to
represent them. These and regular constsyms are then aliased by an
another internal staticvarsym that is used to initialise them in the
unit initialisation code.
o until they are constructed at run time, set constants are encoded as
constant Java strings (with the characters containing the set bits)
o hlcgobj conversion of tcginnode.pass_generate_code() for the genjumps
part (that's the only part of the generic code that's used by the JVM
target)
o as far as explicit typecasting support is concerned, currently the
following ones are supported (both from/to setdefs): ordinal types,
enums, any other set types (whose size is the same on native targets)
o enum setdefs also emit signatures
o overloading routines for different ordinal set types, or for different
enum set types, is not supported on the JVM target
git-svn-id: branches/jvmbackend@18662 -
82 lines
3.3 KiB
PHP
82 lines
3.3 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;
|
|
TJRecordArray = array of FpcBaseRecordType;
|
|
TJEnumSetArray = array of JUEnumSet;
|
|
TJBitSetArray = array of JUBitSet;
|
|
TShortstringArray = array of ShortstringClass;
|
|
TJStringArray = array of unicodestring;
|
|
|
|
const
|
|
FPCJDynArrTypeJByte = 'B';
|
|
FPCJDynArrTypeJShort = 'S';
|
|
FPCJDynArrTypeJInt = 'I';
|
|
FPCJDynArrTypeJLong = 'J';
|
|
FPCJDynArrTypeJChar = 'C';
|
|
FPCJDynArrTypeJFloat = 'F';
|
|
FPCJDynArrTypeJDouble = 'D';
|
|
FPCJDynArrTypeJObject = 'A';
|
|
FPCJDynArrTypeRecord = 'R';
|
|
FPCJDynArrTypeEnumSet = 'E';
|
|
FPCJDynArrTypeBitSet = 'L';
|
|
FPCJDynArrTypeShortstring = 'T';
|
|
|
|
{ 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_generic(aorg, anew: JLObject; deepcopy: boolean; docopy: boolean = true): JLObject;
|
|
function fpc_setlength_dynarr_jrecord(aorg, anew: TJRecordArray; deepcopy: boolean): TJRecordArray;
|
|
function fpc_setlength_dynarr_jshortstring(aorg, anew: TShortstringArray; deepcopy: boolean): TShortstringArray;
|
|
|
|
{ array copying helpers }
|
|
|
|
procedure fpc_copy_shallow_array(src, dst: JLObject; srcstart: jint = -1; srccopylen: jint = -1);
|
|
procedure fpc_copy_jrecord_array(src, dst: TJRecordArray; srcstart: jint = -1; srccopylen: jint = -1);
|
|
procedure fpc_copy_jenumset_array(src, dst: TJEnumSetArray; srcstart: jint = -1; srccopylen: jint = -1);
|
|
procedure fpc_copy_jbitset_array(src, dst: TJBitSetArray; srcstart: jint = -1; srccopylen: jint = -1);
|
|
procedure fpc_copy_jshortstring_array(src, dst: TShortstringArray; srcstart: jint = -1; srccopylen: jint = -1);
|
|
|
|
{ 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;
|
|
|
|
|
|
function fpc_dynarray_copy(src: JLObject; start, len: longint; ndim: longint; eletype: jchar): JLObject;
|
|
|