else if (v == &PL_vtbl_env) s = "env";
else if (v == &PL_vtbl_envelem) s = "envelem";
else if (v == &PL_vtbl_sig) s = "sig";
+#ifndef PERL_MICRO
else if (v == &PL_vtbl_sigelem) s = "sigelem";
+#endif
else if (v == &PL_vtbl_pack) s = "pack";
else if (v == &PL_vtbl_packelem) s = "packelem";
else if (v == &PL_vtbl_dbline) s = "dbline";
0
);
-#ifdef PERL_MICRO
-MGVTBL_SET(
- PL_vtbl_sigelem,
- 0,
- 0,
- 0,
- 0,
- 0,
- 0,
- 0,
- 0
-);
-
-#else
+#ifndef PERL_MICRO
MGVTBL_SET(
PL_vtbl_sigelem,
Perl_magic_getsig,
case PERL_MAGIC_sig:
vtable = &PL_vtbl_sig;
break;
+#ifndef PERL_MICRO
case PERL_MAGIC_sigelem:
vtable = &PL_vtbl_sigelem;
break;
+#endif
case PERL_MAGIC_taint:
vtable = &PL_vtbl_taint;
break;
case want_vtbl_sig:
result = &PL_vtbl_sig;
break;
+#ifndef PERL_MICRO
case want_vtbl_sigelem:
result = &PL_vtbl_sigelem;
break;
+#endif
case want_vtbl_pack:
result = &PL_vtbl_pack;
break;