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.242 2001/03/03 00:22:44 grubba Exp $"); + RCSID("$Id: las.c,v 1.243 2001/03/03 17:51:50 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:2914:    return;       default:    if(n->type)    {    if(n->type == void_type_string) return;    push_finished_type(n->type);    }else{    push_type(T_MIXED);    } + #ifdef USE_PIKE_TYPE +  push_type(T_FUNCTION); + #endif /* USE_PIKE_TYPE */    }   }      void yytype_error(char *msg, struct pike_type *expected_t,    struct pike_type *got_t, unsigned int flags)   {    if (msg)    {    if (flags & YYTE_IS_WARNING)    yywarning("%s", msg);
pike.git/src/las.c:3054:    INT32 max_args,args;       push_type(T_MIXED); /* match any return type */    push_type(T_VOID); /* even void */    push_type(T_OR);       push_type(T_VOID); /* not varargs */    push_type(T_MANY);    function_type_max=0;    low_build_function_type(CDR(n)); + #ifndef USE_PIKE_TYPE    push_type(T_FUNCTION); -  + #endif /* !USE_PIKE_TYPE */    s = pop_type();    f = CAR(n)->type?CAR(n)->type:mixed_type_string;    n->type = check_call(s, f,    (lex.pragmas & ID_STRICT_TYPES) &&    !(n->node_info & OPT_WEAK_TYPE));    args = count_arguments(s);    max_args = count_arguments(f);    if(max_args<0) max_args = 0x7fffffff;      
pike.git/src/las.c:3278:    break;    }    if (!op_node->type) {    fix_type_field(op_node);    }       push_finished_type(CAR(n)->type);    push_type(T_VOID);    push_type(T_MANY);    push_finished_type(CDR(n)->type); + #ifdef USE_PIKE_TYPE +  push_type(T_FUNCTION); + #endif /* USE_PIKE_TYPE */    push_finished_type(CAR(n)->type);    push_type(T_FUNCTION);       call_type = pop_type();       n->type = check_call(call_type,    op_node->type ? op_node->type : mixed_type_string,    (lex.pragmas & ID_STRICT_TYPES) &&    !(op_node->node_info & OPT_WEAK_TYPE));    if (n->type) {