pike.git/ src/ program.c

1997-02-18

1997-02-18 05:13:36 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 329cc03764fca81fdf1d86e55c3c7530bca614d7 (45 lines) (+35/-10) ^{[ Show | Annotate ]}
  Branch: 7.9

evil optimization added

Rev: src/language.yacc:1.25
Rev: src/las.c:1.21
Rev: src/las.h:1.6
Rev: src/program.c:1.21
Rev: src/program.h:1.13

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: program.c,v 1.20 1997/02/11 07:20:15 hubbe Exp $"); + RCSID("$Id: program.c,v 1.21 1997/02/18 05:13:35 hubbe Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"
547:    {    union idptr tmp;    struct pike_string *s; +  push_locals();    s=make_shared_string("__INIT"); -  tmp.offset=PC; -  ins_byte(0, A_PROGRAM); /* num locals */ -  ins_byte(0, A_PROGRAM); /* num args */ -  dooptcode(s,mknode(F_ARG_LIST,init_node,mknode(F_RETURN,mkintnode(0),0)),0); -  define_function(s, +  dooptcode(s, +  mknode(F_ARG_LIST, +  init_node,mknode(F_RETURN,mkintnode(0),0)),    function_type_string, -  0, /* ID_STATIC, */ -  IDENTIFIER_PIKE_FUNCTION, -  & tmp); +  0); +  pop_locals();    free_string(s);    init_node=0;    }
1664:    *num_=num;    *size_=size;   } + void push_locals() + { +  struct locals *l; +  l=ALLOC_STRUCT(locals); +  l->current_type=0; +  l->current_return_type=0; +  l->next=local_variables; +  l->current_number_of_locals=0; +  l->max_number_of_locals=0; +  local_variables=l; + } +  + void pop_locals() + { +  struct locals *l; +  free_all_local_names(); +  l=local_variables->next; +  if(local_variables->current_type) +  free_string(local_variables->current_type); +  if(local_variables->current_return_type) +  free_string(local_variables->current_return_type); +  free((char *)local_variables); +  +  local_variables=l; +  /* insert check if ( local->next == parent locals ) here */ + }