pike.git/
src/
encode.c
Branch:
Tag:
Non-build tags
All tags
No tags
2003-07-30
2003-07-30 18:52:15 by Martin Stjernholm <mast@lysator.liu.se>
92d2d99e434e6370b323ace43d347f1fcb3dbadb (
12
lines) (+
8
/-
4
)
[
Show
|
Annotate
]
Branch:
7.9
Only call __INIT if it exists.
Rev: src/encode.c:1.192
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.
191
2003/07/
01
15
:
08
:
29
mast Exp $
+
|| $Id: encode.c,v 1.
192
2003/07/
30
18
:
52
:
15
mast Exp $
*/ #include "global.h"
27:
#include "bignum.h" #include "pikecode.h"
-
RCSID("$Id: encode.c,v 1.
191
2003/07/
01
15
:
08
:
29
mast Exp $");
+
RCSID("$Id: encode.c,v 1.
192
2003/07/
30
18
:
52
:
15
mast Exp $");
/* #define ENCODE_DEBUG */
2446:
{ if(o->prog->flags & PROGRAM_FINISHED) {
-
apply_
lfun(o, LFUN___INIT, 0);
+
int lfun = FIND
_
LFUN
(o
->prog
, LFUN___INIT
);
+
if (lfun >= 0) {
+
apply_low(o
,
lfun,
0);
pop_stack();
-
+
}
/* FIXME: Should call LFUN_CREATE here in <= 7.2 * compatibility mode. */ }else{