pike.git/
src/
encode.c
Branch:
Tag:
Non-build tags
All tags
No tags
2004-07-03
2004-07-03 09:22:53 by Henrik Grubbström (Grubba) <grubba@grubba.org>
b80585bb89bf8a137c58a2137e60ffd9f790b1f3 (
9
lines) (+
5
/-
4
)
[
Show
|
Annotate
]
Branch:
7.9
Reverted dangerous "fix".
Rev: src/encode.c:1.218
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.
217
2004/07/
02
23
:
45
:
54
srb
Exp $
+
|| $Id: encode.c,v 1.
218
2004/07/
03
09
:
22
:
53
grubba
Exp $
*/
-
#include <stdio.h> //srb
+
#include "global.h" #include "stralloc.h"
32:
#include "opcodes.h" #include "peep.h"
-
RCSID("$Id: encode.c,v 1.
217
2004/07/
02
23
:
45
:
54
srb
Exp $");
+
RCSID("$Id: encode.c,v 1.
218
2004/07/
03
09
:
22
:
53
grubba
Exp $");
/* #define ENCODE_DEBUG */
3611:
decode_value2(data); switch(entry_type) { case ID_ENTRY_EFUN_CONSTANT:
-
if (Pike_sp[-1].type != T_FUNCTION) {
+
if (
(
Pike_sp[-1].type != T_FUNCTION)
||
+
(Pike_sp[-1].subtype != FUNCTION_BUILTIN))
{
ref_push_program (p); decode_error(Pike_sp - 1, Pike_sp - 2, "Expected efun constant: ");