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

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index cbd8b3ca91934143b315eed9c5cfe8b94f8b9f47..ef9ab80e18d85ee5204256a81dc893a14f9bca2e 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/gcc/config/alpha/vms.h b/gcc/config/alpha/vms.h
index d53deb3102c6174b685164e084b0b66c636235e4..61b2fb6d76e8d24668acce9b1f84ce2aba138f2d 100644 (file)
--- a/gcc/config/alpha/vms.h
+++ b/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

diff --git a/gcc/doc/tm.texi b/gcc/doc/tm.texi
index 4c3da22b1b6e1f6c9fafae71797d32d1923b7ab6..7932811a8bd683dd6739a825e7533b335af414c0 100644 (file)
--- a/gcc/doc/tm.texi
+++ b/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