repo: rxvt-unicode-sixel
action: commit
revision: 
path_from: 
revision_from: 5846b833ddc4a9dfa6b0b8886d3c8ceeaea6ab67:
path_to: 
revision_to: 

commit 5846b833ddc4a9dfa6b0b8886d3c8ceeaea6ab67
Author: Marc Lehmann 
Date:   Fri Jul 29 08:35:09 2011 +0000

    *** empty log message ***

diff --git a/src/iom_perl.xs b/src/iom_perl.xs

--- a/src/iom_perl.xs
+++ b/src/iom_perl.xs
@@ -19,8 +19,8 @@ BOOT:
 #   undef iom_const
     };

-    for (civ = iom_const_iv + sizeof (iom_const_iv) / sizeof (iom_const_iv [0]); civ-- > iom_const_iv; )
-      newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
+    for (civ = iom_const_iv + sizeof (iom_const_iv) / sizeof (iom_const_iv [0]); civ > iom_const_iv; civ--)
+      newCONSTSUB (stash, (char *)civ[-1].name, newSViv (civ[-1].iv));

     /* slightly dirty to put the same scalar into all those arrays, but */
     /* we do not expect users to modify them anyways */
diff --git a/src/rxvtperl.xs b/src/rxvtperl.xs

--- a/src/rxvtperl.xs
+++ b/src/rxvtperl.xs
@@ -801,8 +801,8 @@ BOOT:
 #   endif
   };

-  for (civ = const_iv + ecb_array_length (const_iv); civ-- > const_iv; )
-    newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
+  for (civ = const_iv + ecb_array_length (const_iv); civ > const_iv; civ--)
+    newCONSTSUB (stash, (char *)civ[-1].name, newSViv (civ[-1].iv));
 }

 void

-----END OF PAGE-----