psyc-mirrors
/
psyclpc
mirror of git://git.psyced.org/git/psyclpc
1
0
Fork 0
Code Issues Releases Wiki Activity

remove some unused variables

This commit is contained in:
psyc://loupsycedyglgamf.onion/~lynX 2016-02-16 07:07:24 +00:00
parent b29bdca5a1
commit 9edb583b81
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/interpret.c
View File

@ -15250,7 +15250,7 @@ again:
* iteration.
*/
int vars_required;
//int vars_required;
int nargs;
p_int count, start;
unsigned short offset;
@ -15308,12 +15308,12 @@ again:
if (count < 0 && !use_range)
ERRORF(("foreach() got a %"PRIdPINT", expected a non-negative "
"number.", count));
vars_required = 1;
//vars_required = 1;
}
else if (arg->type == T_STRING)
{
count = mstrsize(arg->u.str);
vars_required = 1;
//vars_required = 1;
if (gen_refs)
{
@ -15342,7 +15342,7 @@ again:
{
check_for_destr(arg->u.vec);
count = VEC_SIZE(arg->u.vec);
vars_required = 1;
//vars_required = 1;
if (gen_refs)
{
@ -15361,7 +15361,7 @@ again:
{
struct_check_for_destr(arg->u.strct);
count = struct_size(arg->u.strct);
vars_required = 1;
//vars_required = 1;
if (gen_refs)
{
@ -15382,7 +15382,7 @@ again:
vector_t *indices;
m = arg->u.map;
vars_required = 1 + m->num_values;
//vars_required = 1 + m->num_values;
indices = m_indices(m);
count = MAP_SIZE(m);
@ -16719,7 +16719,9 @@ apply_low ( string_t *fun, object_t *ob, int num_arg
{
program_t *progp;
#ifdef DEBUG
struct control_stack *save_csp;
#endif
p_int ix;
/* This object will now be used, and is thus a target for
@ -16846,7 +16848,9 @@ retry_for_shadow:
inter_sp = setup_new_frame2(funstart, inter_sp, allowRefs, MY_FALSE);
previous_ob = current_object;
current_object = ob;
#ifdef DEBUG
save_csp = csp;
#endif
eval_instruction(FUNCTION_CODE(funstart), inter_sp);
#ifdef DEBUG
if (save_csp-1 != csp)
@ -16961,7 +16965,9 @@ retry_for_shadow:
inter_sp = setup_new_frame2(funstart, inter_sp, allowRefs, MY_FALSE);
previous_ob = current_object;
current_object = ob;
#ifdef DEBUG
save_csp = csp;
#endif
eval_instruction(FUNCTION_CODE(funstart), inter_sp);
#ifdef DEBUG
if (save_csp-1 != csp)