1 files changed, 34 insertions, 0 deletions
diff --git a/contrib/gcclibs/libiberty/calloc.c b/contrib/gcclibs/libiberty/calloc.c
new file mode 100644
index 0000000..f4bd27b
--- /dev/null
+++ b/contrib/gcclibs/libiberty/calloc.c
@@ -0,0 +1,34 @@
+/* calloc -- allocate memory which has been initialized to zero.
+   This function is in the public domain. */
+
+/*
+
+@deftypefn Supplemental void* calloc (size_t @var{nelem}, size_t @var{elsize})
+
+Uses @code{malloc} to allocate storage for @var{nelem} objects of
+@var{elsize} bytes each, then zeros the memory.
+
+@end deftypefn
+
+*/
+ 
+#include "ansidecl.h"
+#include <stddef.h>
+
+/* For systems with larger pointers than ints, this must be declared.  */
+PTR malloc (size_t);
+void bzero (PTR, size_t);
+
+PTR
+calloc (size_t nelem, size_t elsize)
+{
+  register PTR ptr;  
+
+  if (nelem == 0 || elsize == 0)
+    nelem = elsize = 1;
+  
+  ptr = malloc (nelem * elsize);
+  if (ptr) bzero (ptr, nelem * elsize);
+  
+  return ptr;
+}