From 542b138bdb29e4a3d765a12bdc60fd2a0da84c3c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net> Date: Fri, 16 Jul 1999 15:54:23 -0700 Subject: [PATCH] bugfix Rev: src/object.c:1.73 --- src/object.c | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/src/object.c b/src/object.c index 684debf19b..1c2d2e132c 100644 --- a/src/object.c +++ b/src/object.c @@ -5,7 +5,7 @@ \*/ /**/ #include "global.h" -RCSID("$Id: object.c,v 1.72 1999/06/19 20:01:05 hubbe Exp $"); +RCSID("$Id: object.c,v 1.73 1999/07/16 22:54:23 hubbe Exp $"); #include "object.h" #include "dynamic_buffer.h" #include "interpret.h" @@ -832,20 +832,20 @@ union anything *object_get_item_ptr(struct object *o, return 0; /* make gcc happy */ } - f=ARROW_INDEX_P(index) ? LFUN_ASSIGN_ARROW : LFUN_ASSIGN_INDEX; - - if(FIND_LFUN(p,f) != -1) - { - return 0; - - /* error("Cannot do incremental operations on overloaded index (yet).\n"); - */ - } - switch(index->type) { case T_STRING: + f=ARROW_INDEX_P(index) ? LFUN_ASSIGN_ARROW : LFUN_ASSIGN_INDEX; + + if(FIND_LFUN(p,f) != -1) + { + return 0; + + /* error("Cannot do incremental operations on overloaded index (yet).\n"); + */ + } + f=find_shared_string_identifier(index->u.string, p); break; @@ -854,7 +854,7 @@ union anything *object_get_item_ptr(struct object *o, break; default: - error("Lookup on non-string value.\n"); +/* error("Lookup on non-string value.\n"); */ return 0; } -- GitLab