git.gag.com Git - fw/altos/blob - contrib/arch-linux/new.patch

   1 --- src/SDCCast.c
   2 +++ src/SDCCast.c
   3 @@ -863,6 +863,8 @@ processParms (ast *func,
   4
   5        ftype = (*actParm)->ftype;
   6
   7 +      resultType = RESULT_TYPE_NONE;
   8 +
   9        /* If it's a char, upcast to int. */
  10        if (IS_INTEGRAL (ftype)
  11            && (getSize (ftype) < (unsigned) INTSIZE))
  12 @@ -874,12 +876,14 @@ processParms (ast *func,
  13          {
  14            newType = newAst_LINK (copyLinkChain(ftype));
  15            DCL_TYPE (newType->opval.lnk) = port->unqualified_pointer;
  16 +         resultType = RESULT_TYPE_GPTR;
  17          }
  18
  19        if (IS_AGGREGATE (ftype))
  20          {
  21            newType = newAst_LINK (copyLinkChain (ftype));
  22            DCL_TYPE (newType->opval.lnk) = port->unqualified_pointer;
  23 +         resultType = RESULT_TYPE_GPTR;
  24          }
  25
  26        if (newType)
  27 @@ -890,7 +894,7 @@ processParms (ast *func,
  28            (*actParm)->filename = (*actParm)->right->filename;
  29            (*actParm)->lineno = (*actParm)->right->lineno;
  30
  31 -          decorateType (*actParm, RESULT_TYPE_NONE);
  32 +          decorateType (*actParm, resultType);
  33          }
  34        return 0;
  35      } /* vararg */