[gomp4] gimple prettypint

[Nathan Sidwell]

Committed this port from trunk to gomp4

nathan

Index: ChangeLog.gomp
===================================================================
--- ChangeLog.gomp	(revision 240724)
+++ ChangeLog.gomp	(working copy)
@@ -1,3 +1,8 @@
+2016-10-03  Nathan Sidwell  <nat...@codesourcery.com>
+
+	* gimple-pretty-print.c (dump_gimple_call_args): Simplify "' "
+	printing.
+
 2016-10-02  Chung-Lin Tang  <clt...@codesourcery.com>
 
 	PR fortran/77371
Index: gimple-pretty-print.c
===================================================================
--- gimple-pretty-print.c	(revision 240724)
+++ gimple-pretty-print.c	(working copy)
@@ -629,26 +629,21 @@ dump_gimple_call_args (pretty_printer *b
 	    {
 	      i++;
 	      pp_string (buffer, enums[v]);
-	      if (i < gimple_call_num_args (gs))
-		pp_string (buffer, ", ");
 	    }
 	}
     }
 
   for (; i < gimple_call_num_args (gs); i++)
     {
-      dump_generic_node (buffer, gimple_call_arg (gs, i), 0, flags, false);
-      if (i < gimple_call_num_args (gs) - 1)
+      if (i)
 	pp_string (buffer, ", ");
+      dump_generic_node (buffer, gimple_call_arg (gs, i), 0, flags, false);
     }
 
   if (gimple_call_va_arg_pack_p (gs))
     {
-      if (gimple_call_num_args (gs) > 0)
-        {
-          pp_comma (buffer);
-          pp_space (buffer);
-        }
+      if (i)
+	pp_string (buffer, ", ");
 
       pp_string (buffer, "__builtin_va_arg_pack ()");
     }