diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-06 08:07:32 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-06 08:07:32 +0000 |
| commit | f2e1149ce0ba3de938e676e80391f51af0f51709 (patch) | |
| tree | 30bf49ccbbbb45b761fa755df0c66a9859ab5281 /gcc/ada/gcc-interface/gigi.h | |
| parent | 6e8c8b10223ad14319cd4bf1d36cefb3d72e82ff (diff) | |
| download | gcc-f2e1149ce0ba3de938e676e80391f51af0f51709.tar.gz | |
2008-08-06 Doug Rupp <rupp@adacore.com>
* gcc-interface/decl.c (gnat_to_gnu_param): Force 32bit descriptor if
TARGET_MALLOC64 clear.
* gcc-interface/utils2.c (build_call_alloc_dealloc): Force 32bit malloc
if TARGET_MALLOC64 clear.
* gcc-interface/gigi.h (TARGET_ABI_OPEN_VMS): Move here from utils2.c
(TARGET_MALLC64): New macro. Default to clear.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@138768 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/gcc-interface/gigi.h')
| -rw-r--r-- | gcc/ada/gcc-interface/gigi.h | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/gcc/ada/gcc-interface/gigi.h b/gcc/ada/gcc-interface/gigi.h index 1b3fa24137c..e1c2fe923c9 100644 --- a/gcc/ada/gcc-interface/gigi.h +++ b/gcc/ada/gcc-interface/gigi.h @@ -913,3 +913,17 @@ extern Nat get_words_be (void); extern Nat get_bytes_be (void); extern Nat get_bits_be (void); extern Nat get_strict_alignment (void); + +/* Let code know whether we are targetting VMS without need of + intrusive preprocessor directives. */ +#ifndef TARGET_ABI_OPEN_VMS +#define TARGET_ABI_OPEN_VMS 0 +#endif + +/* VMS macro set by default, when clear forces 32bit mallocs and 32bit + Descriptors. Always used in combination with TARGET_ABI_OPEN_VMS + so no effect on non-VMS systems. */ +#ifndef TARGET_MALLOC64 +#define TARGET_MALLOC64 0 +#endif + |