pike.git/ src/ program.c

2003-05-16

2003-05-16 14:08:38 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• a6ded6cf15166c1610da97a2ac6188ef7e8fe225 (18 lines) (+16/-2) ^{[ Show | Annotate ]}
  Branch: 7.9

Added kludge for encode_value() attempting to encode classes containing classes with methods implemented in C.

Rev: src/program.c:1.502

2:   || 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: program.c,v 1.501 2003/04/27 23:06:15 mast Exp $ + || $Id: program.c,v 1.502 2003/05/16 14:08:38 grubba Exp $   */      #include "global.h" - RCSID("$Id: program.c,v 1.501 2003/04/27 23:06:15 mast Exp $"); + RCSID("$Id: program.c,v 1.502 2003/05/16 14:08:38 grubba Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"
1098:    struct svalue thrown = throw_value;    throw_value.type = T_INT;    +  dmalloc_touch_svalue(&thrown); +     if (!ident->size_shift) {    my_yyerror("Couldn't index a module with '%s'.", ident->str);    } else {
1286:    struct svalue thrown = throw_value;    throw_value.type = T_INT;    +  dmalloc_touch_svalue(&thrown); +     if (!ident->size_shift)    my_yyerror("Error resolving '%s'.", ident->str);    else
3592:    else {    struct svalue thrown = throw_value;    throw_value.type = T_INT; +  dmalloc_touch_svalue(&thrown); +     my_yyerror("Error finding program");    push_svalue(&thrown);    low_safe_apply_handler("compile_exception", error_handler, compat_handler, 1);
4247:       id=make_shared_binary_string(name,namelen);    ret=add_constant(id, &tmp, flags); +  /* The following is not really true, but it helps encode_value()... */ +  Pike_compiler->new_program->flags |= +  tmp.u.program->flags & PROGRAM_HAS_C_METHODS;    free_string(id);    free_svalue(&tmp);    return ret;
4758:    struct svalue zero, thrown = throw_value;    throw_value.type = T_INT;    +  dmalloc_touch_svalue(&thrown); +     yyerror("Couldn't store constant.");       push_svalue(&thrown);
6074:    struct svalue thrown = throw_value;    debug_malloc_touch(c->placeholder);    throw_value.type = T_INT; +  dmalloc_touch_svalue(&thrown); +     push_svalue(&thrown);    low_safe_apply_handler("compile_exception", error_handler, compat_handler, 1);    if (SAFE_IS_ZERO(sp-1)) yy_describe_exception(&thrown);