pike.git / src / las.c

version» Context lines:

pike.git/src/las.c:1:   /*   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: las.c,v 1.340 2003/11/08 01:37:46 nilsson Exp $ + || $Id: las.c,v 1.341 2003/11/09 01:10:13 mast Exp $   */      #include "global.h" - RCSID("$Id: las.c,v 1.340 2003/11/08 01:37:46 nilsson Exp $"); + RCSID("$Id: las.c,v 1.341 2003/11/09 01:10:13 mast Exp $");      #include "language.h"   #include "interpret.h"   #include "las.h"   #include "array.h"   #include "object.h"   #include "stralloc.h"   #include "dynamic_buffer.h"   #include "lex.h"   #include "pike_types.h"
pike.git/src/las.c:2558:    break;       case F_POP_VALUE:    fprintf(stderr, "{");    low_print_tree(_CAR(foo), 0);    fprintf(stderr, "}");    break;       case F_CAST:    { +  dynamic_buffer save_buf;    char *s; -  init_buf(); +  init_buf(&save_buf);    my_describe_type(foo->type); -  s=simple_free_buf(); +  s=simple_free_buf(&save_buf);    fprintf(stderr, "(%s){",s);    free(s);    low_print_tree(_CAR(foo),0);    fprintf(stderr, "}");    break;    }       case F_SOFT_CAST:    { -  +  dynamic_buffer save_buf;    char *s; -  init_buf(); +  init_buf(&save_buf);    my_describe_type(foo->type); -  s=simple_free_buf(); +  s=simple_free_buf(&save_buf);    fprintf(stderr, "[%s]{",s);    free(s);    low_print_tree(_CAR(foo),0);    fprintf(stderr, "}");    break;    }       case F_COMMA_EXPR:    low_print_tree(_CAR(foo),0);    if(_CAR(foo) && _CDR(foo))
pike.git/src/las.c:2622:    break;       case F_LVALUE_LIST:    low_print_tree(_CAR(foo),1);    if(_CAR(foo) && _CDR(foo)) fputc(',', stderr);    low_print_tree(_CDR(foo),1);    return;       case F_CONSTANT:    { +  dynamic_buffer save_buf;    char *s; -  init_buf(); +  init_buf(&save_buf);    describe_svalue(& foo->u.sval, 0, 0); -  s=simple_free_buf(); +  s=simple_free_buf(&save_buf);    fprintf(stderr, "const(%s)",s);    free(s);    break;    }       case F_VAL_LVAL:    low_print_tree(_CAR(foo),0);    fprintf(stderr, ",&");    low_print_tree(_CDR(foo),0);    return;