Removed.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@134083 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 0 insertions, 387 deletions

diff --git a/gcc/ada/gnatbl.c b/gcc/ada/gnatbl.c
deleted file mode 100644
index 7dde58ea0db..00000000000
--- a/gcc/ada/gnatbl.c
+++ /dev/null
@@ -1,387 +0,0 @@
-/****************************************************************************
- *                                                                          *
- *                           GNAT COMPILER TOOLS                            *
- *                                                                          *
- *                               G N A T B L                                *
- *                                                                          *
- *                          C Implementation File                           *
- *                                                                          *
- *            Copyright (C) 1992-2007, Free Software Foundation, Inc.       *
- *                                                                          *
- * GNAT is free software;  you can  redistribute it  and/or modify it under *
- * terms of the  GNU General Public License as published  by the Free Soft- *
- * ware  Foundation;  either version 3,  or (at your option) any later ver- *
- * sion.  GNAT is distributed in the hope that it will be useful, but WITH- *
- * OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY *
- * or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License *
- * for  more details.  You should have  received  a copy of the GNU General *
- * Public License  distributed with GNAT; see file COPYING3.  If not, go to *
- * http://www.gnu.org/licenses for a complete copy of the license.          *
- *                                                                          *
- *                                                                          *
- * GNAT was originally developed  by the GNAT team at  New York University. *
- * Extensive contributions were provided by Ada Core Technologies Inc.      *
- *                                                                          *
- ****************************************************************************/
-
-#ifdef VMS
-#define _POSIX_EXIT 1
-#endif
-
-#include "config.h"
-#include "system.h"
-
-#if defined (__EMX__) || defined (MSDOS)
-#include <process.h>
-#endif
-#include "adaint.h"
-
-/* These can be set by command line arguments */
-char *binder_path = 0;
-char *linker_path = 0;
-char *exec_file_name = 0;
-char *ali_file_name = 0;
-#define BIND_ARG_MAX 512
-char *bind_args[BIND_ARG_MAX];
-int  bind_arg_index = -1;
-#ifdef MSDOS
-char *coff2exe_path = 0;
-char *coff2exe_args[] = {(char *) 0, (char *) 0};
-char *del_command = 0;
-#endif
-int  verbose      = 0;
-int  o_present    = 0;
-int  g_present    = 0;
-
-int  link_arg_max = -1;
-char **link_args = (char **) 0;
-int  link_arg_index = -1;
-
-char *gcc_B_arg = 0;
-
-#ifndef DIR_SEPARATOR
-#if defined (__EMX__)
-#define DIR_SEPARATOR '\\'
-#else
-#define DIR_SEPARATOR '/'
-#endif
-#endif
-
-static int linkonly = 0;
-
-static void addarg (char *);
-static void process_args (int *, char *[]);
-
-static void
-addarg (char *str)
-{
-  int i;
-
-  if (++link_arg_index >= link_arg_max)
-    {
-      char **new_link_args
-	= (char **) xcalloc (link_arg_max + 1000, sizeof (char *));
-
-      for (i = 0; i <= link_arg_max; i++)
-	new_link_args[i] = link_args[i];
-
-      if (link_args)
-	free (link_args);
-
-      link_arg_max += 1000;
-      link_args = new_link_args;
-    }
-
-  link_args[link_arg_index] = str;
-}
-
-static void
-process_args (int *p_argc, char *argv[])
-{
-  int i, j;
-
-  for (i = 1; i < *p_argc; i++)
-    {
-      /* -I is passed on to gnatbind */
-      if (! strncmp( argv[i], "-I", 2))
-	{
-	  bind_arg_index += 1;
-	  if (bind_arg_index >= BIND_ARG_MAX)
-	    {
-	      fprintf (stderr, "Too many arguments to gnatbind\n");
-	      exit (-1);
-      }
-
-	  bind_args[bind_arg_index] = argv[i];
-	}
-
-      /* -B is passed on to gcc */
-      if (! strncmp (argv[i], "-B", 2))
-	gcc_B_arg = argv[i];
-
-      /* -v turns on verbose option here and is passed on to gcc */
-
-      if (! strcmp (argv[i], "-v"))
-	verbose = 1;
-
-      if (! strcmp (argv[i], "-o"))
-	{
-	  o_present = 1;
-	  exec_file_name = argv[i + 1];
-	}
-
-      if (! strcmp (argv[i], "-g"))
-	g_present = 1;
-
-      if (! strcmp (argv[i], "-gnatbind"))
-	{
-	  /* Explicit naming of binder. Grab the value then remove the
-	     two arguments from the argument list. */
-	  if ( i + 1 >= *p_argc )
-	    {
-	      fprintf (stderr, "Missing argument for -gnatbind\n");
-	      exit (1);
-	    }
-
-	  binder_path = __gnat_locate_exec (argv[i + 1], (char *) ".");
-	  if (!binder_path)
-	    {
-	      fprintf (stderr, "Could not locate binder: %s\n", argv[i + 1]);
-	      exit (1);
-	    }
-
-	  for (j = i + 2; j < *p_argc; j++)
-	    argv[j - 2] = argv[j];
-
-	  (*p_argc) -= 2;
-	  i--;
-	}
-
-    else if (! strcmp (argv[i], "-linkonly"))
-      {
-	/* Don't call the binder. Set the flag and then remove the
-	   argument from the argument list. */
-	linkonly = 1;
-	for (j = i + 1; j < *p_argc; j++)
-	  argv[j - 1] = argv[j];
-
-	*p_argc -= 1;
-	i--;
-      }
-
-    else if (! strcmp (argv[i], "-gnatlink"))
-      {
-	/* Explicit naming of binder.  Grab the value then remove the
-	   two arguments from the argument list. */
-	if (i + 1 >= *p_argc)
-	  {
-	    fprintf (stderr, "Missing argument for -gnatlink\n");
-	    exit (1);
-	  }
-
-	linker_path = __gnat_locate_exec (argv[i + 1], (char *) ".");
-	if (!linker_path)
-	  {
-	    fprintf (stderr, "Could not locate linker: %s\n", argv[i + 1]);
-	    exit (1);
-	  }
-
-	for (j = i + 2; j < *p_argc; j++)
-	  argv[j - 2] = argv[j];
-	*p_argc -= 2;
-	i--;
-      }
-    }
-}
-extern int main (int, char **);
-
-int
-main (int argc, char **argv)
-{
-  int i, j;
-  int done_an_ali = 0;
-  int retcode;
-#ifdef VMS
-  /* Warning: getenv only retrieves the first directory in VAXC$PATH */
-  char *pathval =
-    xstrdup (__gnat_to_canonical_dir_spec (getenv ("VAXC$PATH"), 0));
-#else
-  char *pathval = getenv ("PATH");
-#endif
-  char *spawn_args[5];
-  int  spawn_index = 0;
-
-#if defined (__EMX__) || defined(MSDOS)
-  char *tmppathval = malloc (strlen (pathval) + 3);
-  strcpy (tmppathval, ".;");
-  pathval = strcat (tmppathval, pathval);
-#endif
-
-  process_args (&argc , argv);
-
-  if (argc == 1)
-    {
-      fprintf
-	(stdout,
-	 "Usage: %s 'name'.ali\n", argv[0]);
-      fprintf
-	(stdout,
-	 "             [-o exec_name]        -- by default it is 'name'\n");
-      fprintf
-	(stdout,
-	 "             [-v]                  -- verbose mode\n");
-      fprintf
-	(stdout,
-	 "             [-linkonly]           -- doesn't call binder\n");
-      fprintf
-	(stdout,
-	 "             [-gnatbind name]      -- full name for gnatbind\n");
-      fprintf
-	(stdout,
-	 "             [-gnatlink name]      -- full name for linker (gcc)\n");
-      fprintf
-	(stdout,
-	 "             [list of objects]     -- non Ada binaries\n");
-      fprintf
-	(stdout,
-	 "             [linker options]      -- other options for linker\n");
-      exit (1);
-    }
-
-  if (!binder_path && !linkonly)
-    binder_path = __gnat_locate_exec ((char *) "gnatbind", pathval);
-
-  if (!binder_path && !linkonly)
-    {
-      fprintf (stderr, "Couldn't locate gnatbind\n");
-      exit (1);
-    }
-
-  if (!linker_path)
-    linker_path = __gnat_locate_exec ((char *) "gnatlink", pathval);
-    if (!linker_path)
-      {
-	fprintf (stderr, "Couldn't locate gnatlink\n");
-	exit (1);
-      }
-
-#ifdef MSDOS
-  coff2exe_path = __gnat_locate_regular_file ("coff2exe.bat", pathval);
-  if (!coff2exe_path)
-    {
-      fprintf (stderr, "Couldn't locate %s\n", "coff2exe.bat");
-      exit (1);
-    }
-  else
-    coff2exe_args[0] = coff2exe_path;
-#endif
-
-  addarg (linker_path);
-
-  for (i = 1; i < argc; i++)
-    {
-      int arg_len = strlen (argv[i]);
-
-      if (arg_len > 4 && ! strcmp (&argv[i][arg_len - 4], ".ali"))
-	{
-	  if (done_an_ali)
-	    {
-	      fprintf (stderr,
-		       "Sorry - cannot handle more than one ALI file\n");
-	      exit (1);
-	    }
-
-	  done_an_ali = 1;
-
-	  if (__gnat_is_regular_file (argv[i]))
-	    {
-	      ali_file_name = argv[i];
-	      if (!linkonly)
-		{
-		  /* Run gnatbind */
-		  spawn_index = 0;
-		  spawn_args[spawn_index++] = binder_path;
-		  spawn_args[spawn_index++] = ali_file_name;
-		  for (j = 0 ; j <= bind_arg_index ; j++ )
-		    spawn_args[spawn_index++] = bind_args[j];
-		  spawn_args[spawn_index] = 0;
-
-		  if (verbose)
-		    {
-		      int i;
-		      for (i = 0; i < 2; i++)
-			printf ("%s ", spawn_args[i]);
-
-		      putchar ('\n');
-		    }
-
-		  retcode = __gnat_portable_spawn (spawn_args);
-		  if (retcode != 0)
-		    exit (retcode);
-		}
-	    }
-	  else
-	    addarg (argv[i]);
-	}
-#ifdef MSDOS
-      else if (!strcmp (argv[i], "-o"))
-	{
-	  addarg (argv[i]);
-	  if (i < argc)
-	    i++;
-
-	  {
-	    char *ptr = strstr (argv[i], ".exe");
-
-	    arg_len = strlen (argv[i]);
-	    coff2exe_args[1] = malloc (arg_len + 1);
-	    strcpy (coff2exe_args[1], argv[i]);
-	    if (ptr != NULL && strlen (ptr) == 4)
-	      coff2exe_args[1][arg_len-4] = 0;
-
-	    addarg (coff2exe_args[1]);
-	  }
-	}
-#endif
-      else
-	addarg (argv[i]);
-    }
-
-  if (! done_an_ali)
-    {
-      fprintf (stderr, "No \".ali\" file specified\n");
-      exit (1);
-    }
-
-  addarg (ali_file_name);
-  addarg (NULL);
-
-  if (verbose)
-    {
-      int i;
-
-      for (i = 0; i < link_arg_index; i++)
-	printf ("%s ", link_args[i]);
-
-      putchar ('\n');
-    }
-
-  retcode = __gnat_portable_spawn (link_args);
-  if (retcode != 0)
-    exit (retcode);
-
-#ifdef MSDOS
-  retcode = __gnat_portable_spawn (coff2exe_args);
-  if (retcode != 0)
-    exit (retcode);
-
-  if (!g_present)
-    {
-      del_command = malloc (strlen (coff2exe_args[1]) + 5);
-      sprintf (del_command, "del %s", coff2exe_args[1]);
-      retcode = system (del_command);
-    }
-#endif
-
-  exit(0);
-}