forked from aniani/vim
Problem: Compiler warnings to size casts in Perl interface. Solution: Use XS macros. (James McCoy)
15 lines
284 B
Plaintext
15 lines
284 B
Plaintext
TYPEMAP
|
|
VIWIN T_VIOBJNOMUNGE
|
|
VIBUF T_VIOBJNOMUNGE
|
|
|
|
INPUT
|
|
T_VIOBJNOMUNGE
|
|
if (sv_isa($arg, \"${ntype}\")) {
|
|
IV tmp = SvIV((SV*)SvRV($arg));
|
|
$var = INT2PTR($type, tmp);
|
|
if (!tmp)
|
|
croak(\"$ntype no longer exists\");
|
|
}
|
|
else
|
|
croak(\"$var is not of type ${ntype}\")
|