pike.git/
src/
encode.c
Branch:
Tag:
Non-build tags
All tags
No tags
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--;