Remove gcc-4.8.

Change-Id: Iee9c6985c613f58c82e33a91722d371579eb290f

1 files changed, 0 insertions, 83 deletions

diff --git a/gcc-4.8/libgfortran/intrinsics/getcwd.c b/gcc-4.8/libgfortran/intrinsics/getcwd.c
deleted file mode 100644
index 3e11acda1..000000000
--- a/gcc-4.8/libgfortran/intrinsics/getcwd.c
+++ /dev/null
@@ -1,83 +0,0 @@
-/* Implementation of the GETCWD intrinsic.
-   Copyright (C) 2004-2013 Free Software Foundation, Inc.
-   Contributed by Steven G. Kargl <kargls@comcast.net>.
-
-This file is part of the GNU Fortran 95 runtime library (libgfortran).
-
-Libgfortran is free software; you can redistribute it and/or
-modify it under the terms of the GNU General Public
-License as published by the Free Software Foundation; either
-version 3 of the License, or (at your option) any later version.
-
-Libgfortran is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-GNU General Public License for more details.
-
-Under Section 7 of GPL version 3, you are granted additional
-permissions described in the GCC Runtime Library Exception, version
-3.1, as published by the Free Software Foundation.
-
-You should have received a copy of the GNU General Public License and
-a copy of the GCC Runtime Library Exception along with this program;
-see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
-<http://www.gnu.org/licenses/>.  */
-
-#include "libgfortran.h"
-
-#include <string.h>
-#include <errno.h>
-
-#ifdef HAVE_UNISTD_H
-#include <unistd.h>
-#endif
-
-#ifdef HAVE_GETCWD
-
-extern void getcwd_i4_sub (char *, GFC_INTEGER_4 *, gfc_charlen_type);
-iexport_proto(getcwd_i4_sub);
-
-void
-getcwd_i4_sub (char *cwd, GFC_INTEGER_4 *status, gfc_charlen_type cwd_len)
-{
-  char str[cwd_len + 1];
-  GFC_INTEGER_4 stat;
-
-  memset(cwd, ' ', (size_t) cwd_len);
-
-  if (!getcwd (str, (size_t) cwd_len + 1))
-    stat = errno;
-  else
-    {
-      stat = 0;
-      memcpy (cwd, str, strlen (str));
-    }
-  if (status != NULL)
-    *status = stat;
-}
-iexport(getcwd_i4_sub);
-
-extern void getcwd_i8_sub (char *, GFC_INTEGER_8 *, gfc_charlen_type);
-export_proto(getcwd_i8_sub);
-
-void
-getcwd_i8_sub (char *cwd, GFC_INTEGER_8 *status, gfc_charlen_type cwd_len)
-{
-  GFC_INTEGER_4 status4;
-  getcwd_i4_sub (cwd, &status4, cwd_len);
-  if (status)
-    *status = status4;
-}
-
-extern GFC_INTEGER_4 PREFIX(getcwd) (char *, gfc_charlen_type);
-export_proto_np(PREFIX(getcwd));
-
-GFC_INTEGER_4
-PREFIX(getcwd) (char *cwd, gfc_charlen_type cwd_len)
-{
-  GFC_INTEGER_4 status;
-  getcwd_i4_sub (cwd, &status, cwd_len);
-  return status;
-}
-
-#endif