Fixed bug with Z-a character classes as per Wilhelms

diff --git a/parse.y b/parse.y
index 828e0e20a4bda720e1b34ac66de9869be541c91c..c70d7d672a340a4f28c128a4b5dab099de566e3e 100644 (file)
--- a/parse.y
+++ b/parse.y
@@ -604,19 +604,19 @@ fullccl           :  '[' ccl ']'
 
 ccl            :  ccl CHAR '-' CHAR
                        {
+                       if ( caseins )
+                               {
+                               if ( $2 >= 'A' && $2 <= 'Z' )
+                                       $2 = clower( $2 );
+                               if ( $4 >= 'A' && $4 <= 'Z' )
+                                       $4 = clower( $4 );
+                               }
+
                        if ( $2 > $4 )
                                synerr( "negative range in character class" );
 
                        else
                                {
-                               if ( caseins )
-                                       {
-                                       if ( $2 >= 'A' && $2 <= 'Z' )
-                                               $2 = clower( $2 );
-                                       if ( $4 >= 'A' && $4 <= 'Z' )
-                                               $4 = clower( $4 );
-                                       }
-
                                for ( i = $2; i <= $4; ++i )
                                        ccladd( $1, i );