1: /* This file is debug.c
    2:    Copyright 1987, 1988, 1989, 1990, 1991, 1992, 2000, 2006, 2007
    3:    Free Software Foundation, Inc.
    4: 
    5:    This file is part of GAS, the GNU Assembler.
    6: 
    7:    GAS is free software; you can redistribute it and/or modify
    8:    it under the terms of the GNU General Public License as published by
    9:    the Free Software Foundation; either version 3, or (at your option)
   10:    any later version.
   11: 
   12:    GAS is distributed in the hope that it will be useful,
   13:    but WITHOUT ANY WARRANTY; without even the implied warranty of
   14:    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   15:    GNU General Public License for more details.
   16: 
   17:    You should have received a copy of the GNU General Public License
   18:    along with GAS; see the file COPYING.  If not, write to
   19:    the Free Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.  */
   20: 
   21: /* Routines for debug use only.  */
   22: 
   23: #include "as.h"
   24: #include "subsegs.h"
   25: 
   26: dmp_frags ()
   27: {
   28:   asection *s;
   29:   frchainS *chp;
   30:   char *p;
   31: 
   32:   for (s = stdoutput->sections; s; s = s->next)
   33:     for (chp = seg_info (s)->frchainP; chp; chp = chp->frch_next)
   34:       {
   35:         switch (s)
   36:           {
   37:           case SEG_DATA:
   38:             p = "Data";
   39:             break;
   40:           case SEG_TEXT:
   41:             p = "Text";
   42:             break;
   43:           default:
   44:             p = "???";
   45:             break;
   46:           }
   47:         printf ("\nSEGMENT %s %d\n", p, chp->frch_subseg);
   48:         dmp_frag (chp->frch_root, "\t");
   49:       }
   50: }
   51: 
   52: dmp_frag (fp, indent)
   53:      struct frag *fp;
   54:      char *indent;
   55: {
   56:   for (; fp; fp = fp->fr_next)
   57:     {
   58:       printf ("%sFRAGMENT @ 0x%x\n", indent, fp);
   59:       switch (fp->fr_type)
   60:         {
   61:         case rs_align:
   62:           printf ("%srs_align(%d)\n", indent, fp->fr_offset);
   63:           break;
   64:         case rs_fill:
   65:           printf ("%srs_fill(%d)\n", indent, fp->fr_offset);
   66:           printf ("%s", indent);
   67:           var_chars (fp, fp->fr_var + fp->fr_fix);
   68:           printf ("%s\t repeated %d times,", indent, fp->fr_offset);
   69:           printf (" fixed length if # chars == 0)\n");
   70:           break;
   71:         case rs_org:
   72:           printf ("%srs_org(%d+sym @0x%x)\n", indent,
   73:                   fp->fr_offset, fp->fr_symbol);
   74:           printf ("%sfill with ", indent);
   75:           var_chars (fp, 1);
   76:           printf ("\n");
   77:           break;
   78:         case rs_machine_dependent:
   79:           printf ("%smachine_dep\n", indent);
   80:           break;
   81:         default:
   82:           printf ("%sunknown type\n", indent);
   83:           break;
   84:         }
   85:       printf ("%saddr=%d(0x%x)\n", indent, fp->fr_address, fp->fr_address);
   86:       printf ("%sfr_fix=%d\n", indent, fp->fr_fix);
   87:       printf ("%sfr_var=%d\n", indent, fp->fr_var);
   88:       printf ("%sfr_offset=%d\n", indent, fp->fr_offset);
   89:       printf ("%schars @ 0x%x\n", indent, fp->fr_literal);
   90:       printf ("\n");
   91:     }
   92: }
   93: 
   94: var_chars (fp, n)
   95:      struct frag *fp;
   96:      int n;
   97: {
   98:   unsigned char *p;
   99: 
  100:   for (p = (unsigned char *) fp->fr_literal; n; n--, p++)
  101:     {
  102:       printf ("%02x ", *p);
  103:     }
  104: }
  105: 
  106: /* end of debug.c */