/[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.1.1.1 by wfs, Mon Dec 6 22:44:14 1999 UTC revision 1.2 by camm, Thu Jun 6 20:41:26 2002 UTC
# Line 47  siGxdr_write(str,elt) Line 47  siGxdr_write(str,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;         if(!xdr_int(xdrp,&fix(elt))) goto error;
51          return elt;          return elt;
52       case t_longfloat:       case t_longfloat:
53         if(!xdr_double(xdrp,&lf(elt))) goto error;         if(!xdr_double(xdrp,&lf(elt))) goto error;
# Line 56  siGxdr_write(str,elt) Line 56  siGxdr_write(str,elt)
56         if(!xdr_float(xdrp,&sf(elt))) goto error;         if(!xdr_float(xdrp,&sf(elt))) goto error;
57          return elt;          return elt;
58       case t_vector:       case t_vector:
59         if(!xdr_array(xdrp,&elt->v.v_self,         if(!xdr_array(xdrp,(char **)&elt->v.v_self,
60                   &elt->v.v_fillp,                   &elt->v.v_fillp,
61                   elt->v.v_dim,                   elt->v.v_dim,
62                   aet_sizes[elt->v.v_elttype],                   aet_sizes[elt->v.v_elttype],
# Line 83  siGxdr_read(str,elt) Line 83  siGxdr_read(str,elt)
83     { case t_fixnum:     { case t_fixnum:
84         {int l;         {int l;
85                    
86         if(!xdr_long(xdrp,&l)) goto error;         if(!xdr_int(xdrp,&l)) goto error;
87          return make_fixnum(l);}          return make_fixnum(l);}
88         break;         break;
89       case t_longfloat:       case t_longfloat:
# Line 95  siGxdr_read(str,elt) Line 95  siGxdr_read(str,elt)
95         if(!xdr_float(xdrp,&x)) goto error;         if(!xdr_float(xdrp,&x)) goto error;
96          return make_shortfloat(x);}          return make_shortfloat(x);}
97       case t_vector:       case t_vector:
98        if(! xdr_array(xdrp,&elt->v.v_self,        if(! xdr_array(xdrp,(char **)&elt->v.v_self,
99                   &elt->v.v_fillp,                   &elt->v.v_fillp,
100                   elt->v.v_dim,                   elt->v.v_dim,
101                   aet_sizes[elt->v.v_elttype],                   aet_sizes[elt->v.v_elttype],

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

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