openkylin
/
libxs-parse-sublike-perl
mirror of https://gitee.com/openkylin/libxs-parse-sublike-perl.git
9
0
Fork 0
Code Issues Projects Releases Wiki Activity

32-bit-strlen-warning

This commit is contained in:
zhouganqing 2024-07-10 16:58:29 +08:00
parent 13d3f75297
commit 86627811d7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/XS/Parse/Sublike.xs
View File

@ -562,10 +562,10 @@ static void IMPL_register_xps_signature_attribute(pTHX_ const char *name, const
{
if(funcs->ver < 5)
croak("Mismatch in signature param attribute ABI version field: module wants %u; we require >= 5\n",
funcs->ver);
(int)funcs->ver);
if(funcs->ver > XSPARSESUBLIKE_ABI_VERSION)
croak("Mismatch in signature param attribute ABI version field: module wants %u; we support <= %d\n",
funcs->ver, XSPARSESUBLIKE_ABI_VERSION);
(int)funcs->ver, XSPARSESUBLIKE_ABI_VERSION);
if(!name || !(name[0] >= 'A' && name[0] <= 'Z'))
croak("Signature param attribute names must begin with a capital letter");