pike.git/
src/
interpret_functions.h
Branch:
Tag:
Non-build tags
All tags
No tags
2004-12-04
2004-12-04 14:07:20 by Henrik Grubbström (Grubba) <grubba@grubba.org>
aea67fab7984305cf1fe171d864aa062888af332 (
16
lines) (+
5
/-
11
)
[
Show
|
Annotate
]
Branch:
7.9
Minor cleanups by using low_index_current_object_no_free().
Rev: src/interpret_functions.h:1.178
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: interpret_functions.h,v 1.
177
2004/
11
/
27
22
:
48
:
10
mast
Exp $
+
|| $Id: interpret_functions.h,v 1.
178
2004/
12
/
04
14
:
07
:
20
grubba
Exp $
*/ /*
368:
*(Pike_mark_sp++)=Pike_sp; OPCODE1(F_GLOBAL, "global", I_UPDATE_SP, {
-
low_
object_
index_no_free(Pike_sp,
-
Pike_fp->current_object,
-
arg1
+ Pike_fp->context.identifier_level
);
+
low_
index_current_
object_no_free(Pike_sp, arg1);
Pike_sp++; print_return_value(); });
462:
}); OPCODE2(F_GLOBAL_2_LOCAL, "local = global", 0, {
-
INT32 tmp = arg1 + Pike_fp->context.identifier_level;
+
free_svalue(Pike_fp->locals + arg2);
-
low_
object_
index_no_free(Pike_fp->locals + arg2,
-
Pike_fp->current_object,
-
tmp
);
+
low_
index_current_
object_no_free(Pike_fp->locals + arg2,
arg1
);
}); OPCODE1(F_LOCAL_LVALUE, "& local", I_UPDATE_SP, {
1694:
OPCODE2(F_GLOBAL_LOCAL_INDEX, "global[local]", I_UPDATE_SP, { LOCAL_VAR(struct svalue *s); LOCAL_VAR(struct svalue tmp);
-
low_
object_
index_no_free(Pike_sp,
-
Pike_fp->current_object,
-
arg1
+ Pike_fp->context.identifier_level
);
+
low_
index_current_
object_no_free(Pike_sp, arg1);
Pike_sp++; s=Pike_fp->locals+arg2; if(s->type == PIKE_T_STRING) s->subtype=0;