Branch: Tag:

1999-03-04

1999-03-04 06:05:14 by Fredrik H├╝binette (Hubbe) <hubbe@hubbe.net>

::`() and ::`-> implemented

Rev: src/language.yacc:1.112
Rev: src/las.c:1.76
Rev: src/las.h:1.19
Rev: src/main.c:1.65
Rev: src/object.c:1.58
Rev: src/object.h:1.24
Rev: src/program.c:1.113
Rev: src/stralloc.c:1.56
Rev: src/stralloc.h:1.34
Rev: src/testsuite.in:1.153

5:   \*/   /**/   #include "global.h" - RCSID("$Id: program.c,v 1.112 1999/02/20 17:47:05 grubba Exp $"); + RCSID("$Id: program.c,v 1.113 1999/03/04 06:05:09 hubbe Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"
479:    sizeof(unsigned short),(fsortfun)program_function_index_compare);       -  for(i=0;i<NUM_LFUNS;i++) +  /* Yes, it is supposed to start at 1 /Hubbe */ +  for(i=1;i<NUM_LFUNS;i++)    new_program->lfuns[i]=find_identifier(lfun_names[i],new_program);       new_program->flags |= PROGRAM_FIXED;
903:    if(init_node)    {    union idptr tmp; -  dooptcode(s, +  e=dooptcode(s,    mknode(F_ARG_LIST,    init_node,mknode(F_RETURN,mkintnode(0),0)),    function_type_string, -  0); +  ID_STATIC);    init_node=0; -  +  }else{ +  e=-1;    } -  +  new_program->lfuns[LFUN___INIT]=e;       free_string(s);