pike.git / src / pike_types.c

version» Context lines:

pike.git/src/pike_types.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   /**/   #include "global.h" - RCSID("$Id: pike_types.c,v 1.137 2000/09/03 22:01:22 mast Exp $"); + RCSID("$Id: pike_types.c,v 1.138 2000/09/08 16:34:49 grubba Exp $");   #include <ctype.h>   #include "svalue.h"   #include "pike_types.h"   #include "stralloc.h"   #include "stuff.h"   #include "array.h"   #include "program.h"   #include "constants.h"   #include "object.h"   #include "multiset.h"
pike.git/src/pike_types.c:1590:    free_string(tmp);    a_markers[m]=pop_unfinished_type();      #ifdef PIKE_TYPE_DEBUG    if (l_flag>2) {    char *s;    int e;    init_buf();    for(e=0;e<indent;e++) my_strcat(" ");    my_strcat("a_markers["); -  my_putchar(m+'0'); +  my_putchar((char)(m+'0'));    my_strcat("]=");    low_describe_type(a_markers[m]->str);    my_strcat("\n");    fprintf(stderr,"%s",(s=simple_free_buf()));    free(s);    }   #endif   #ifdef PIKE_DEBUG    if(a_markers[m]->str[0] == m+'0')    fatal("Cyclic type!\n");
pike.git/src/pike_types.c:1674:    if(b_markers[m]) free_string(b_markers[m]);    free_string(tmp);    b_markers[m]=pop_unfinished_type();   #ifdef PIKE_TYPE_DEBUG    if (l_flag>2) {    char *s;    int e;    init_buf();    for(e=0;e<indent;e++) my_strcat(" ");    my_strcat("b_markers["); -  my_putchar(m+'0'); +  my_putchar((char)(m+'0'));    my_strcat("]=");    low_describe_type(b_markers[m]->str);    my_strcat("\n");    fprintf(stderr,"%s",(s=simple_free_buf()));    free(s);    }   #endif   #ifdef PIKE_DEBUG    if(b_markers[m]->str[0] == m+'0')    fatal("Cyclic type!\n");
pike.git/src/pike_types.c:2104:    if(a_markers[m]) free_string(a_markers[m]);    free_string(tmp);    a_markers[m]=pop_unfinished_type();   #ifdef PIKE_TYPE_DEBUG    if (l_flag>2) {    char *s;    int e;    init_buf();    for(e=0;e<indent;e++) my_strcat(" ");    my_strcat("a_markers["); -  my_putchar(m+'0'); +  my_putchar((char)(m+'0'));    my_strcat("]=");    low_describe_type(a_markers[m]->str);    my_strcat("\n");    fprintf(stderr,"%s",(s=simple_free_buf()));    free(s);    }   #endif    }    return ret;   
pike.git/src/pike_types.c:2179:    if(b_markers[m]) free_string(b_markers[m]);    free_string(tmp);    b_markers[m]=pop_unfinished_type();   #ifdef PIKE_TYPE_DEBUG    if (l_flag>2) {    char *s;    int e;    init_buf();    for(e=0;e<indent;e++) my_strcat(" ");    my_strcat("b_markers["); -  my_putchar(m+'0'); +  my_putchar((char)(m+'0'));    my_strcat("]=");    low_describe_type(b_markers[m]->str);    my_strcat("\n");    fprintf(stderr,"%s",(s=simple_free_buf()));    free(s);    }   #endif    }    return ret;