- if ($var)
- sv_setref_pv($arg, \"${my $ntt = $ntype; $ntt =~ s/^(.*)Ptr$/Catacomb::$1/; $ntt =~ s/_/::/g; \$ntt}\", (void *)$var);
- else
- $arg = &PL_sv_undef;
+ ptrtosv(&$arg, $var, \"${my $ntt = $ntype; $ntt =~ s/^(.*)Ptr$/Catacomb::$1/; $ntt =~ s/_/::/g; \$ntt}\");
+T_CATSTRUCTUNDEF
+ ptrtosv(&$arg, $var, \"${my $ntt = $ntype; $ntt =~ s/^(.*)Ptr$/Catacomb::$1/; $ntt =~ s/_/::/g; \$ntt}\");
+T_FIELDELT
+ ptrtosv(&$arg, $var, \"Catacomb::MP\");
+T_GROUPELT
+ ptrtosv(&$arg, $var, \"Catacomb::Group::Element\");
+T_ECPT
+ ptrtosv(&$arg, $var, \"Catacomb::EC::Point\");