pike.git/ src/ program.c

1997-03-11

1997-03-11 03:36:42 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 2d12347a33ad4af3844f14ea3600ff6efcafd384 (43 lines) (+21/-22) ^{[ Show | Annotate ]}
  Branch: 7.9

fixed constants and code generator, F_EQ_OR now works

Rev: src/ChangeLog:1.85
Rev: src/docode.c:1.14
Rev: src/interpret.c:1.31
Rev: src/interpret.h:1.11
Rev: src/language.yacc:1.30
Rev: src/lex.c:1.18
Rev: src/lex.h:1.4
Rev: src/peep.c:1.8
Rev: src/peep.in:1.6
Rev: src/program.c:1.26
Rev: src/testsuite.in:1.35

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: program.c,v 1.25 1997/03/07 05:21:47 hubbe Exp $"); + RCSID("$Id: program.c,v 1.26 1997/03/11 03:36:42 hubbe Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"
966:    INT32 flags)   {    int n; +  struct identifier dummy; +  struct reference ref;      #ifdef DEBUG    if(name!=debug_findstring(name))
975:    setup_fake_program();    n = isidentifier(name);    -  if(n != -1) -  { -  setup_fake_program(); -  -  if (IDENTIFIERP(n)->flags & ID_NOMASK) -  my_yyerror("Illegal to redefine 'nomask' identifier \"%s\"", name->str); -  -  if(PROG_FROM_INT(& fake_program, n) == &fake_program) -  my_yyerror("Identifier '%s' defined twice.",name->str); -  } else { -  struct identifier dummy; -  struct reference ref; -  +     copy_shared_string(dummy.name, name);    dummy.type = get_type_of_svalue(c);   
997:    dummy.func.offset=store_constant(c, 0);       ref.flags=flags; -  ref.identifier_offset=areas[A_IDENTIFIERS].s.len / sizeof dummy; +  ref.identifier_offset=fake_program.num_identifiers;    ref.inherit_offset=0;       add_to_mem_block(A_IDENTIFIERS, (char *)&dummy, sizeof dummy);    fake_program.num_identifiers ++;    -  +  if(n != -1) +  { +  if (IDENTIFIERP(n)->flags & ID_NOMASK) +  my_yyerror("Illegal to redefine 'nomask' identifier \"%s\"", name->str); +  +  if(PROG_FROM_INT(& fake_program, n) == &fake_program) +  my_yyerror("Identifier '%s' defined twice.",name->str); +  +  fake_program.identifier_references[n]=ref; +  } else {    n=areas[A_IDENTIFIER_REFERENCES].s.len / sizeof ref;    add_to_mem_block(A_IDENTIFIER_REFERENCES, (char *)&ref, sizeof ref);    fake_program.num_identifier_references ++; -  +     }       return n;