pike.git/ src/ constants.c

1999-04-15

1999-04-15 04:08:39 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 044c62401a972f28a0c3bbc08cb1f6bd5bce56ad (11 lines) (+10/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

more debug

Rev: src/constants.c:1.17
Rev: src/constants.h:1.9
Rev: src/docode.c:1.46
Rev: src/dynamic_load.c:1.35
Rev: src/interpret.c:1.120
Rev: src/modules/Image/encodings/_xpm.c:1.5
Rev: src/modules/Image/encodings/pcx.c:1.5
Rev: src/modules/Image/encodings/tga.c:1.5
Rev: src/modules/Image/encodings/xbm.c:1.3
Rev: src/modules/Image/encodings/xcf.c:1.7
Rev: src/opcodes.c:1.37

15:   #include "error.h"   #include "block_alloc.h"    - RCSID("$Id: constants.c,v 1.16 1999/04/08 23:54:26 hubbe Exp $"); + RCSID("$Id: constants.c,v 1.17 1999/04/15 04:08:09 hubbe Exp $");      static INT32 num_callable=0;   static struct mapping *builtin_constants = 0;
90:    f->flags=flags;    f->docode=docode;    f->optimize=optimize; + #ifdef PIKE_DEBUG +  { +  struct pike_string *z=check_call(function_type_string,type); +  f->may_return_void= z == void_type_string; +  if(!z) fatal("Gnapp!\n"); +  free_string(z); +  } + #endif    return f;   }