(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.

diff --git a/src/language/lexer/ChangeLog b/src/language/lexer/ChangeLog
index 081aa8dee3e18a08b74d531051e2956baabd333d..c1b5f984d9523ac87caee8f8f54f6d5945a031b1 100644 (file)
--- a/src/language/lexer/ChangeLog
+++ b/src/language/lexer/ChangeLog
@@ -1,3 +1,9 @@
+Sun Jun 25 22:41:00 2006  Ben Pfaff  <blp@gnu.org>
+
+       * 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  <blp@gnu.org>
 
        Reform string library.

diff --git a/src/language/lexer/q2c.c b/src/language/lexer/q2c.c
index 2919bd5b24d6abd172dca0f6888ba75ece084e40..50a0856a0012ab8f7bce137997891d8ed3466f5d 100644 (file)
--- a/src/language/lexer/q2c.c
+++ b/src/language/lexer/q2c.c
@@ -1931,9 +1931,11 @@ dump_free (int persistent)
              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: