tweaks to enable PERL_OBJECT to build & test on win32

[p5sagit/p5-mst-13.2.git] / objpp.h

diff --git a/objpp.h b/objpp.h
index 005d472..8bab61a 100644 (file)
--- a/objpp.h
+++ b/objpp.h
@@ -1064,6 +1064,10 @@
 #define regcppush         CPerlObj::regcppush
 #undef  regcppop
 #define regcppop          CPerlObj::regcppop
+#undef  regcp_set_to
+#define regcp_set_to      CPerlObj::regcp_set_to
+#undef  cache_re
+#define cache_re          CPerlObj::cache_re
 #undef  reghop
 #define reghop            CPerlObj::reghop
 #undef  reghopmaybe
@@ -1504,6 +1508,27 @@
 #undef  to_utf8_upper
 #define to_utf8_upper       CPerlObj::Perl_to_utf8_upper
 
+#undef do_trans_CC_simple
+#define do_trans_CC_simple     CPerlObj::do_trans_CC_simple
+#undef do_trans_CC_count
+#define do_trans_CC_count      CPerlObj::do_trans_CC_count
+#undef do_trans_CC_complex
+#define do_trans_CC_complex    CPerlObj::do_trans_CC_complex
+#undef do_trans_UU_simple
+#define do_trans_UU_simple     CPerlObj::do_trans_UU_simple
+#undef do_trans_UU_count
+#define do_trans_UU_count      CPerlObj::do_trans_UU_count
+#undef do_trans_UU_complex
+#define do_trans_UU_complex    CPerlObj::do_trans_UU_complex
+#undef do_trans_UC_simple
+#define do_trans_UC_simple     CPerlObj::do_trans_UC_simple
+#undef do_trans_CU_simple
+#define do_trans_CU_simple     CPerlObj::do_trans_CU_simple
+#undef do_trans_UC_trivial
+#define do_trans_UC_trivial    CPerlObj::do_trans_UC_trivial
+#undef do_trans_CU_trivial
+#define do_trans_CU_trivial    CPerlObj::do_trans_CU_trivial
+
 #undef  too_few_arguments
 #define too_few_arguments CPerlObj::Perl_too_few_arguments
 #undef  too_many_arguments