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; |
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); |
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: |