* acinclude.m4 (LIBGFOR_CHECK_ATTRIBUTE_VISIBILITY): New.

[pf3gnuchains/gcc-fork.git] / libgfortran / intrinsics / env.c

diff --git a/libgfortran/intrinsics/env.c b/libgfortran/intrinsics/env.c
index ab596fc..d116f1c 100644 (file)
--- a/libgfortran/intrinsics/env.c
+++ b/libgfortran/intrinsics/env.c
@@ -28,13 +28,14 @@ Boston, MA 02111-1307, USA.  */
 
 
 /* GETENV (NAME, VALUE), g77 intrinsic for retrieving the value of
- an environment variable. The name of the variable is specified in
- NAME, and the result is stored into VALUE.  */
+   an environment variable. The name of the variable is specified in
+   NAME, and the result is stored into VALUE.  */
+
+void PREFIX(getenv) (char *, char *, gfc_charlen_type, gfc_charlen_type);
+export_proto_np(PREFIX(getenv));
 
 void 
-prefix(getenv) (char * name, 
-               char * value, 
-               gfc_charlen_type name_len, 
+PREFIX(getenv) (char * name, char * value, gfc_charlen_type name_len, 
                gfc_charlen_type value_len)
 {
   char *name_nt;
@@ -89,16 +90,16 @@ prefix(getenv) (char * name,
 /* Processor-specific failure code.  */
 #define GFC_FAILURE 42
 
+extern void get_environment_variable_i4 (char *, char *, GFC_INTEGER_4 *,
+                                        GFC_INTEGER_4 *, GFC_LOGICAL_4 *,
+                                        gfc_charlen_type, gfc_charlen_type);
+iexport_proto(get_environment_variable_i4);
+
 void
-prefix(get_environment_variable_i4) 
-  (
-   char *name,
-   char *value,
-   GFC_INTEGER_4 *length,
-   GFC_INTEGER_4 *status,
-   GFC_LOGICAL_4 *trim_name,
-   gfc_charlen_type name_len,
-   gfc_charlen_type value_len)
+get_environment_variable_i4 (char *name, char *value, GFC_INTEGER_4 *length,
+                            GFC_INTEGER_4 *status, GFC_LOGICAL_4 *trim_name,
+                            gfc_charlen_type name_len,
+                            gfc_charlen_type value_len)
 {
   int stat = GFC_SUCCESS, res_len = 0;
   char *name_nt;
@@ -159,20 +160,21 @@ prefix(get_environment_variable_i4)
   if (length != NULL)
     *length = res_len;
 }
+iexport(get_environment_variable_i4);
 
 
 /* INTEGER*8 wrapper for get_environment_variable.  */
 
+extern void get_environment_variable_i8 (char *, char *, GFC_INTEGER_8 *,
+                                        GFC_INTEGER_8 *, GFC_LOGICAL_8 *,
+                                        gfc_charlen_type, gfc_charlen_type);
+export_proto(get_environment_variable_i8);
+
 void
-prefix(get_environment_variable_i8)
-  (
-   char *name,
-   char *value,
-   GFC_INTEGER_8 *length,
-   GFC_INTEGER_8 *status,
-   GFC_LOGICAL_8 *trim_name,
-   gfc_charlen_type name_len,
-   gfc_charlen_type value_len)
+get_environment_variable_i8 (char *name, char *value, GFC_INTEGER_8 *length,
+                            GFC_INTEGER_8 *status, GFC_LOGICAL_8 *trim_name,
+                            gfc_charlen_type name_len,
+                            gfc_charlen_type value_len)
 {
   GFC_INTEGER_4 length4, status4;
   GFC_LOGICAL_4 trim_name4;
@@ -180,8 +182,8 @@ prefix(get_environment_variable_i8)
   if (trim_name)
     trim_name4 = *trim_name;
 
-  prefix (get_environment_variable_i4) (name, value, &length4, &status4, 
-                                       &trim_name4, name_len, value_len);
+  get_environment_variable_i4 (name, value, &length4, &status4, 
+                              &trim_name4, name_len, value_len);
 
   if (length)
     *length = length4;