remove more unused code

5 files changed, 6 insertions, 193 deletions

diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c
index 184953f..9678771 100755
--- a/gcc/dwarf2out.c
+++ b/gcc/dwarf2out.c
@@ -224,10 +224,6 @@ static unsigned reg_number		(rtx);
 #endif
 #endif
 
-#ifndef FRAME_SECTION
-#define FRAME_SECTION		".debug_frame"
-#endif
-
 #ifndef FUNC_BEGIN_LABEL
 #define FUNC_BEGIN_LABEL	"LFB"
 #endif
@@ -459,29 +455,6 @@ static unsigned reg_number		(rtx);
   while (0)
 #endif
 
-/* The DWARF 2 CFA column which tracks the return address.  Normally this
-   is the column for PC, or the first column after all of the hard
-   registers.  */
-#ifndef DWARF_FRAME_RETURN_COLUMN
-#ifdef PC_REGNUM
-#define DWARF_FRAME_RETURN_COLUMN 	DWARF_FRAME_REGNUM (PC_REGNUM)
-#else
-#define DWARF_FRAME_RETURN_COLUMN 	FIRST_PSEUDO_REGISTER
-#endif
-#endif
-
-/* The mapping from gcc register number to DWARF 2 CFA column number.  By
-   default, we just provide columns for all registers.  */
-#ifndef DWARF_FRAME_REGNUM
-#define DWARF_FRAME_REGNUM(REG) DBX_REGISTER_NUMBER (REG)
-#endif
-
-/* The offset from the incoming value of %sp to the top of the stack frame
-   for the current function.  */
-#ifndef INCOMING_FRAME_SP_OFFSET
-#define INCOMING_FRAME_SP_OFFSET 0
-#endif
-
 /* Return a pointer to a copy of the section string name S with all
    attributes stripped off, and an asterisk prepended (for assemble_name).  */
 
@@ -519,15 +492,6 @@ reg_number (rtl)
   return regno;
 }
 
-/* The current rule for calculating the DWARF2 canonical frame address.  */
-static unsigned long cfa_reg;
-static long cfa_offset;
-
-/* The register used for saving registers to the stack, and its offset
-   from the CFA.  */
-static unsigned cfa_store_reg;
-static long cfa_store_offset;
-
 /* The running total of the size of arguments pushed onto the stack.  */
 static long args_size;
 
@@ -864,11 +828,6 @@ typedef struct limbo_die_struct
 }
 limbo_die_node;
 
-/* How to start an assembler comment.  */
-#ifndef ASM_COMMENT_START
-#define ASM_COMMENT_START ";#"
-#endif
-
 /* Define a macro which returns non-zero for a TYPE_DECL which was
    implicitly generated for a tagged type.
 
diff --git a/gcc/getpwd.c b/gcc/getpwd.c
index f6d87b9..a6c6615 100755
--- a/gcc/getpwd.c
+++ b/gcc/getpwd.c
@@ -5,6 +5,10 @@
 
 #if !( defined(_WIN32) && !defined(__CYGWIN__))
 
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <unistd.h>
+
 /* Get the working directory.  Use the PWD environment variable if it's
    set correctly, since this is faster and gives more uniform answers
    to the user.  Yield the working directory if successful; otherwise,
@@ -54,6 +58,8 @@ getpwd ()
 
 #else	/* _WIN32 && !__CYGWIN__ */
 
+#include <direct.h>
+
 char *
 getpwd ()
 {
diff --git a/gcc/system.h b/gcc/system.h
index 5cac102..26ee715 100755
--- a/gcc/system.h
+++ b/gcc/system.h
@@ -67,13 +67,6 @@ Boston, MA 02111-1307, USA.  */
 #include <time.h>
 #include <limits.h>
 
-#include <unistd.h>
-#include <sys/types.h>
-#include <sys/stat.h>
-#include <sys/param.h>
-#include <sys/time.h>
-#include <fcntl.h>
-
 /* Some systems define these in, e.g., param.h.  We undefine these names
    here to avoid the warnings.  We prefer to use our definitions since we
    know they are correct.  */
diff --git a/gcc/tree.c b/gcc/tree.c
index c7abe4e..ff5cac2 100755
--- a/gcc/tree.c
+++ b/gcc/tree.c
@@ -265,7 +265,6 @@ int (*lang_get_alias_set) (tree);
 #define TYPE_HASH(TYPE) ((unsigned long) (TYPE) & 0777777)
 
 static void set_type_quals (tree, int);
-static void append_random_chars (char *);
 
 extern char *mode_name[];
 
@@ -4766,146 +4765,10 @@ dump_tree_statistics ()
   print_inline_obstack_statistics ();
 }
 
-#define FILE_FUNCTION_PREFIX_LEN 9
-
-#ifndef NO_DOLLAR_IN_LABEL
-#define FILE_FUNCTION_FORMAT "_GLOBAL_$%s$%s"
-#else /* NO_DOLLAR_IN_LABEL */
-#ifndef NO_DOT_IN_LABEL
-#define FILE_FUNCTION_FORMAT "_GLOBAL_.%s.%s"
-#else /* NO_DOT_IN_LABEL */
-#define FILE_FUNCTION_FORMAT "_GLOBAL__%s_%s"
-#endif	/* NO_DOT_IN_LABEL */
-#endif	/* NO_DOLLAR_IN_LABEL */
 
 extern char * first_global_object_name;
 extern char * weak_global_object_name;
 
