pike.git / src / operators.c

version» Context lines:

pike.git/src/operators.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"   #include <math.h> - RCSID("$Id: operators.c,v 1.76 1999/12/15 00:48:18 grubba Exp $"); + RCSID("$Id: operators.c,v 1.77 1999/12/15 00:52:31 grubba Exp $");   #include "interpret.h"   #include "svalue.h"   #include "multiset.h"   #include "mapping.h"   #include "array.h"   #include "stralloc.h"   #include "opcodes.h"   #include "operators.h"   #include "language.h"   #include "pike_memory.h"
pike.git/src/operators.c:838:    push_array(a);    return;    }       case T_TYPE:    {    struct pike_string *t;    t = and_pike_types(sp[-2].u.string, sp[-1].u.string);    pop_n_elems(2);    push_string(t); -  sp[-1].type = T_STRING; +  sp[-1].type = T_TYPE;    return;    }       case T_FUNCTION:    case T_PROGRAM:    {    struct program *p;    struct pike_string *a;    struct pike_string *b;    struct pike_string *t;