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.110 1999/11/17 18:03:58 grubba Exp $"); + RCSID("$Id: las.c,v 1.111 1999/11/18 02:46:03 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:996:    if(!sp[-1].u.object->prog)    {    pop_stack();    push_int(0);    }else{    f_object_program(1);    }    break;       default: +  if (compiler_pass!=1)    yyerror("Illegal program identifier");    pop_stack();    push_int(0);       case T_FUNCTION:    case T_PROGRAM:    break;    }   }   
pike.git/src/las.c:1019:    check_tree(n,0);       resolv_class(n);    switch(sp[-1].type)    {    case T_FUNCTION:    if(program_from_function(sp-1))    break;       default: +  if (compiler_pass!=1)    yyerror("Illegal program identifier");    pop_stack();    push_int(0);       case T_PROGRAM:    break;    }   }