Branch: Tag:

1997-09-09

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

foo->bar now finds the right function!

Rev: src/builtin_functions.c:1.43
Rev: src/docode.c:1.21
Rev: src/interpret.c:1.46
Rev: src/las.c:1.37
Rev: src/object.c:1.22
Rev: src/program.c:1.39
Rev: src/program.h:1.19
Rev: src/testsuite.in:1.51

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: interpret.c,v 1.45 1997/08/30 18:35:34 grubba Exp $"); + RCSID("$Id: interpret.c,v 1.46 1997/09/09 03:36:11 hubbe Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"
748:       i=ID_FROM_INT(fp->current_object->prog, tmp);    -  if(!IDENTIFIER_IS_VARIABLE(i->flags)) +  if(!IDENTIFIER_IS_VARIABLE(i->identifier_flags))    error("Cannot re-assign functions or constants.\n");       if(i->run_time_type == T_MIXED)
804:    error("Cannot access global variables in destructed object.\n");       i=ID_FROM_INT(fp->current_object->prog, tmp); -  if(!IDENTIFIER_IS_VARIABLE(i->flags)) +  if(!IDENTIFIER_IS_VARIABLE(i->identifier_flags))    error("Cannot assign functions or constants.\n");    if(i->run_time_type == T_MIXED)    {
825:    error("Cannot access global variables in destructed object.\n");       i=ID_FROM_INT(fp->current_object->prog, tmp); -  if(!IDENTIFIER_IS_VARIABLE(i->flags)) +  if(!IDENTIFIER_IS_VARIABLE(i->identifier_flags))    error("Cannot assign functions or constants.\n");       if(i->run_time_type == T_MIXED)
1362:    if(function->func.offset == -1)    error("Calling undefined function '%s'.\n",function->name->str);    -  if(function->flags & IDENTIFIER_C_FUNCTION) +  if(function->identifier_flags & IDENTIFIER_C_FUNCTION)    {    fp->num_args=args;    new_frame.num_locals=args;
1384:    args += num_args-args;    }    -  if(function->flags & IDENTIFIER_VARARGS) +  if(function->identifier_flags & IDENTIFIER_VARARGS)    {    f_aggregate(args - num_args); /* make array */    args = num_args+1;