diff options
| author | Doug Rupp <rupp@adacore.com> | 2008-08-05 17:13:25 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-05 17:13:25 +0200 |
| commit | 1f1aa84f063d166ac95f7bfbcf039a6f7592dfe7 (patch) | |
| tree | 0dc0da46e5fad253c5401815b033c1f338c69764 /gcc | |
| parent | 2e4495d6da2575d658ac7b8d875f96e5f3b850b1 (diff) | |
| download | gcc-1f1aa84f063d166ac95f7bfbcf039a6f7592dfe7.zip gcc-1f1aa84f063d166ac95f7bfbcf039a6f7592dfe7.tar.gz gcc-1f1aa84f063d166ac95f7bfbcf039a6f7592dfe7.tar.bz2 | |
vms_data.ads: Translation for /POINTER_SIZE qualifier.
2008-08-05 Doug Rupp <rupp@adacore.com>
* vms_data.ads: Translation for /POINTER_SIZE qualifier.
From-SVN: r138727
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/vms_data.ads | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/gcc/ada/vms_data.ads b/gcc/ada/vms_data.ads index 470cfe6..46764dd 100644 --- a/gcc/ada/vms_data.ads +++ b/gcc/ada/vms_data.ads @@ -1949,6 +1949,36 @@ package VMS_Data is -- file xyz.adb is compiled with -gnatl=.lst, then the output is written -- to file xyz.adb_lst. + S_GCC_Pointer : aliased constant S := "/POINTER_SIZE=" & + "64 " & + "-mmalloc64 " & + "LONG " & + "-mmalloc64 " & + "32 " & + "-mno-malloc64 " & + "SHORT " & + "-mno-malloc64"; + -- /POINTER_SIZE=64 (D) + -- /POINTER_SIZE[=(keyword[,...])] + -- + -- Change how pointers and descriptors are allocated. The following + -- keywords are supported: + -- + -- 64 (D) Allocate heap pointers in 64bit space except as + -- constrained by a 32bit size clause or by + -- Convention_C and generate 64bit descriptors for + -- Descriptor mechanisms for calling imported + -- subprograms and accept both 64bit and 32bit + -- descriptors for calls to exported subprograms. + -- + -- LONG Equivalent to option 64. + -- + -- 32 Allocate all heap pointers in 32bit space and + -- generate 32bit descriptors for Descriptor + -- mechanisms for calling imported subprograms. + -- + -- SHORT Equivalent to option 32. + S_GCC_Polling : aliased constant S := "/POLLING " & "-gnatP"; -- /NOPOLLING (D) @@ -3348,6 +3378,7 @@ package VMS_Data is S_GCC_Nostlib 'Access, S_GCC_Opt 'Access, S_GCC_OptX 'Access, + S_GCC_Pointer 'Access, S_GCC_Polling 'Access, S_GCC_Project 'Access, S_GCC_Psta 'Access, |