Fix compiler bug with multidimensional array variable release (bug 6100, r=fyren).

--HG-- extra : rebase_source : 3f3c366fd8c47268ecd0df5907b68d3c879a5e60
2014-05-09 23:17:14 -04:00
parent e9b4a6e96c
commit 29ff05bd62
4 changed files with 15 additions and 2 deletions
@@ -5417,7 +5417,7 @@ static void destructsymbols(symbol *root,int level)
  cell offset=0;
  int savepri=FALSE;
  symbol *sym=root->next;
-  while (sym!=NULL && sym->compound>=level) {
+  while (sym!=NULL && get_actual_compound(sym)>=level) {
    if (sym->ident==iVARIABLE || sym->ident==iARRAY) {
      char symbolname[16];
      symbol *opsym;