]> git.vpit.fr Git - perl/modules/Scalar-Vec-Util.git/commitdiff
Don't upgrade the arguments if it's not necessary
authorVincent Pit <vince@profvince.com>
Sun, 17 May 2009 15:20:21 +0000 (17:20 +0200)
committerVincent Pit <vince@profvince.com>
Sun, 17 May 2009 15:20:21 +0000 (17:20 +0200)
Util.xs
bitvect.h

diff --git a/Util.xs b/Util.xs
index 8f6345b2a584d426266dcae7c61a64c1b0ba9739..f954a42bcac3126d10215331e9b23ac3f521c139 100644 (file)
--- a/Util.xs
+++ b/Util.xs
@@ -115,6 +115,8 @@ CODE:
   croak(svu_error_invarg);
 
  l  = SvUV(sl);
+ if (!l)
+  XSRETURN(0);
  s1 = SvUV(ss1);
  s2 = SvUV(ss2);
  SvUPGRADE(sv1, SVt_PV);
index a90ada96b4a1c5acae52b3f13d9d57519da9c0ca..a62f472af79666e31bd8aa4c3b1e228b6b37642d 100644 (file)
--- a/bitvect.h
+++ b/bitvect.h
@@ -230,9 +230,6 @@ INLINE_DECLARE(void bv_copy(void *t_, size_t ts, const void *f_, size_t fs, size
  T ins, mask, *t = (T *) t_;
  const T *f = (const T *) f_, *end;
 
- if (!l)
-  return;
-
  t  += ts / BITS(T);
  ts %= BITS(T);
 
@@ -295,7 +292,7 @@ INLINE_DECLARE(void bv_move(void *bv_, size_t ts, size_t fs, size_t l))
  T ins, tmp, mask, *bv = (T *) bv_, *t, *f;
  const T *begin, *end;
 
- if (!l || ts == fs)
+ if (ts == fs)
   return;
 
  to = ts % BITS(T);
@@ -503,9 +500,6 @@ INLINE_DECLARE(void bv_fill(void *bv_, size_t s, size_t l, unsigned int f))
  size_t o, k;
  T mask, *bv = (T *) bv_;
 
- if (!l)
-  return;
-
  if (f)
   f = ~0;