/[gcl]/gcl/o/sfaslbfd.c
ViewVC logotype

Diff of /gcl/o/sfaslbfd.c

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

revision 1.7 by camm, Tue Aug 13 03:59:56 2002 UTC revision 1.8 by camm, Fri Oct 11 19:47:55 2002 UTC
# Line 186  fasload(object faslfile) { Line 186  fasload(object faslfile) {
186    object *old_vs_top=vs_top;    object *old_vs_top=vs_top;
187    static int nbfd;    static int nbfd;
188    bfd *b;    bfd *b;
189      bfd_error_type myerr;
190    unsigned u,v;    unsigned u,v;
191    asymbol **q;    asymbol **q;
192    asection *s;    asection *s;
# Line 223  fasload(object faslfile) { Line 224  fasload(object faslfile) {
224    
225    if (!(b=bfd_openr(filename,0)))    if (!(b=bfd_openr(filename,0)))
226      FEerror("Cannot open bfd");      FEerror("Cannot open bfd");
227      if ((myerr=bfd_get_error()) && myerr!=3)
228        FEerror("Unknown bfd error code on openr");
229    if (!bfd_check_format(b,bfd_object))    if (!bfd_check_format(b,bfd_object))
230      FEerror("Unknown bfd format");      FEerror("Unknown bfd format");
231        if ((myerr=bfd_get_error()) && myerr!=3)
232        FEerror("Unknown bfd error code on check_format");
233      bfd_set_error(0);
234    
235    current=NULL;    current=NULL;
236    for (s=b->sections;s;s=s->next) {    for (s=b->sections;s;s=s->next) {
237    

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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