[Pspp-cvs] pspp/src/language/lexer ChangeLog q2c.c

[Ben Pfaff]

CVSROOT:        /cvsroot/pspp
Module name:    pspp
Changes by:     Ben Pfaff <blp> 06/06/26 05:42:05

Modified files:
        src/language/lexer: ChangeLog q2c.c 

Log message:
        (dump_free) For SBC_DBL_LIST, enclose the output code in curly braces,
        because it contains a variable declaration and might not be at the
        beginning of a block.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/pspp/src/language/lexer/ChangeLog?cvsroot=pspp&r1=1.6&r2=1.7
http://cvs.savannah.gnu.org/viewcvs/pspp/src/language/lexer/q2c.c?cvsroot=pspp&r1=1.9&r2=1.10

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/pspp/pspp/src/language/lexer/ChangeLog,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- ChangeLog   9 Jun 2006 22:51:24 -0000       1.6
+++ ChangeLog   26 Jun 2006 05:42:05 -0000      1.7
@@ -1,3 +1,9 @@
+Sun Jun 25 22:41:00 2006  Ben Pfaff  <address@hidden>
+
+       * q2c.c (dump_free): For SBC_DBL_LIST, enclose the output code in
+       curly braces, because it contains a variable declaration and might
+       not be at the beginning of a block.
+
 Fri Jun  9 14:02:19 2006  Ben Pfaff  <address@hidden>
 
        Reform string library.

Index: q2c.c
===================================================================
RCS file: /cvsroot/pspp/pspp/src/language/lexer/q2c.c,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -b -r1.9 -r1.10
--- q2c.c       9 Jun 2006 22:51:24 -0000       1.9
+++ q2c.c       26 Jun 2006 05:42:05 -0000      1.10
@@ -1931,9 +1931,11 @@
              dump (0, "free (p->s_%s);", st_lower (sbc->name));
              break;
            case SBC_DBL_LIST:
-             dump (0, "int i;");
-             dump (1, "for(i = 0; i < MAXLISTS ; ++i)");
-             dump (0, "subc_list_double_destroy(&p->dl_%s[i]);", st_lower 
(sbc->name));
+              dump (0, "{");
+             dump (1, "int i;");
+             dump (2, "for(i = 0; i < MAXLISTS ; ++i)");
+             dump (1, "subc_list_double_destroy(&p->dl_%s[i]);", st_lower 
(sbc->name));
+              dump (0, "}");
              outdent();
              break;
            default: