[svn:parrot] r11821 - trunk/compilers/imcc

[leo]

Author: leo
Date: Wed Mar  8 03:32:01 2006
New Revision: 11821

Modified:
   trunk/compilers/imcc/imcc.l
   trunk/compilers/imcc/imclexer.c

Log:
C89 compliance

Modified: trunk/compilers/imcc/imcc.l
==============================================================================
--- trunk/compilers/imcc/imcc.l (original)
+++ trunk/compilers/imcc/imcc.l Wed Mar  8 03:32:01 2006
@@ -682,11 +682,12 @@
 read_braced (YYSTYPE *valp, void *interp, const char *macro_name,
     char *current)
 {
-    int c;
+    int c, count, len;
     YYSTYPE val;
-    int len = strlen(current);
+
+    len = strlen(current);
     c = yylex(&val, interp);
-    int count = 0;
+    count = 0;
     while (c != '}' || count > 0) {
         if (c == '}')      count--;
         else if (c == '{') count++;

Modified: trunk/compilers/imcc/imclexer.c
==============================================================================
--- trunk/compilers/imcc/imclexer.c     (original)
+++ trunk/compilers/imcc/imclexer.c     Wed Mar  8 03:32:01 2006
@@ -2,7 +2,7 @@
 /* A lexical scanner generated by flex */
 
 /* Scanner skeleton version:
- * $Header: /cvs/root/flex/flex/skel.c,v 1.1.1.1 1999/04/23 00:46:30 wsanchez 
Exp $
+ * $Header: /home/daffy/u0/vern/flex/RCS/flex.skl,v 2.91 96/09/10 16:58:48 
vern Exp $
  */
 
 #define FLEX_SCANNER
@@ -5215,11 +5215,12 @@
 read_braced (YYSTYPE *valp, void *interp, const char *macro_name,
     char *current)
 {
-    int c;
+    int c, count, len;
     YYSTYPE val;
-    int len = strlen(current);
+
+    len = strlen(current);
     c = yylex(&val, interp);
-    int count = 0;
+    count = 0;
     while (c != '}' || count > 0) {
         if (c == '}')      count--;
         else if (c == '{') count++;