vms.h (ADA_LONG_TYPE_SIZE): New macro.

	* config/alpha/vms.h (ADA_LONG_TYPE_SIZE): New macro.
	* doc/tm.texi (ADA_LONG_TYPE_SIZE): Document it.

From-SVN: r47676

gcc/ChangeLog

+Wed Dec  5 09:33:39 2001  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
+
+	* config/alpha/vms.h (ADA_LONG_TYPE_SIZE): New macro.
+	* doc/tm.texi (ADA_LONG_TYPE_SIZE): Document it.
+
 2001-12-05  Jakub Jelinek  <jakub@redhat.com>
 
 	* gcse.c (store_killed_in_insn): Consider pure calls

gcc/config/alpha/vms.h

@@ -80,9 +80,10 @@ Boston, MA 02111-1307, USA.  */
 #define STRUCT_VALUE 0
 #undef PCC_STATIC_STRUCT_RETURN
 
-/* "long" is 32 bits.  */
+/* "long" is 32 bits, but 64 bits for Ada.  */
 #undef LONG_TYPE_SIZE
 #define LONG_TYPE_SIZE 32
+#define ADA_LONG_TYPE_SIZE 64
 
 /* Pointer is 32 bits but the hardware has 64-bit addresses, sign extended.  */
 #undef POINTER_SIZE

gcc/doc/tm.texi

@@ -1372,6 +1372,14 @@ unit.)
 A C expression for the size in bits of the type @code{long} on the
 target machine.  If you don't define this, the default is one word.
 
+@findex ADA_LONG_TYPE_SIZE
+@item ADA_LONG_TYPE_SIZE
+On some machines, the size used for the Ada equivalent of the type
+@code{long} by a native Ada compiler differs from that used by C.  In
+that situation, define this macro to be a C expression to be used for
+the size of that type.  If you don't define this, the default is the
+value of @code{LONG_TYPE_SIZE}.
+
 @findex MAX_LONG_TYPE_SIZE
 @item MAX_LONG_TYPE_SIZE
 Maximum number for the size in bits of the type @code{long} on the