From: Michael Schroeder <mls@suse.de>
Date: Tue, 27 Nov 2012 14:23:40 +0000 (+0100)
Subject: fix EXTEND calls in perl bindings
X-Git-Tag: upstream/0.2.3~40
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=2f5f3003d1869dad502f481dc30bca2e3a6cd8c4;p=platform%2Fupstream%2Flibsolv.git

fix EXTEND calls in perl bindings
---

diff --git a/bindings/solv.i b/bindings/solv.i
index a6171bc..8bd8ee4 100644
--- a/bindings/solv.i
+++ b/bindings/solv.i
@@ -100,8 +100,8 @@
 #
 %typemap(out) Queue {
   int i;
-  if (argvi + $1.count + 1>= items) {
-    EXTEND(sp, items - (argvi + $1.count + 1) + 1);
+  if (argvi + $1.count + 1 >= items) {
+    EXTEND(sp, (argvi + $1.count + 1) - items + 1);
   }
   for (i = 0; i < $1.count; i++)
     ST(argvi++) = SvREFCNT_inc(SWIG_From_int($1.elements[i]));
@@ -113,7 +113,7 @@
   int cnt = $1.count / step;
   Id *idp = $1.elements;
   if (argvi + cnt + 1 >= items) {
-    EXTEND(sp, items - (argvi + cnt + 1) + 1);
+    EXTEND(sp, (argvi + cnt + 1) - items + 1);
   }
   for (i = 0; i < cnt; i++, idp += step)
     {