c-pragma.c (handle_pragma_token): If passed a token instead of a tree, use that as the pack value.

        * c-pragma.c (handle_pragma_token): If passed a token instead
        of a tree, use that as the pack value.

From-SVN: r22997

gcc/ChangeLog

+Sun Oct 11 23:04:30 1998  Robert Lipe  <robertl@dgii.com>
+
+        * c-pragma.c (handle_pragma_token): If passed a token instead
+        of a tree, use that as the pack value.
+
 Sun Oct 11 14:21:14 1998  Mark Mitchell  <mark@markmitchell.com>
 
 	* flow.c (find_basic_blocks_1): Fix prototype.

gcc/c-pragma.c

@@ -384,7 +384,11 @@ handle_pragma_token (string, token)
       break;
 
     case ps_left:
-      align = atoi (string);
+
+      if (TREE_CODE(token) == INTEGER_CST) 
+	align = TREE_INT_CST_LOW(token);
+      else
+	align = atoi (string);
       switch (align)
 	{
 	case 1: