X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScalar-Vec-Util.git;a=blobdiff_plain;f=Util.xs;fp=Util.xs;h=6342936fc2d33d63cab065319f8a85324b7c8a3a;hp=86a21cae21f8f92668960c29cb619330851b249a;hb=afa3e8431d5029fe9877128b2bdfd446fec7e230;hpb=b1a1df91b1e35312c5b2e18b7b780c6525b475be diff --git a/Util.xs b/Util.xs index 86a21ca..6342936 100644 --- a/Util.xs +++ b/Util.xs @@ -11,7 +11,7 @@ #include "bitvect.h" -STATIC size_t svu_validate_uv(pTHX_ SV *sv, const char *desc) { +static size_t svu_validate_uv(pTHX_ SV *sv, const char *desc) { #define svu_validate_uv(S, D) svu_validate_uv(aTHX_ (S), (D)) IV i; @@ -33,7 +33,7 @@ STATIC size_t svu_validate_uv(pTHX_ SV *sv, const char *desc) { return 0; } -STATIC char *svu_prepare_sv(pTHX_ SV *sv, size_t s, size_t l) { +static char *svu_prepare_sv(pTHX_ SV *sv, size_t s, size_t l) { #define svu_prepare_sv(S, I, L) svu_prepare_sv(aTHX_ (S), (I), (L)) STRLEN c; size_t n = s + l, i, js, jz, k, z;