-/* Appends 6 random characters to TEMPLATE to (hopefully) avoid name
-   clashes in cases where we can't reliably choose a unique name.
-
-   Derived from mkstemp.c in libiberty.  */
-
-static void
-append_random_chars (template)
-     char *template;
-{
-  static const char letters[]
-    = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789";
-  static HOST_WIDE_UINT value;
-  HOST_WIDE_UINT v;
-
-#ifdef HAVE_GETTIMEOFDAY
-  struct timeval tv;
-#endif
-
-  template += strlen (template);
-
-#ifdef HAVE_GETTIMEOFDAY
-  /* Get some more or less random data.  */
-  gettimeofday (&tv, NULL);
-  value += ((HOST_WIDE_UINT) tv.tv_usec << 16) ^ tv.tv_sec ^ getpid ();
-#else
-  value += getpid ();
-#endif
-
-  v = value;
-
-  /* Fill in the random bits.  */
-  template[0] = letters[v % 62];
-  v /= 62;
-  template[1] = letters[v % 62];
-  v /= 62;
-  template[2] = letters[v % 62];
-  v /= 62;
-  template[3] = letters[v % 62];
-  v /= 62;
-  template[4] = letters[v % 62];
-  v /= 62;
-  template[5] = letters[v % 62];
-
-  template[6] = '\0';
-}
-
-/* Generate a name for a function unique to this translation unit.
-   TYPE is some string to identify the purpose of this function to the
-   linker or collect2.  */
-
-tree
-get_file_function_name_long (type)
-     char *type;
-{
-  char *buf;
-  register char *p;
-
-  if (first_global_object_name)
-    p = first_global_object_name;
-  else
-    {
-      /* We don't have anything that we know to be unique to this translation
-	 unit, so use what we do have and throw in some randomness.  */
-
-      char *name = weak_global_object_name;
-      char *file = main_input_filename;
-
-      if (! name)
-	name = "";
-      if (! file)
-	file = input_filename;
-
-      p = (char *) alloca (7 + strlen (name) + strlen (file));
-
-      sprintf (p, "%s%s", name, file);
-      append_random_chars (p);
-    }
-
-  buf = (char *) alloca (sizeof (FILE_FUNCTION_FORMAT) + strlen (p)
-			 + strlen (type));
-
-  /* Set up the name of the file-level functions we may need.  */
-  /* Use a global object (which is already required to be unique over
-     the program) rather than the file name (which imposes extra
-     constraints).  -- Raeburn@MIT.EDU, 10 Jan 1990.  */
-  sprintf (buf, FILE_FUNCTION_FORMAT, type, p);
-
-  /* Don't need to pull weird characters out of global names.  */
-  if (p != first_global_object_name)
-    {
-      for (p = buf+11; *p; p++)
-	if (! ((*p >= '0' && *p <= '9')
-#if 0 /* we always want labels, which are valid C++ identifiers (+ `$') */
-#ifndef ASM_IDENTIFY_GCC	/* this is required if `.' is invalid -- k. raeburn */
-	       || *p == '.'
-#endif
-#endif
-#ifndef NO_DOLLAR_IN_LABEL	/* this for `$'; unlikely, but... -- kr */
-	       || *p == '$'
-#endif
-#ifndef NO_DOT_IN_LABEL		/* this for `.'; unlikely, but...  */
-	       || *p == '.'
-#endif
-	       || (*p >= 'A' && *p <= 'Z')
-	       || (*p >= 'a' && *p <= 'z')))
-	  *p = '_';
-    }
-
-  return get_identifier (buf);
-}
-
-/* If KIND=='I', return a suitable global initializer (constructor) name.
-   If KIND=='D', return a suitable global clean-up (destructor) name.  */
-
-tree
-get_file_function_name (kind)
-     int kind;
-{
-  char p[2];
-  p[0] = kind;
-  p[1] = 0;
-
-  return get_file_function_name_long (p);
-}
-
 
 /* Expand (the constant part of) a SET_TYPE CONSTRUCTOR node.
    The result is placed in BUFFER (which has length BIT_SIZE),
diff --git a/gcc/tree.h b/gcc/tree.h
index e2a1c4a..bd5536a 100755
--- a/gcc/tree.h
+++ b/gcc/tree.h
@@ -1884,8 +1884,6 @@ extern void (*incomplete_decl_finalize_hook)	(tree);
 
 /* In tree.c */
 extern char *perm_calloc			(int, long);
-extern tree get_file_function_name		(int);
-extern tree get_file_function_name_long 	(char *);
 extern tree get_set_constructor_bits		(tree, char *, int);
 extern tree get_set_constructor_bytes		(tree,
 						       unsigned char *, int);
@@ -2074,7 +2072,6 @@ extern void preserve_momentary		(void);
 extern void saveable_allocation		(void);
 extern void temporary_allocation	(void);
 extern void resume_temporary_allocation	(void);
-extern tree get_file_function_name	(int);
 extern void set_identifier_size		(int);
 extern int int_fits_type_p		(tree, tree);
 extern int tree_log2			(tree);
@@ -2240,11 +2237,6 @@ extern HOST_WIDE_INT all_cases_count	(tree, int *);
 extern void check_for_full_enumeration_handling (tree);
 extern void declare_nonlocal_label	(tree);
 
-
-/* If KIND=='I', return a suitable global initializer (constructor) name.
-   If KIND=='D', return a suitable global clean-up (destructor) name.  */
-extern tree get_file_function_name (int);
-
 /* Interface of the DWARF2 unwind info support.  */
 
 /* Decide whether we want to emit frame unwind information for the current