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

Diff of /gcl/o/xdrfuns.c

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

revision 1.7 by camm, Thu Nov 6 16:08:12 2003 UTC revision 1.8 by camm, Fri Jun 10 15:19:36 2005 UTC
# Line 47  FFN(siGxdr_write)(object str,object elt) Line 47  FFN(siGxdr_write)(object str,object elt)
47    
48    switch (type_of(elt)) {    switch (type_of(elt)) {
49    case t_fixnum:    case t_fixnum:
50      if(!xdr_long(xdrp,&fix(elt))) goto error;      {fixnum f=fix(elt);
51        if(!xdr_long(xdrp,&f)) goto error;}
52      break;      break;
53    case t_longfloat:    case t_longfloat:
54      if(!xdr_double(xdrp,&lf(elt))) goto error;      if(!xdr_double(xdrp,&lf(elt))) goto error;
# Line 75  FFN(siGxdr_write)(object str,object elt) Line 76  FFN(siGxdr_write)(object str,object elt)
76        goto error;        goto error;
77        break;        break;
78      }      }
79      if(!xdr_array(xdrp,(char **)&elt->v.v_self,      {
80                    &elt->v.v_fillp,        u_int tmp=elt->v.v_fillp;
81                    elt->v.v_dim,        if (tmp!=elt->v.v_fillp)
82                    aet_sizes[elt->v.v_elttype],          goto error;
83                    e))        if(!xdr_array(xdrp,(char **)&elt->v.v_self,
84        goto error;                      &tmp,
85                        elt->v.v_dim,
86                        aet_sizes[elt->v.v_elttype],
87                        e))
88            goto error;
89        }
90      break;      break;
91    default:    default:
92      FEerror("unsupported xdr ~a",1,elt);      FEerror("unsupported xdr ~a",1,elt);
# Line 132  FFN(siGxdr_read)(object str,object elt) Line 138  FFN(siGxdr_read)(object str,object elt)
138        break;        break;
139      }      }
140    
141      if(!xdr_array(xdrp,(char **)&elt->v.v_self,      {
142                    &elt->v.v_fillp,        u_int tmp=elt->v.v_fillp;
143                    elt->v.v_dim,        if (tmp!=elt->v.v_fillp)
144                    aet_sizes[elt->v.v_elttype],          goto error;
145                    e))        if(!xdr_array(xdrp,(char **)&elt->v.v_self,
146        goto error;                      &tmp,
147                        elt->v.v_dim,
148                        aet_sizes[elt->v.v_elttype],
149                        e))
150            goto error;
151        }
152      return elt;      return elt;
153      break;      break;
154    default:    default:

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