WebSVN – Kolibri OS – Diff – /contrib/toolchain/binutils/gas/ecoff.c

 /* ECOFF debugging support.
-   Copyright 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
-, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012
-   Free Software Foundation, Inc.
+   Copyright (C) 1993-2015 Free Software Foundation, Inc.
    Contributed by Cygnus Support.
    This file was put together by Ian Lance Taylor .  A
    good deal of it comes directly from mips-tfile.c, by Michael
    Meissner .
 add_string (varray_t *vp,			/* string obstack */
 	    struct hash_control *hash_tbl,	/* ptr to hash table */
 	    const char *str,			/* string */
 	    shash_t **ret_hash			/* return hash pointer */)
+{
-  register unsigned long len = strlen (str);
+  unsigned long len = strlen (str);
-  register shash_t *hash_ptr;
+  shash_t *hash_ptr;
   if (len >= PAGE_USIZE)
     as_fatal (_("string too big (%lu bytes)"), len);
   hash_ptr = (shash_t *) hash_find (hash_tbl, str);
   if (hash_ptr == (shash_t *) NULL)
+    {
-      register const char *err;
+      const char *err;
       if (vp->objects_last_page + len >= PAGE_USIZE)
 		  bfd_vma addend,	/* addend to sym_value.  */
 		  symint_t value,	/* value of symbol */
 		  symint_t indx		/* index to local/aux. syms */)
+{
   localsym_t *psym;
-  register scope_t *pscope;
+  scope_t *pscope;
-  register thead_t *ptag_head;
+  thead_t *ptag_head;
-  register tag_t *ptag;
+  tag_t *ptag;
-  register tag_t *ptag_next;
+  tag_t *ptag_next;
-  register varray_t *vp;
+  varray_t *vp;
-  register int scope_delta = 0;
+  int scope_delta = 0;
   shash_t *hash_ptr = (shash_t *) NULL;
   if (cur_file_ptr == (efdr_t *) NULL)
    for integral aux types, not just symints.  */
 static symint_t
 add_aux_sym_symint (symint_t aux_word /* auxiliary information word */)
 {
-  register varray_t *vp;
+  varray_t *vp;
-  register aux_t *aux_ptr;
+  aux_t *aux_ptr;
   if (cur_file_ptr == (efdr_t *) NULL)
 /* Add an auxiliary symbol (passing a file/symbol index combo).  */
 static symint_t
 add_aux_sym_rndx (int file_index, symint_t sym_index)
 {
-  register varray_t *vp;
+  varray_t *vp;
-  register aux_t *aux_ptr;
+  aux_t *aux_ptr;
   if (cur_file_ptr == (efdr_t *) NULL)
 static symint_t
 add_aux_sym_tir (type_info_t *t,	/* current type information */
 		 hash_state_t state,	/* whether to hash type or not */
 		 thash_t **hash_tbl	/* pointer to hash table to use */)
+{
-  register varray_t *vp;
+  varray_t *vp;
-  register aux_t *aux_ptr;
+  aux_t *aux_ptr;
   static AUXU init_aux;
   symint_t ret;
   int i;
   AUXU aux;
      and others can be put into the hash list, but cannot use existing
      types because other aux entries precede this one.  */
   if (state != hash_no)
     {
-      register thash_t *hash_ptr;
+      thash_t *hash_ptr;
-      register symint_t hi;
+      symint_t hi;
       hi = aux.isym & ((1 << HASHBITS) - 1);
   if (t->basic_type == bt_Struct
       || t->basic_type == bt_Union
       || t->basic_type == bt_Enum)
     {
-      register symint_t file_index = t->tag_ptr->ifd;
+      symint_t file_index = t->tag_ptr->ifd;
-      register localsym_t *sym = t->tag_ptr->sym;
+      localsym_t *sym = t->tag_ptr->sym;
-      register forward_t *forward_ref = allocate_forward ();
+      forward_t *forward_ref = allocate_forward ();
       if (sym != (localsym_t *) NULL)
+	{
    this is the current procedure.  */
 static void
 add_procedure (char *func /* func name */)
 {
-  register varray_t *vp;
+  varray_t *vp;
-  register proc_t *new_proc_ptr;
+  proc_t *new_proc_ptr;
   symbolS *sym;
 #ifdef ECOFF_DEBUG
    where the current file structure lives.  */
 static void
 add_file (const char *file_name, int indx ATTRIBUTE_UNUSED, int fake)
 {
-  register int first_ch;
+  int first_ch;
-  register efdr_t *fil_ptr;
+  efdr_t *fil_ptr;
 #ifdef ECOFF_DEBUG
   if (debug)
       as_warn (_(".begin directive without a preceding .ent directive"));
       demand_empty_rest_of_line ();
       return;
+    }
-  name = input_line_pointer;
-  name_end = get_symbol_end ();
+  name_end = get_symbol_name (&name);
   (void) add_ecoff_symbol ((const char *) NULL, st_Block, sc_Text,
 			   symbol_find_or_make (name),
 			   (bfd_vma) 0, (symint_t) 0, (symint_t) 0);
-  *input_line_pointer = name_end;
+  (void) restore_line_pointer (name_end);
       as_warn (_(".bend directive without a preceding .ent directive"));
       demand_empty_rest_of_line ();
       return;
+    }
-  name = input_line_pointer;
-  name_end = get_symbol_end ();
+  name_end = get_symbol_name (&name);
   /* The value is the distance between the .bend directive and the
      corresponding symbol.  We fill in the offset when we write out
     as_warn (_(".bend directive names unknown symbol"));
   else
     (void) add_ecoff_symbol ((const char *) NULL, st_End, sc_Text, endsym,
 			     (bfd_vma) 0, (symint_t) 0, (symint_t) 0);
-  *input_line_pointer = name_end;
+  restore_line_pointer (name_end);
   /* The line number follows, but we don't use it.  */
   (void) get_absolute_expression ();
   ecoff_debugging_seen = 1;
-  SKIP_WHITESPACE ();
   SKIP_WHITESPACE ();
   name = input_line_pointer;
-  name_end = get_symbol_end ();
+  name_end = get_symbol_name (&name);
       coff_value = 0;
       coff_sym_value = (symbolS *) NULL;
       coff_sym_addend = 0;
+    }
-  *input_line_pointer = name_end;
+  restore_line_pointer (name_end);
   demand_empty_rest_of_line ();
       as_warn (_(".tag pseudo-op used outside of .def/.endef; ignored"));
       demand_empty_rest_of_line ();
       return;
+    }
-  name = input_line_pointer;
-  name_end = get_symbol_end ();
+  name_end = get_symbol_name (&name);
   coff_tag = xstrdup (name);
-  *input_line_pointer = name_end;
+  (void) restore_line_pointer (name_end);
       as_warn (_(".end directive without a preceding .ent directive"));
       demand_empty_rest_of_line ();
       return;
+    }
-  name = input_line_pointer;
-  name_end = get_symbol_end ();
+  name_end = get_symbol_name (&name);
   if (name == input_line_pointer)
     {
       as_warn (_(".end directive has no name"));
-      *input_line_pointer = name_end;
+      (void) restore_line_pointer (name_end);
       demand_empty_rest_of_line ();
       return;
 					 frag_now),
 			     (bfd_vma) 0, (symint_t) 0, (symint_t) 0);
   cur_proc_ptr = (proc_t *) NULL;
-  *input_line_pointer = name_end;
+  (void) restore_line_pointer (name_end);
   demand_empty_rest_of_line ();
+}
       as_warn (_("second .ent directive found before .end directive"));
       demand_empty_rest_of_line ();
       return;
+    }
-  name = input_line_pointer;
-  name_end = get_symbol_end ();
+  name_end = get_symbol_name (&name);
   if (name == input_line_pointer)
     {
       as_warn (_(".ent directive has no name"));
-      *input_line_pointer = name_end;
+      (void) restore_line_pointer (name_end);
       demand_empty_rest_of_line ();
       return;
     }
   add_procedure (name);
-  *input_line_pointer = name_end;
+  (void) restore_line_pointer (name_end);
   char *name;
   int c;
   symbolS *symbolp;
   valueT size;
-  name = input_line_pointer;
-  c = get_symbol_end ();
+  c = get_symbol_name (&name);
   symbolp = symbol_find_or_make (name);
-  *input_line_pointer = c;
+  (void) restore_line_pointer (c);
   S_SET_EXTERNAL (symbolp);
   char *name;
   int c;
   symbolS *symbolP;
   expressionS exp;
-  name = input_line_pointer;
-  c = get_symbol_end ();
+  c = get_symbol_name (&name);
   symbolP = symbol_find_or_make (name);
-  *input_line_pointer = c;
+  (void) restore_line_pointer (c);
   SKIP_WHITESPACE ();
 	  as_warn (_("line number (%d) for .stab%c directive cannot fit in index field (20 bits)"),
 		   desc, what);
 	  return;
+	}
-      name = input_line_pointer;
-      name_end = get_symbol_end ();
       name_end = get_symbol_name (&name);
       sym = symbol_find_or_make (name);
-      *input_line_pointer = name_end;
+      (void) restore_line_pointer (name_end);
       value = 0;
       addend = 0;
 		    char **bufend,
 		    unsigned long offset,
 		    long *linecntptr)
