161 |
/* #endif */ |
/* #endif */ |
162 |
#include <stdlib.h> |
#include <stdlib.h> |
163 |
EXTER char *alloca_val; |
EXTER char *alloca_val; |
164 |
#define OUR_ALLOCA(n) alloca(n) |
#define OUR_ALLOCA(n) ZALLOCA(n) |
165 |
#define ALLOCA_FREE(n) |
#define ALLOCA_FREE(n) |
166 |
|
|
167 |
#define ALLOCA_CONS(n) (alloca_val=alloca((n)*sizeof(struct cons))) |
#define ALLOCA_CONS_ALIGN(n) ({alloca_val=ZALLOCA((n)*sizeof(struct cons)+sizeof(alloca_val));if (((unsigned long)alloca_val)&sizeof(alloca_val)) alloca_val+=sizeof(alloca_val);alloca_val;}) |
168 |
#define ON_STACK_CONS(x,y) (alloca_val=alloca(sizeof(struct cons)), on_stack_cons(x,y)) |
|
169 |
|
#define ALLOCA_CONS(n) ALLOCA_CONS_ALIGN(n) |
170 |
|
#define ON_STACK_CONS(x,y) (ALLOCA_CONS_ALIGN(1), on_stack_cons(x,y)) |
171 |
|
/* #define ALLOCA_CONS(n) (alloca_val=alloca((n)*sizeof(struct cons)+sizeof(n)),alloca_val+=((unsigned long)alloca_val&sizeof(n))) */ |
172 |
|
/* #define ON_STACK_CONS(x,y) (alloca_val=alloca(sizeof(struct cons)), on_stack_cons(x,y)) */ |
173 |
#define ON_STACK_LIST on_stack_list |
#define ON_STACK_LIST on_stack_list |
174 |
#define ON_STACK_LIST_VECTOR on_stack_list_vector |
#define ON_STACK_LIST_VECTOR on_stack_list_vector |
175 |
#define ON_STACK_LIST_VECTOR_NEW on_stack_list_vector_new |
#define ON_STACK_LIST_VECTOR_NEW on_stack_list_vector_new |