/[gcl]/gcl/lsp/gprof.hc
ViewVC logotype

Diff of /gcl/lsp/gprof.hc

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.1 by wfs, Mon Dec 6 22:44:06 1999 UTC revision 1.1.1.1.12.1 by camm, Fri Aug 22 17:09:42 2003 UTC
# Line 1  Line 1 
1    #include <bfd.h>
2    #include <bfdlink.h>
3  #define CF_FLAG (1 << 31)  #define CF_FLAG (1 << 31)
4    
5  static  static
# Line 6  mymonitor(low,high,x) Line 8  mymonitor(low,high,x)
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  */  */
# Line 77  write_outsyms() Line 79  write_outsyms()
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);

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.1.1.1.12.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26