sill bug fixed

Rev: src/language.yacc:1.26
Rev: src/las.c:1.28

src/language.yacc

@@ -156,7 +156,7 @@
 /* This is the grammar definition of Pike. */
 
 #include "global.h"
-RCSID("$Id: language.yacc,v 1.25 1997/02/18 05:13:34 hubbe Exp $");
+RCSID("$Id: language.yacc,v 1.26 1997/03/01 02:37:01 hubbe Exp $");
 #ifdef HAVE_MEMORY_H
 #include <memory.h>
 #endif
@@ -1130,9 +1130,9 @@ idents: low_idents
   {
     $$=index_node($1, $3);
     free_node($1);
-    free_string($3);
-    free_string(last_identifier);
+    if(last_identifier) free_string(last_identifier);
     copy_shared_string(last_identifier, $3);
+    free_string($3);
   }
   ;
 

src/las.c

@@ -4,7 +4,7 @@
 ||| See the files COPYING and DISCLAIMER for more information.
 \*/
 #include "global.h"
-RCSID("$Id: las.c,v 1.27 1997/02/27 11:23:22 hubbe Exp $");
+RCSID("$Id: las.c,v 1.28 1997/03/01 02:37:03 hubbe Exp $");
 
 #include "language.h"
 #include "interpret.h"
@@ -508,6 +508,8 @@ node *index_node(node *n, struct pike_string * id)
     case T_STRING:
     case T_ARRAY:
       yyerror("Failed to index module (Not a module?)");
+      pop_stack();
+      push_int(0);
       break;
 
     default: