1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
/* $OpenBSD: debug.c,v 1.2 1998/02/15 18:48:44 niklas Exp $ */
/* This file is debug.c
Copyright (C) 1987-1992 Free Software Foundation, Inc.
This file is part of GAS, the GNU Assembler.
GAS 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 2, or (at your option)
any later version.
GAS 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.
You should have received a copy of the GNU General Public License
along with GAS; see the file COPYING. If not, write to
the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
/* Routines for debug use only. */
#ifndef lint
static char rcsid[] = "$OpenBSD: debug.c,v 1.2 1998/02/15 18:48:44 niklas Exp $";
#endif
#include "as.h"
#include "subsegs.h"
dmp_frags()
{
frchainS *chp;
char *p;
for ( chp=frchain_root; chp; chp = chp->frch_next ){
switch ( chp->frch_seg ){
case SEG_DATA:
p ="Data";
break;
case SEG_TEXT:
p ="Text";
break;
default:
p ="???";
break;
}
printf("\nSEGMENT %s %d\n", p, chp->frch_subseg);
dmp_frag( chp->frch_root,"\t");
}
}
dmp_frag( fp, indent )
struct frag *fp;
char *indent;
{
for ( ; fp; fp = fp->fr_next ){
printf("%sFRAGMENT @ 0x%x\n", indent, fp);
switch( fp->fr_type ){
case rs_align:
printf("%srs_align(%d)\n",indent, fp->fr_offset);
break;
case rs_fill:
printf("%srs_fill(%d)\n",indent, fp->fr_offset);
printf("%s", indent);
var_chars( fp, fp->fr_var + fp->fr_fix );
printf("%s\t repeated %d times,",
indent, fp->fr_offset);
printf(" fixed length if # chars == 0)\n");
break;
case rs_org:
printf("%srs_org(%d+sym @0x%x)\n",indent,
fp->fr_offset, fp->fr_symbol);
printf("%sfill with ",indent);
var_chars( fp, 1 );
printf("\n");
break;
case rs_machine_dependent:
printf("%smachine_dep\n",indent);
break;
default:
printf("%sunknown type\n",indent);
break;
}
printf("%saddr=%d(0x%x)\n",indent,fp->fr_address,fp->fr_address);
printf("%sfr_fix=%d\n",indent,fp->fr_fix);
printf("%sfr_var=%d\n",indent,fp->fr_var);
printf("%sfr_offset=%d\n",indent,fp->fr_offset);
printf("%schars @ 0x%x\n",indent,fp->fr_literal);
printf("\n");
}
}
var_chars( fp, n )
struct frag *fp;
int n;
{
unsigned char *p;
for ( p=(unsigned char*)fp->fr_literal; n; n-- , p++ ){
printf("%02x ", *p );
}
}
/* end of debug.c */
|
