Branch: Tag:

1998-02-01

1998-02-01 04:01:36 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

multi-lvalues implemented...

Rev: src/array.c:1.26
Rev: src/array.h:1.8
Rev: src/docode.c:1.30
Rev: src/interpret.c:1.66
Rev: src/language.yacc:1.59
Rev: src/las.c:1.50
Rev: src/lex.c:1.43
Rev: src/svalue.h:1.11

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: las.c,v 1.49 1998/01/30 05:24:34 hubbe Exp $"); + RCSID("$Id: las.c,v 1.50 1998/02/01 04:01:34 hubbe Exp $");      #include "language.h"   #include "interpret.h"
1028:    low_print_tree(CDR(foo),needlval);    return;    +  case F_ARRAY_LVALUE: +  putchar('['); +  low_print_tree(CAR(foo),1); +  putchar(']'); +  break; +     case F_LVALUE_LIST:    low_print_tree(CAR(foo),1);    if(CAR(foo) && CDR(foo)) putchar(',');
1250:    find_written_vars(CDR(n), p, 1);    break;    +  case F_ARRAY_LVALUE: +  find_written_vars(CAR(n), p, 1); +  break; +     case F_LVALUE_LIST:    find_written_vars(CAR(n), p, 1);    find_written_vars(CDR(n), p, 1);