Quellcode durchsuchen

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

git-svn-id: trunk@19899 -
florian vor 13 Jahren
Ursprung
Commit
a710a7cf7f
2 geänderte Dateien mit 3 neuen und 3 gelöschten Zeilen
  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');
                    write(outfile,'args:array of const');
                    (* if variable number of args we must allways pop *)
                    (* if variable number of args we must allways pop *)
                    no_pop:=false;
                    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
                       in C you can omit the second parameter. Default parameter
                       doesn't help as that isn't possible with array of const *)
                       doesn't help as that isn't possible with array of const *)
                    NeedEllipsisOverload:=true;
                    NeedEllipsisOverload:=true;
@@ -2535,7 +2535,7 @@ begin
   73 : begin
   73 : begin
          
          
          if UseCTypesUnit then
          if UseCTypesUnit then
-         yyval:=new(presobject,init_id(csint_STR))
+         yyval:=new(presobject,init_id(cshort_STR))
          else
          else
          yyval:=new(presobject,init_intid(SMALL_STR));
          yyval:=new(presobject,init_intid(SMALL_STR));
          
          

+ 1 - 1
utils/h2pas/h2pas.y

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