wr_long.c 280 B

12345678910111213141516
  1. /* $Id$ */
  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. void
  8. wr_long(fd, l)
  9. long l;
  10. {
  11. char buf[4];
  12. put4(l, buf);
  13. wr_bytes(fd, buf, 4L);
  14. }