diff options
| author | Tristan Gingold <gingold@adacore.com> | 2011-12-16 15:25:30 +0000 |
|---|---|---|
| committer | Tristan Gingold <gingold@gcc.gnu.org> | 2011-12-16 15:25:30 +0000 |
| commit | 7481209d17041321d257fc3948228b1eb3a10095 (patch) | |
| tree | 7d717c04bd6bac00f4fa2d1116db9765da467c12 /gcc/config | |
| parent | d734e6c4664d70c75fdb9427a20fa9ac4d868914 (diff) | |
| download | gcc-7481209d17041321d257fc3948228b1eb3a10095.tar.gz | |
vms.c (VMS_CRTL_GLOBAL): Define.
2011-12-16 Tristan Gingold <gingold@adacore.com>
* config/vms/vms.c (VMS_CRTL_GLOBAL): Define.
(vms_patch_builtins): Handle.
* config/vms/vms-crtlmap.map: Add an entry for environ.
From-SVN: r182405
Diffstat (limited to 'gcc/config')
| -rw-r--r-- | gcc/config/vms/vms-crtlmap.map | 1 | ||||
| -rw-r--r-- | gcc/config/vms/vms.c | 9 |
2 files changed, 10 insertions, 0 deletions
diff --git a/gcc/config/vms/vms-crtlmap.map b/gcc/config/vms/vms-crtlmap.map index 4f2755e2c82..47520de0377 100644 --- a/gcc/config/vms/vms-crtlmap.map +++ b/gcc/config/vms/vms-crtlmap.map @@ -63,6 +63,7 @@ ctermid 64 ctime dup dup2 +environ GLOBAL exit exp FLOAT fabs FLOAT diff --git a/gcc/config/vms/vms.c b/gcc/config/vms/vms.c index ab37f827f83..63ca9319090 100644 --- a/gcc/config/vms/vms.c +++ b/gcc/config/vms/vms.c @@ -45,6 +45,9 @@ along with GCC; see the file COPYING3. If not see /* Prepend x before the name for printf like functions. */ #define VMS_CRTL_PRNTF (1 << 4) +/* Prepend ga_ for global data. */ +#define VMS_CRTL_GLOBAL (1 << 5) + struct vms_crtl_name { /* The standard C name. */ @@ -123,6 +126,12 @@ vms_patch_builtins (void) rlen += 9; } + if (n->flags & VMS_CRTL_GLOBAL) + { + memcpy (res + rlen, "ga_", 3); + rlen += 3; + } + if (n->flags & VMS_CRTL_FLOAT) res[rlen++] = 't'; |