[q-lang-cvs] q/src qcrules.c,1.11,1.12

[Albert G. <ag...@us...>]

Update of /cvsroot/q-lang/q/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30354

Modified Files:
	qcrules.c 
Log Message:
occurrences on lhs of variable definition count as implicit declarations

Index: qcrules.c
===================================================================
RCS file: /cvsroot/q-lang/q/src/qcrules.c,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** qcrules.c	25 Apr 2006 07:44:19 -0000	1.11
--- qcrules.c	25 Apr 2006 08:12:09 -0000	1.12
***************
*** 1050,1053 ****
--- 1050,1054 ----
        }
        symtb[vno].flags |= DCL;
+       if (lvars) symtb[vno].flags &= ~FWD;
        genop(vno);
      }
***************
*** 1082,1086 ****
  		utf8_to_sys(strsp + symtb[x->fno].pname));
  	yywarn(msg);
!       } else if (!(symtb[x->fno].flags & VSYM))
  	symtb[x->fno].flags |= FWD;
      symtb[x->fno].flags |= DCL;
--- 1083,1087 ----
  		utf8_to_sys(strsp + symtb[x->fno].pname));
  	yywarn(msg);
!       } else if (!lvars && !(symtb[x->fno].flags & VSYM))
  	symtb[x->fno].flags |= FWD;
      symtb[x->fno].flags |= DCL;