Initial Alpine Version

1 files changed, 40 insertions, 0 deletions

diff --git a/pith/util.c b/pith/util.c
new file mode 100644
index 00000000..56f586da
--- /dev/null
+++ b/pith/util.c
@@ -0,0 +1,40 @@
+#if !defined(lint) && !defined(DOS)
+static char rcsid[] = "$Id: util.c 761 2007-10-23 22:35:18Z hubert@u.washington.edu $";
+#endif
+
+/*
+ * ========================================================================
+ * Copyright 2006 University of Washington
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ *
+ *     http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * ========================================================================
+ */
+
+#include "../pith/headers.h"
+#include "../pith/util.h"
+
+
+/*
+ * Internal prototypes
+ */
+
+
+/*
+ * Allocate space for an int and copy val into it.
+ */
+int *
+cpyint(int val)
+{
+    int *ip;
+
+    ip = (int *)fs_get(sizeof(int));
+
+    *ip = val;
+
+    return(ip);
+}