Initial commit

1 files changed, 24 insertions, 0 deletions

diff --git a/sys/memdbg/kmalloc.x b/sys/memdbg/kmalloc.x
new file mode 100644
index 00000000..39f21ae0
--- /dev/null
+++ b/sys/memdbg/kmalloc.x
@@ -0,0 +1,24 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<config.h>
+
+# KMALLOC -- Allocate space on the heap.  Equivalent to MALLOC, except that a
+# memory allocation failure is indicated by returning ERR as the function value.
+
+int procedure kmalloc (ubufp, nelems, dtype)
+
+pointer	ubufp			# user buffer pointer (output)
+int	nelems			# number of elements of storage required
+int	dtype			# datatype of the storage elements
+
+int	sz_align, fwa_align
+int	malloc1()
+int	zrtadr()
+include	"memdbg.com"
+
+begin
+	retaddr = zrtadr()
+	sz_align = SZ_MEMALIGN
+	call zlocva (Memc, fwa_align)
+	return (malloc1 (ubufp, nelems, dtype, sz_align, fwa_align))
+end