pith/util.c

   1 /*
   2  * ========================================================================
   3  * Copyright 2013-2022 Eduardo Chappa
   4  * Copyright 2006 University of Washington
   5  *
   6  * Licensed under the Apache License, Version 2.0 (the "License");
   7  * you may not use this file except in compliance with the License.
   8  * You may obtain a copy of the License at
   9  *
  10  *     http://www.apache.org/licenses/LICENSE-2.0
  11  *
  12  * ========================================================================
  13  */
  14
  15 #include "../pith/headers.h"
  16 #include "../pith/util.h"
  17
  18
  19 /*
  20  * Internal prototypes
  21  */
  22
  23
  24 /*
  25  * Allocate space for an int and copy val into it.
  26  */
  27 int *
  28 cpyint(int val)
  29 {
  30     int *ip;
  31
  32     ip = (int *)fs_get(sizeof(int));
  33
  34     *ip = val;
  35
  36     return(ip);
  37 }