fix another bug in list handling of environment stack

[r18421]

diff --git a/lextest/numbers/test b/lextest/numbers/test
index 66dd1c4..484c713 100644 (file)
--- a/lextest/numbers/test
+++ b/lextest/numbers/test
@@ -9,3 +9,4 @@
 0xff
 0123
 00123
+1234567890000000000.0

diff --git a/parser.c b/parser.c
index c024ade..6c78507 100644 (file)
--- a/parser.c
+++ b/parser.c
@@ -505,19 +505,16 @@ static void stack_pop_to(stack_entry_t **stack_ptr, size_t new_top)
                                symbol->declaration = declaration->symbol_next;
                        } else {
                                symbol->declaration = old_declaration;
-                               assert(old_declaration->symbol_next ==
-                                      declaration->symbol_next);
                        }
                } else {
                        declaration_t *iter_last = declaration;
-                       declaration_t *iter      = declaration->next;
+                       declaration_t *iter      = declaration->symbol_next;
                        for( ; iter != NULL; iter_last = iter, iter = iter->symbol_next) {
                                /* replace an entry? */
                                if(iter->namespace == namespace) {
                                        assert(iter_last != NULL);
                                        iter_last->symbol_next = old_declaration;
-                                       assert(old_declaration->symbol_next ==
-                                              declaration->symbol_next);
+                                       old_declaration->symbol_next = iter->symbol_next;
                                        break;
                                }
                        }