1 |
|
#include <bfd.h> |
2 |
|
#include <bfdlink.h> |
3 |
#define CF_FLAG (1 << 31) |
#define CF_FLAG (1 << 31) |
4 |
|
|
5 |
static |
static |
8 |
int low,high; |
int low,high; |
9 |
object x; |
object x; |
10 |
{ if (0 == x) {monitor(0); return 0;} |
{ if (0 == x) {monitor(0); return 0;} |
11 |
if (type_of(x)!=t_string) FEerror("expected string"); |
if (type_of(x)!=t_string) FEerror("expected string",0); |
12 |
monitor(low,high,x->ust.ust_self,x->ust.ust_dim,1000); |
monitor(low,high,x->ust.ust_self,x->ust.ust_dim,1000); |
13 |
} |
} |
14 |
*/ |
*/ |
79 |
struct fileheader hdr; |
struct fileheader hdr; |
80 |
fdout= fopen("syms.out","w"); |
fdout= fopen("syms.out","w"); |
81 |
fdin=fopen(kcl_self,"r"); |
fdin=fopen(kcl_self,"r"); |
82 |
if (fdin == 0) FEerror("Can't find akcl image"); |
if (fdin == 0) FEerror("Can't find akcl image",0); |
83 |
fread(&hdr,sizeof(hdr),1,fdin); |
fread(&hdr,sizeof(hdr),1,fdin); |
84 |
if (fdout == 0) FEerror("Can't open syms.out"); |
if (fdout == 0) FEerror("Can't open syms.out",0); |
85 |
fclose(fdin); |
fclose(fdin); |
86 |
sym.n_type= (N_TEXT | N_EXT); |
sym.n_type= (N_TEXT | N_EXT); |
87 |
hdr.a_text=sizeof(hdr); |
hdr.a_text=sizeof(hdr); |