===================================================================
@@ -63,6 +63,7 @@
ctime
dup
dup2
+environ GLOBAL
exit
exp FLOAT
fabs FLOAT
===================================================================
@@ -45,6 +45,9 @@
/* 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 @@
rlen += 9;
}
+ if (n->flags & VMS_CRTL_GLOBAL)
+ {
+ memcpy (res + rlen, "ga_", 3);
+ rlen += 3;
+ }
+
if (n->flags & VMS_CRTL_FLOAT)
res[rlen++] = 't';