Browse Source

* few types fixed

florian 1 year ago
parent
commit
1de3aba4e3
2 changed files with 4 additions and 4 deletions
  1. 3 3
      compiler/jvm/njvminl.pas
  2. 1 1
      compiler/x86_64/cpupara.pas

+ 3 - 3
compiler/jvm/njvminl.pas

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

+ 1 - 1
compiler/x86_64/cpupara.pas

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