paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 22:08:11 +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
'R':
begin
{ expects array of FpcBaseRecord}
{ expects array of FpcBaseRecord }
setlenroutine:='FPC_SETLENGTH_DYNARR_JRECORD';
objarraydef:=search_system_type('TJRECORDARRAY').typedef;
end;
'T':
begin
{ expects array of ShortstringClass}
{ expects array of ShortstringClass }
setlenroutine:='FPC_SETLENGTH_DYNARR_JSHORTSTRING';
objarraydef:=search_system_type('TSHORTSTRINGARRAY').typedef;
end;
@ -489,7 +489,7 @@ implementation
newparas:=ccallparanode.create(newnode,newparas);
{ prepend deepcopy }
newparas:=ccallparanode.create(cordconstnode.create(0,pasbool1type,false),newparas);
{ call the right setlenght helper }
{ call the right setlength helper }
if ndims>1 then
begin
{ create proper parameters, from right to left:

2
compiler/x86_64/cpupara.pas
View File

@ -1314,7 +1314,7 @@ unit cpupara;
end;
arraydef :
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 }
if ((calloption in cdecl_pocalls) and
is_array_of_const(def)) or