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

Diff of /gcl/o/plt.c

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

revision 1.10 by camm, Mon Apr 11 19:26:17 2005 UTC revision 1.11 by camm, Fri Jun 10 15:19:36 2005 UTC
# Line 143  parse_plt() { Line 143  parse_plt() {
143    
144    for (;p<pe;p++)    for (;p<pe;p++)
145      if ((op=bsearch(p->n,ar->v.v_self,ar->v.v_dim,sizeof(*ar->v.v_self),arsearch)) &&      if ((op=bsearch(p->n,ar->v.v_self,ar->v.v_dim,sizeof(*ar->v.v_self),arsearch)) &&
146          (*op)->c.c_cdr->FIX.FIXVAL != p->ad)          fix((*op)->c.c_cdr) != p->ad)
147        FEerror("plt/ld address mismatch",0);        FEerror("plt/ld address mismatch",0);
148    
149    sSAplt_tableA->s.s_dbind=ar;    sSAplt_tableA->s.s_dbind=ar;
# Line 165  my_plt(const char *s,unsigned long *v) { Line 165  my_plt(const char *s,unsigned long *v) {
165                   sSAplt_tableA->s.s_dbind->v.v_dim,                   sSAplt_tableA->s.s_dbind->v.v_dim,
166                   sizeof(*sSAplt_tableA->s.s_dbind->v.v_self),                   sizeof(*sSAplt_tableA->s.s_dbind->v.v_self),
167                   arsearch))) {                   arsearch))) {
168      *v=(*op)->c.c_cdr->FIX.FIXVAL;      *v=fix((*op)->c.c_cdr);
169      return 0;      return 0;
170    }    }
171            

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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