date and time created 83/06/27 16:08:47 by root

SCCS-vsn: lib/libc/vax/gen/alloca.s 4.1

diff --git a/usr/src/lib/libc/vax/gen/alloca.s b/usr/src/lib/libc/vax/gen/alloca.s
new file mode 100644 (file)
index 0000000..6831af7
--- /dev/null
+++ b/usr/src/lib/libc/vax/gen/alloca.s
@@ -0,0 +1,13 @@
+/*     alloca.s        4.1     83/06/27        */
+/* like alloc, but automatic automatic free in return */
+
+#include "DEFS.h"
+
+ENTRY(alloca)
+       subl2   4(ap),sp        /* crude allocation */
+       movl    16(fp),r1       /* pc */
+       movq    8(fp),ap        /* new (old) ap and fp */
+       bicl2   $3,sp           /* 4-byte align */
+       addl2   $7*4,sp         /* reuse space of mscp */
+       movl    sp,r0           /* return value */
+       jmp     (r1)            /* funny return */