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

* the new constant string arraydefs are also implicit pointers types for JVM

Browse Source 
git-svn-id: trunk@48833 -
This commit is contained in:
Jonas Maebe 2021-02-27 19:30:37 +00:00
parent ab0531f0ce
commit 803779002d
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/defutil.pas
View File

@ -149,6 +149,9 @@ interface
{# Returns true, if p points to an array of const }
function is_array_of_const(p : tdef) : boolean;
{# Returns true if p is an arraydef that describes a constant string }
function is_conststring_array(p : tdef) : boolean;
{# Returns true, if p points any kind of special array
That is if the array is an open array, a variant
@ -821,6 +824,12 @@ implementation
(ado_IsArrayOfConst in tarraydef(p).arrayoptions);
end;
function is_conststring_array(p: tdef): boolean;
begin
result:=(p.typ=arraydef) and
(ado_IsConstString in tarraydef(p).arrayoptions);
end;
{ true, if p points to a special array, bitpacked arrays aren't special in this regard though }
function is_special_array(p : tdef) : boolean;
begin

3
compiler/jvm/jvmdef.pas
View File

@ -517,7 +517,8 @@ implementation
result:=(tarraydef(def).highrange>=tarraydef(def).lowrange) or
is_open_array(def) or
is_array_of_const(def) or
is_array_constructor(def);
is_array_constructor(def) or
is_conststring_array(def);
filedef,
recorddef,
setdef: