/[gcl]/gcl/h/compbas2.h
ViewVC logotype

Diff of /gcl/h/compbas2.h

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by camm, Sun Nov 28 04:31:08 2004 UTC revision 1.11 by camm, Fri Jun 10 15:24:44 2005 UTC
# Line 161  EXTER object MVloc[10]; Line 161  EXTER object MVloc[10];
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

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26