Updated to fedora-glibc-20080703T1203
[kopensolaris-gnu/glibc.git] / sunrpc / rpc_parse.c
index e6c4e4a..f665387 100644 (file)
@@ -31,8 +31,6 @@
 /*
  * From: @(#)rpc_parse.c 1.8 89/02/22 (C) 1987 SMI
  */
-const char parse_rcsid[] =
-  "$Id$";
 
 /*
  * rpc_parse.c, Parser for the RPC protocol compiler
@@ -93,6 +91,7 @@ get_definition (void)
       def_const (defp);
       break;
     case TOK_EOF:
+      free (defp);
       return (NULL);
     default:
       error ("definition keyword expected");
@@ -304,7 +303,9 @@ def_union (definition *defp)
   case_list *cases;
 /*  case_list *tcase; */
   case_list **tailp;
+#if 0
   int flag;
+#endif
 
   defp->def_kind = DEF_UNION;
   scan (TOK_IDENT, &tok);
@@ -324,7 +325,9 @@ def_union (definition *defp)
       cases->case_name = tok.str;
       scan (TOK_COLON, &tok);
       /* now peek at next token */
+#if 0
       flag = 0;
+#endif
       if (peekscan (TOK_CASE, &tok))
        {
 
@@ -341,6 +344,7 @@ def_union (definition *defp)
            }
          while (peekscan (TOK_CASE, &tok));
        }
+#if 0
       else if (flag)
        {
 
@@ -348,6 +352,7 @@ def_union (definition *defp)
          tailp = &cases->next;
          cases = ALLOC (case_list);
        };
+#endif
 
       get_declaration (&dec, DEF_UNION);
       cases->case_decl = dec;
@@ -621,6 +626,10 @@ get_type (const char **prefixp, const char **typep, defkind dkind)
       *typep = "long";
       (void) peekscan (TOK_INT, &tok);
       break;
+    case TOK_HYPER:
+      *typep = "quad_t";
+      (void) peekscan(TOK_INT, &tok);
+      break;
     case TOK_VOID:
       if (dkind != DEF_UNION && dkind != DEF_PROGRAM)
        {
@@ -664,6 +673,11 @@ unsigned_dec (const char **typep)
       *typep = "u_long";
       (void) peekscan (TOK_INT, &tok);
       break;
+    case TOK_HYPER:
+      get_token (&tok);
+      *typep = "u_quad_t";
+      (void) peekscan(TOK_INT, &tok);
+      break;
     case TOK_INT:
       get_token (&tok);
       *typep = "u_int";