alpha.c (alpha_start_function, VMS): Cast shift arg to HOST_WIDE_INT, not long.

	* config/alpha/alpha.c (alpha_start_function, VMS): Cast shift
	arg to HOST_WIDE_INT, not long.

From-SVN: r47146

gcc/ChangeLog

 Sun Nov 18 07:40:07 2001  Douglas B. Rupp  <rupp@gnat.com>
 
+	* config/alpha/alpha.c (alpha_start_function, VMS): Cast shift
+	arg to HOST_WIDE_INT, not long.
+
 	* config/alpha/vms.h (DIR_SEPARATOR, PREFIX). Don't define.
 	(HAS_INIT_SECTION): Define.
 	(REAL_ARITHMETIC): Don't undefine.

gcc/config/alpha/alpha.c

@@ -6334,7 +6334,7 @@ alpha_start_function (file, fnname, decl)
     {
       fprintf (file, "\t.frame $%d,", vms_unwind_regno);
       fprintf (file, HOST_WIDE_INT_PRINT_DEC,
-	       frame_size >= (1l << 31) ? 0 : frame_size);
+	       frame_size >= ((HOST_WIDE_INT) 1 << 31) ? 0 : frame_size);
       fputs (",$26,", file);
       fprintf (file, HOST_WIDE_INT_PRINT_DEC, reg_offset);
       fputs ("\n", file);