Sfoglia il codice sorgente

* translate short int into cshort, patch by barlone, resolves #20956

git-svn-id: trunk@19899 -
florian 13 anni fa
parent
commit
a710a7cf7f
2 ha cambiato i file con 3 aggiunte e 3 eliminazioni
  1. 2 2
      utils/h2pas/h2pas.pas
  2. 1 1
      utils/h2pas/h2pas.y

+ 2 - 2
utils/h2pas/h2pas.pas

@@ -657,7 +657,7 @@ program h2pas;
                    write(outfile,'args:array of const');
                    (* if variable number of args we must allways pop *)
                    no_pop:=false;
-                   (* Needs 2 declarations, also one without args, because
+                   (* Needs 2 declarations, also one without args, becuase
                       in C you can omit the second parameter. Default parameter
                       doesn't help as that isn't possible with array of const *)
                    NeedEllipsisOverload:=true;
@@ -2535,7 +2535,7 @@ begin
   73 : begin
          
          if UseCTypesUnit then
-         yyval:=new(presobject,init_id(csint_STR))
+         yyval:=new(presobject,init_id(cshort_STR))
          else
          yyval:=new(presobject,init_intid(SMALL_STR));
          

+ 1 - 1
utils/h2pas/h2pas.y

@@ -2431,7 +2431,7 @@ special_type_name :
      SHORT INT
      {
      if UseCTypesUnit then
-       $$:=new(presobject,init_id(csint_STR))
+       $$:=new(presobject,init_id(cshort_STR))
      else
        $$:=new(presobject,init_intid(SMALL_STR));
      } |