Add prototypes

[perl/modules/Scalar-Vec-Util.git] / Util.xs

diff --git a/Util.xs b/Util.xs
index f954a42bcac3126d10215331e9b23ac3f521c139..75ba8cabcabc72fd469c12eb9ceb36381c39f15e 100644 (file)
--- 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;