Branch: Tag:

2000-09-12

2000-09-12 17:06:38 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Added a few fatal_check_c_stack().

Rev: src/las.c:1.210

5:   \*/   /**/   #include "global.h" - RCSID("$Id: las.c,v 1.209 2000/09/12 14:41:40 grubba Exp $"); + RCSID("$Id: las.c,v 1.210 2000/09/12 17:06:38 grubba Exp $");      #include "language.h"   #include "interpret.h"
225:   {    int a,b;    check_tree(n,0); +  +  fatal_check_c_stack(16384); +     if(!n) return 0;    switch(n->token)    {
293:       check_tree(n,0);    +  fatal_check_c_stack(16384); +     if(!n) return 0;       if (n->token == F_RETURN) {
572:    sub_node(dmalloc_touch(node *, n));   #endif /* SHARED_NODES */    +  fatal_check_c_stack(16384); +     switch(n->token)    {    case USHRT_MAX:
1491:    if(!a || !b) return 0;    if(a->token != b->token) return 0;    +  fatal_check_c_stack(16384); +     switch(a->token)    {    case F_LOCAL:
1641: Inside #if 1 /* DEAD_CODE - I need this /Hubbe */
   return n;   #else /* !SHARED_NODES */    +  fatal_check_c_stack(16384); +     switch((car_is_node(n) << 1) | cdr_is_node(n))    {    default: fatal("fooo?\n");
1754:   {    node **n;    if(!a || !*a) return (node **)NULL; +  +  fatal_check_c_stack(16384); +     if(((*a)->token == F_CAST) ||    ((*a)->token == F_SOFT_CAST) ||    ((*a)->token == F_POP_VALUE)) return last_cmd(&_CAR(*a));
1796:    else    return NULL;    } +  +  fatal_check_c_stack(16384); +     if(CAR(*a))    if((n=low_get_arg(&_CAR(*a),nr)))    return n;
1833:    {    fprintf(stderr, "/*%x*/",foo->tree_info);    } +  +  fatal_check_c_stack(16384); +     switch(l_flag > 99 ? -1 : foo->token)    {    case USHRT_MAX:
2221:    char *q;       if(!n) return 0; +  +  fatal_check_c_stack(16384); +     switch(n->token)    {    case F_LOCAL:
2345:   {    if(!n) return;    +  fatal_check_c_stack(16384); +     switch(n->token)    {    case F_LOCAL:
2631:    case F_VAL_LVAL:    case F_LVALUE_LIST:    case F_ARG_LIST: +  +  fatal_check_c_stack(16384); +     return cntargs(CAR(n))+cntargs(CDR(n));       /* this might not be true, but it doesn't matter very much */
2663:    {    case F_COMMA_EXPR:    case F_ARG_LIST: +  fatal_check_c_stack(16384); +     low_build_function_type(CDR(n));    low_build_function_type(CAR(n));    break;
3254:    if(!n) return;    n->node_info &=~ OPT_TRY_OPTIMIZE;    n->tree_info &=~ OPT_TRY_OPTIMIZE; +  +  fatal_check_c_stack(16384); +     if(car_is_node(n)) zapp_try_optimize(CAR(n));    if(cdr_is_node(n)) zapp_try_optimize(CDR(n));   }
3269: Inside #if defined(SHARED_NODES) && !defined(IN_TPIKE)
   if (!n)    return;    +  fatal_check_c_stack(16384); +     switch(n->token) {    case F_ASSIGN:    if ((CDR(n)->token == F_LOCAL) && (!CDR(n)->u.integer.b)) {
4361:   static int stupid_args(node *n, int expected,int vargs)   {    if(!n) return expected; +  +  fatal_check_c_stack(16384); +     switch(n->token)    {    case F_PUSH_ARRAY:
4385:   static int is_null_branch(node *n)   {    if(!n) return 1; +  +  fatal_check_c_stack(16384); +     if((n->token==F_CAST && n->type==void_type_string) ||    n->token == F_POP_VALUE)    return is_null_branch(CAR(n));