view src/typemap @ 22212:36af5cb8413c v8.2.1655

patch 8.2.1655: cannot build with Strawberry Perl 5.32.0 Commit: https://github.com/vim/vim/commit/895a7a472d2eb4413e63cdad3213cb1ef1633458 Author: Bram Moolenaar <Bram@vim.org> Date: Thu Sep 10 21:36:11 2020 +0200 patch 8.2.1655: cannot build with Strawberry Perl 5.32.0 Problem: Cannot build with Strawberry Perl 5.32.0. Solution: Use Perl_sv_2pvbyte_flags. (closes https://github.com/vim/vim/issues/6921)
author Bram Moolenaar <Bram@vim.org>
date Thu, 10 Sep 2020 21:45:03 +0200
parents dec4338a7da2
children
line wrap: on
line source

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}\")