pike.git / src / program.c

version» Context lines:

pike.git/src/program.c:1:   /*   || 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.493 2004/10/11 16:41:48 mast Exp $ + || $Id: program.c,v 1.494 2005/03/22 11:47:29 jonasw Exp $   */      #include "global.h" - RCSID("$Id: program.c,v 1.493 2004/10/11 16:41:48 mast Exp $"); + RCSID("$Id: program.c,v 1.494 2005/03/22 11:47:29 jonasw Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"   #include "pike_types.h"   #include "stralloc.h"   #include "las.h"   #include "language.h"   #include "lex.h"   #include "pike_macros.h"   #include "fsort.h"
pike.git/src/program.c:4066:    return ret;   }      /*    * define a new function    * if func isn't given, it is supposed to be a prototype.    */   INT32 define_function(struct pike_string *name,    struct pike_type *type,    unsigned INT16 flags, -  unsigned INT8 function_flags, +  unsigned INT16 function_flags,    union idptr *func,    unsigned INT16 opt_flags)   {    struct identifier *funp,fun;    struct reference ref;    struct svalue *lfun_type;    INT32 i;      #ifdef PROGRAM_BUILD_DEBUG    {
pike.git/src/program.c:6015: Inside #if defined(PIKE_DEBUG)
   if (a_flag > 2) {    dump_program_tables(ret, 0);    }   #endif /* PIKE_DEBUG */    verify_supporters();    return ret;    }   }      PMOD_EXPORT int pike_add_function2(const char *name, void (*cfun)(INT32), -  const char *type, unsigned INT8 flags, +  const char *type, unsigned INT16 flags,    unsigned INT16 opt_flags)   {    int ret;    struct pike_string *name_tmp;    struct pike_type *type_tmp;    union idptr tmp;       name_tmp=make_shared_string(name);    type_tmp=parse_type(type);   
pike.git/src/program.c:6053:    free_string(name_tmp);    free_type(type_tmp);    return ret;   }      PMOD_EXPORT int quick_add_function(const char *name,    int name_length,    void (*cfun)(INT32),    const char *type,    int type_length, -  unsigned INT8 flags, +  unsigned INT16 flags,    unsigned INT16 opt_flags)   {    int ret;    struct pike_string *name_tmp;    struct pike_type *type_tmp;    union idptr tmp;   /* fprintf(stderr,"ADD_FUNC: %s\n",name); */    name_tmp = make_shared_binary_string(name, name_length);    type_tmp = make_pike_type(type);