pike.git/
src/
interpret.c
Branch:
Tag:
Non-build tags
All tags
No tags
2002-05-10
2002-05-10 23:41:57 by Martin Nilsson <mani@lysator.liu.se>
d1d2b58da0c3957e1be932fcf694dbf6a5e74a9d (
27
lines) (+
14
/-
13
)
[
Show
|
Annotate
]
Branch:
7.9
fp -> Pike_fp
Rev: src/interpret.c:1.259
5:
\*/ /**/ #include "global.h"
-
RCSID("$Id: interpret.c,v 1.
258
2002/05/10
22
:
28
:
28
mast
Exp $");
+
RCSID("$Id: interpret.c,v 1.
259
2002/05/10
23
:
41
:
57
nilsson
Exp $");
#include "interpret.h" #include "object.h" #include "program.h"
1368:
current->save_mark_sp=smsp; /* Move svalues down */
-
freespace=fp->locals - target;
-
if(freespace > ((Pike_sp - fp->locals)<<2) + 32)
+
freespace=
Pike_
fp->locals - target;
+
if(freespace > ((Pike_sp -
Pike_
fp->locals)<<2) + 32)
{ assign_svalues(target,
-
fp->locals,
-
Pike_sp - fp->locals,
+
Pike_
fp->locals,
+
Pike_sp -
Pike_
fp->locals,
BIT_MIXED);
-
fp->locals-=freespace;
-
fp->expendible-=freespace;
+
Pike_
fp->locals-=freespace;
+
Pike_
fp->expendible-=freespace;
pop_n_elems(freespace); } /* Move pointers down */
-
freespace=fp->mark_sp_base - smsp;
-
if(freespace > ((Pike_mark_sp - fp->mark_sp_base)<<2)+32)
+
freespace=
Pike_
fp->mark_sp_base - smsp;
+
if(freespace > ((Pike_mark_sp -
Pike_
fp->mark_sp_base)<<2)+32)
{ MEMMOVE(smsp,
-
fp->mark_sp_base,
-
sizeof(struct svalue **)*(Pike_mark_sp - fp->mark_sp_base));
-
fp->mark_sp_base-=freespace;
+
Pike_
fp->mark_sp_base,
+
sizeof(struct svalue **)*(Pike_mark_sp -
Pike_
fp->mark_sp_base));
+
Pike_
fp->mark_sp_base-=freespace;
Pike_mark_sp-=freespace; } }