paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 18:47:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

* few types fixed

Browse Source
This commit is contained in:
florian 2024-04-26 22:54:27 +02:00
parent 17b7782929
commit 1de3aba4e3
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/jvm/njvminl.pas
View File

@ -465,13 +465,13 @@ implementation
case finaltype of case finaltype of
'R': 'R':
begin begin
{ expects array of FpcBaseRecord} { expects array of FpcBaseRecord }
setlenroutine:='FPC_SETLENGTH_DYNARR_JRECORD'; setlenroutine:='FPC_SETLENGTH_DYNARR_JRECORD';
objarraydef:=search_system_type('TJRECORDARRAY').typedef; objarraydef:=search_system_type('TJRECORDARRAY').typedef;
end; end;
'T': 'T':
begin begin
{ expects array of ShortstringClass} { expects array of ShortstringClass }
setlenroutine:='FPC_SETLENGTH_DYNARR_JSHORTSTRING'; setlenroutine:='FPC_SETLENGTH_DYNARR_JSHORTSTRING';
objarraydef:=search_system_type('TSHORTSTRINGARRAY').typedef; objarraydef:=search_system_type('TSHORTSTRINGARRAY').typedef;
end; end;
@ -489,7 +489,7 @@ implementation
newparas:=ccallparanode.create(newnode,newparas); newparas:=ccallparanode.create(newnode,newparas);
{ prepend deepcopy } { prepend deepcopy }
newparas:=ccallparanode.create(cordconstnode.create(0,pasbool1type,false),newparas); newparas:=ccallparanode.create(cordconstnode.create(0,pasbool1type,false),newparas);
{ call the right setlenght helper } { call the right setlength helper }
if ndims>1 then if ndims>1 then
begin begin
{ create proper parameters, from right to left: { create proper parameters, from right to left:

2
compiler/x86_64/cpupara.pas
View File

@ -1314,7 +1314,7 @@ unit cpupara;
end; end;
arraydef : arraydef :
begin begin
{ cdecl array of const need to be ignored and therefor be puhsed { cdecl array of const need to be ignored and therefor be pushed
as value parameter with length 0 } as value parameter with length 0 }
if ((calloption in cdecl_pocalls) and if ((calloption in cdecl_pocalls) and
is_array_of_const(def)) or is_array_of_const(def)) or