pith/util.c

   1 #if !defined(lint) && !defined(DOS)
   2 static char rcsid[] = "$Id: util.c 761 2007-10-23 22:35:18Z hubert@u.washington.edu $";
   3 #endif
   4
   5 /*
   6  * ========================================================================
   7  * Copyright 2013-2017 Eduardo Chappa
   8  * Copyright 2006 University of Washington
   9  *
  10  * Licensed under the Apache License, Version 2.0 (the "License");
  11  * you may not use this file except in compliance with the License.
  12  * You may obtain a copy of the License at
  13  *
  14  *     http://www.apache.org/licenses/LICENSE-2.0
  15  *
  16  * ========================================================================
  17  */
  18
  19 #include "../pith/headers.h"
  20 #include "../pith/util.h"
  21
  22
  23 /*
  24  * Internal prototypes
  25  */
  26
  27
  28 /*
  29  * Allocate space for an int and copy val into it.
  30  */
  31 int *
  32 cpyint(int val)
  33 {
  34     int *ip;
  35
  36     ip = (int *)fs_get(sizeof(int));
  37
  38     *ip = val;
  39
  40     return(ip);
  41 }