pike.git/ src/ program.c

1996-06-21

1996-06-21 19:50:39 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 55806994844bf7aa183216d370150c15d3e681ca (32 lines) (+31/-1) ^{[ Show | Annotate ]}
  Branch: branches/E-12

private inherit and and lfun calls added

Rev: src/program.c:1.12
Rev: src/program.h:1.6

37:   #undef FILE_STATE   #undef PROGRAM_STATE    +  + char *lfun_names[] = { +  "__INIT", +  "create", +  "destroy", +  "`+", +  "`-", +  "`&", +  "`|", +  "`^", +  "`<<", +  "`>>", +  "`*", +  "`/", +  "`%", +  "`~", +  "`==", +  "`<", +  "`>", +  "__hash", +  "cast", +  "`!", + }; +    struct program *first_program = 0;      struct program fake_program;
457:    first_program->prev=prog;    first_program=prog;    +  for(i=0;i<NUM_LFUNS;i++) +  prog->lfuns[i]=find_identifier(lfun_names[i],prog); +    #ifdef DEBUG    check_program(prog);    if(l_flag)    dump_program_desc(prog);   #endif -  +     }       /* Clean up */
661:    my_yyerror("Illegal to redefine 'nomask' function/variable \"%s\"",name->str);    }    +  if(fun.flags & ID_PRIVATE) fun.flags|=ID_HIDDEN; +     if (fun.flags & ID_PUBLIC)    fun.flags |= flags & ~ID_PRIVATE;    else    fun.flags |= flags;    -  if(fun.flags & ID_PRIVATE) fun.flags|=ID_HIDDEN; +     fun.flags |= ID_INHERITED;    add_to_mem_block(A_IDENTIFIER_REFERENCES, (char *)&fun, sizeof fun);    }