+{
   char *bufptr;
-  register lineno_list_t *l;
+  lineno_list_t *l;
   lineno_list_t *last;
   efdr_t *file;
   proc_t *proc;
   unsigned long c;
   long iline;
    calls a backend function to deal with it.  */
 static void
 ecoff_setup_ext (void)
 {
-  register symbolS *sym;
+  symbolS *sym;
   for (sym = symbol_rootP; sym != (symbolS *) NULL; sym = symbol_next (sym))
+    {
 #ifndef MALLOC_CHECK
 static page_type *
 allocate_cluster (unsigned long npages)
 {
-  register page_type *value = (page_type *) xmalloc (npages * PAGE_USIZE);
+  page_type *value = (page_type *) xmalloc (npages * PAGE_USIZE);
 #ifdef ECOFF_DEBUG
   if (debug > 3)
 /* Allocate scoping information.  */
 static scope_t *
 allocate_scope (void)
 {
-  register scope_t *ptr;
+  scope_t *ptr;
   static scope_t initial_scope;
 #ifndef MALLOC_CHECK
   ptr = alloc_counts[(int) alloc_type_scope].free_list.f_scope;
   if (ptr != (scope_t *) NULL)
     alloc_counts[(int) alloc_type_scope].free_list.f_scope = ptr->free;
   else
+    {
-      register int unallocated	= alloc_counts[(int) alloc_type_scope].unallocated;
+      int unallocated	= alloc_counts[(int) alloc_type_scope].unallocated;
-      register page_type *cur_page	= alloc_counts[(int) alloc_type_scope].cur_page;
+      page_type *cur_page	= alloc_counts[(int) alloc_type_scope].cur_page;
 /* Allocate links for pages in a virtual array.  */
 static vlinks_t *
 allocate_vlinks (void)
 {
-  register vlinks_t *ptr;
+  vlinks_t *ptr;
   static vlinks_t initial_vlinks;
 #ifndef MALLOC_CHECK
-  register int unallocated = alloc_counts[(int) alloc_type_vlinks].unallocated;
+  int unallocated = alloc_counts[(int) alloc_type_vlinks].unallocated;
-  register page_type *cur_page = alloc_counts[(int) alloc_type_vlinks].cur_page;
+  page_type *cur_page = alloc_counts[(int) alloc_type_vlinks].cur_page;
 /* Allocate string hash buckets.  */
 static shash_t *
 allocate_shash (void)
 {
-  register shash_t *ptr;
+  shash_t *ptr;
   static shash_t initial_shash;
 #ifndef MALLOC_CHECK
-  register int unallocated = alloc_counts[(int) alloc_type_shash].unallocated;
+  int unallocated = alloc_counts[(int) alloc_type_shash].unallocated;
-  register page_type *cur_page = alloc_counts[(int) alloc_type_shash].cur_page;
+  page_type *cur_page = alloc_counts[(int) alloc_type_shash].cur_page;
 /* Allocate type hash buckets.  */
 static thash_t *
 allocate_thash (void)
 {
-  register thash_t *ptr;
+  thash_t *ptr;
   static thash_t initial_thash;
 #ifndef MALLOC_CHECK
-  register int unallocated = alloc_counts[(int) alloc_type_thash].unallocated;
+  int unallocated = alloc_counts[(int) alloc_type_thash].unallocated;
-  register page_type *cur_page = alloc_counts[(int) alloc_type_thash].cur_page;
+  page_type *cur_page = alloc_counts[(int) alloc_type_thash].cur_page;
 /* Allocate structure, union, or enum tag information.  */
 static tag_t *
 allocate_tag (void)
 {
-  register tag_t *ptr;
+  tag_t *ptr;
   static tag_t initial_tag;
 #ifndef MALLOC_CHECK
   ptr = alloc_counts[(int) alloc_type_tag].free_list.f_tag;
   if (ptr != (tag_t *) NULL)
     alloc_counts[(int) alloc_type_tag].free_list.f_tag = ptr->free;
   else
+    {
-      register int unallocated = alloc_counts[(int) alloc_type_tag].unallocated;
+      int unallocated = alloc_counts[(int) alloc_type_tag].unallocated;
-      register page_type *cur_page = alloc_counts[(int) alloc_type_tag].cur_page;
+      page_type *cur_page = alloc_counts[(int) alloc_type_tag].cur_page;
 /* Allocate forward reference to a yet unknown tag.  */
 static forward_t *
 allocate_forward (void)
 {
-  register forward_t *ptr;
+  forward_t *ptr;
   static forward_t initial_forward;
 #ifndef MALLOC_CHECK
-  register int unallocated = alloc_counts[(int) alloc_type_forward].unallocated;
+  int unallocated = alloc_counts[(int) alloc_type_forward].unallocated;
-  register page_type *cur_page = alloc_counts[(int) alloc_type_forward].cur_page;
+  page_type *cur_page = alloc_counts[(int) alloc_type_forward].cur_page;
 /* Allocate head of type hash list.  */
 static thead_t *
 allocate_thead (void)
 {
-  register thead_t *ptr;
+  thead_t *ptr;
   static thead_t initial_thead;
 #ifndef MALLOC_CHECK
   ptr = alloc_counts[(int) alloc_type_thead].free_list.f_thead;
   if (ptr != (thead_t *) NULL)
     alloc_counts[(int) alloc_type_thead].free_list.f_thead = ptr->free;
   else
+    {
-      register int unallocated = alloc_counts[(int) alloc_type_thead].unallocated;
+      int unallocated = alloc_counts[(int) alloc_type_thead].unallocated;
-      register page_type *cur_page = alloc_counts[(int) alloc_type_thead].cur_page;
+      page_type *cur_page = alloc_counts[(int) alloc_type_thead].cur_page;
+}
 static lineno_list_t *
 allocate_lineno_list (void)
+{
-  register lineno_list_t *ptr;
+  lineno_list_t *ptr;
   static lineno_list_t initial_lineno_list;
 #ifndef MALLOC_CHECK
-  register int unallocated = alloc_counts[(int) alloc_type_lineno].unallocated;
+  int unallocated = alloc_counts[(int) alloc_type_lineno].unallocated;
-  register page_type *cur_page = alloc_counts[(int) alloc_type_lineno].cur_page;
+  page_type *cur_page = alloc_counts[(int) alloc_type_lineno].cur_page;
   if (unallocated == 0)

Subversion Repositories Kolibri OS

(root)/contrib/toolchain/binutils/gas/ecoff.c – Rev 5222 → 6324