rckil.c 453 B

123456789101112131415161718192021222324
  1. /*
  2. * (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
  3. * See the copyright notice in the ACK home directory, in the file "Copyright".
  4. *
  5. *
  6. * Module: range checks for LONGINT
  7. * Author: Ceriel J.H. Jacobs
  8. * Version: $Id$
  9. */
  10. #include <em_abs.h>
  11. extern TRP();
  12. struct range_descr {
  13. long low, high;
  14. };
  15. rckil(descr, val)
  16. struct range_descr *descr;
  17. long val;
  18. {
  19. if (val < descr->low || val > descr->high) TRP(ERANGE);
  20. }