/[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.8 by camm, Fri Jun 10 15:19:36 2005 UTC revision 1.9 by camm, Sun Sep 18 02:48:59 2005 UTC
# Line 22  License for more details. Line 22  License for more details.
22  #endif  #endif
23  #include <rpc/rpc.h>  #include <rpc/rpc.h>
24    
25  extern short aet_sizes[];  extern aet_type_struct aet_types[];
26  static object  static object
27  FFN(siGxdr_open)(f)  FFN(siGxdr_open)(f)
28       object f;       object f;
# Line 83  FFN(siGxdr_write)(object str,object elt) Line 83  FFN(siGxdr_write)(object str,object elt)
83        if(!xdr_array(xdrp,(char **)&elt->v.v_self,        if(!xdr_array(xdrp,(char **)&elt->v.v_self,
84                      &tmp,                      &tmp,
85                      elt->v.v_dim,                      elt->v.v_dim,
86                      aet_sizes[elt->v.v_elttype],                      aet_types[elt->v.v_elttype].size,
87                      e))                      e))
88          goto error;          goto error;
89      }      }
# Line 145  FFN(siGxdr_read)(object str,object elt) Line 145  FFN(siGxdr_read)(object str,object elt)
145        if(!xdr_array(xdrp,(char **)&elt->v.v_self,        if(!xdr_array(xdrp,(char **)&elt->v.v_self,
146                      &tmp,                      &tmp,
147                      elt->v.v_dim,                      elt->v.v_dim,
148                      aet_sizes[elt->v.v_elttype],                      aet_types[elt->v.v_elttype].size,
149                      e))                      e))
150          goto error;          goto error;
151      }      }

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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