modules/src/object/wr_long.c

   1 /* $Id: wr_long.c,v 1.5 1994/06/24 11:19:25 ceriel Exp $ */
   2 /*
   3  * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
   4  * See the copyright notice in the ACK home directory, in the file "Copyright".
   5  */
   6 #include "obj.h"
   7
   8 void
   9 wr_long(fd, l)
  10         long l;
  11 {
  12         char buf[4];
  13
  14         put4(l, buf);
  15         wr_bytes(fd, buf, 4L);
  16 }