InputStream T_IN
InOutStream T_INOUT
OutputStream T_OUT
+bool T_BOOL
#############################################################################
INPUT
$var = (int)SvIV($arg)
T_ENUM
$var = ($type)SvIV($arg)
+T_BOOL
+ $var = (int)SvIV($arg)
T_U_INT
$var = (unsigned int)SvIV($arg)
T_SHORT
else
croak(\"$var is not of type ${ntype}\")
T_PTROBJ
- if (sv_isa($arg, \"${ntype}\")) {
+ if (sv_derived_from($arg, \"${ntype}\")) {
IV tmp = SvIV((SV*)SvRV($arg));
$var = ($type) tmp;
}
}
T_ENUM
sv_setiv($arg, (IV)$var);
+T_BOOL
+ $arg = boolSV($var);
T_U_INT
sv_setiv($arg, (IV)$var);
T_SHORT
ST(ix_$var) = sv_newmortal();
DO_ARRAY_ELEM
}
- sp += $var.size - 1;
+ SP += $var.size - 1;
T_IN
{
GV *gv = newGVgen("$Package");