pike.git/ src/ encode.c

2003-12-11

2003-12-11 17:16:58 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• f26a519386d45537a4041eb3439a157f0abbe4b8 (24 lines) (+20/-4) ^{[ Show | Annotate ]}
  Branch: 7.9

Added some more ENCODE_DEBUG diagnostics.

Rev: src/encode.c:1.206

2:   || 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: encode.c,v 1.205 2003/11/26 09:43:43 grubba Exp $ + || $Id: encode.c,v 1.206 2003/12/11 17:16:58 grubba Exp $   */      #include "global.h"
32:   #include "opcodes.h"   #include "peep.h"    - RCSID("$Id: encode.c,v 1.205 2003/11/26 09:43:43 grubba Exp $"); + RCSID("$Id: encode.c,v 1.206 2003/12/11 17:16:58 grubba Exp $");      /* #define ENCODE_DEBUG */   
3747:    decode_number(func.offset, data);    if (bytecode_method == PIKE_BYTECODE_PORTABLE &&    func.offset != -1) { + #ifdef ENCODE_DEBUG +  int old_a_flag; + #endif    EDB(2, -  +  {    fprintf(stderr, "%*sDecoding portable bytecode.\n", -  data->depth, "")); +  data->depth, ""); +  old_a_flag = a_flag; +  a_flag = (a_flag > (data->debug-1))?a_flag:(data->debug-1); +  });    func.offset = decode_portable_bytecode(func.offset); -  +  EDB(2, a_flag = old_a_flag);    }       /* opt_flags */
4044:    if ((constant->sval.type != T_INT) ||    (constant->sval.subtype != NUMBER_UNDEFINED)) {    /* Already initialized. */ +  EDB(5, +  fprintf(stderr, "%*sskipping constant %d\n", +  data->depth, "", e));    continue;    }    /* value */
4064:    dmalloc_touch_svalue(Pike_sp-1);    dmalloc_touch_svalue(Pike_sp-2);    Pike_sp -= 2; +  EDB(5, +  fprintf(stderr, "%*sDecoded constant %d to a %s\n", +  data->depth, "", +  e, get_name_of_type(constant->sval.type)));    }       data->pickyness--;