X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScalar-Vec-Util.git;a=blobdiff_plain;f=Util.xs;h=75ba8cabcabc72fd469c12eb9ceb36381c39f15e;hp=f954a42bcac3126d10215331e9b23ac3f521c139;hb=dec1755eec42f54c4d57813ed03393c0f765a699;hpb=1f8495d3b4e12ac774a20fde0ac23297f6e2108e

diff --git a/Util.xs b/Util.xs
index f954a42..75ba8ca 100644
--- a/Util.xs
+++ b/Util.xs
@@ -28,6 +28,7 @@ BOOT:
 
 void
 vfill(SV *sv, SV *ss, SV *sl, SV *sf)
+PROTOTYPE: $$$$
 PREINIT:
  size_t s, l, n, o;
  char f, *v;
@@ -59,6 +60,7 @@ CODE:
 
 void
 vcopy(SV *sf, SV *sfs, SV *st, SV *sts, SV *sl)
+PROTOTYPE: $$$$$
 PREINIT:
  size_t fs, ts, l, lf = 0, n, o;
  char *t, *f;
@@ -107,6 +109,7 @@ CODE:
 
 SV *
 veq(SV *sv1, SV *ss1, SV *sv2, SV *ss2, SV *sl)
+PROTOTYPE: $$$$$
 PREINIT:
  size_t s1, s2, l, o, n;
  char *v1, *v2;