pike.git / src / las.c

version» Context lines:

pike.git/src/las.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: las.c,v 1.272 2001/11/08 23:34:29 nilsson Exp $"); + RCSID("$Id: las.c,v 1.273 2001/12/06 14:10:30 grubba 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:947:    {    opt_flags = a->u.sval.u.efun->flags;    } else if (a->u.sval.u.object->prog) {    i = ID_FROM_INT(a->u.sval.u.object->prog, a->u.sval.subtype);    } else {    yyerror("Calling function in destructed module.");    }    break;       case T_PROGRAM: -  if(a->u.sval.u.program->flags & PROGRAM_CONSTANT) +  if(a->u.sval.u.program->flags & PROGRAM_CONSTANT) {    opt_flags=0; -  +  } +  if (a->u.sval.u.program->flags & PROGRAM_USES_PARENT) { +  yyerror("Can not clone program without parent context."); +  }    break;    }    break;    case F_EXTERNAL:    {    struct program_state *state = Pike_compiler;    int program_id = a->u.integer.a;    while (state && (state->new_program->id != program_id)) {    state = state->previous;    }