Branch: Tag:

1998-04-09

1998-04-09 02:49:48 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

minor fixes

Rev: src/program.c:1.73
Rev: src/program.h:1.38

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: program.c,v 1.72 1998/04/08 01:32:35 hubbe Exp $"); + RCSID("$Id: program.c,v 1.73 1998/04/09 02:49:48 hubbe Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"
644:      }    - static int sizeof_variable(int run_time_type) + int sizeof_variable(int run_time_type)   {    switch(run_time_type)    {
2044:    return p;   }    - void add_function(char *name,void (*cfun)(INT32),char *type,INT16 flags) + int add_function(char *name,void (*cfun)(INT32),char *type,INT16 flags)   { -  +  int ret;    struct pike_string *name_tmp,*type_tmp;    union idptr tmp;   
2055:    if(cfun)    {    tmp.c_fun=cfun; -  define_function(name_tmp, +  ret=define_function(name_tmp,    type_tmp,    flags,    IDENTIFIER_C_FUNCTION,    &tmp);    }else{ -  define_function(name_tmp, +  ret=define_function(name_tmp,    type_tmp,    flags,    IDENTIFIER_C_FUNCTION,
2069:    }    free_string(name_tmp);    free_string(type_tmp); +  return ret;   }      #ifdef DEBUG