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; |
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], |
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: |
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], |