paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-07-21 14:16:04 +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

2
compiler/jvm/njvminl.pas
View File

@ -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