Symbian port of Perl

Message-ID: <B356D8F434D20B40A8CEDAEC305A1F2453D653@esebe105.NOE.Nokia.com>

p4raw-id: //depot/perl@24271

1 files changed, 78 insertions, 15 deletions

diff --git a/embedvar.h b/embedvar.h
index 449658264a..b7ce358354 100644
--- a/embedvar.h
+++ b/embedvar.h
@@ -885,39 +885,102 @@
 
 #if defined(PERL_GLOBAL_STRUCT)
 
-#define PL_No			(PL_Vars.GNo)
-#define PL_Yes			(PL_Vars.GYes)
-#define PL_csighandlerp		(PL_Vars.Gcsighandlerp)
-#define PL_curinterp		(PL_Vars.Gcurinterp)
-#define PL_do_undump		(PL_Vars.Gdo_undump)
-#define PL_dollarzero_mutex	(PL_Vars.Gdollarzero_mutex)
-#define PL_hexdigit		(PL_Vars.Ghexdigit)
-#define PL_malloc_mutex		(PL_Vars.Gmalloc_mutex)
-#define PL_op_mutex		(PL_Vars.Gop_mutex)
-#define PL_patleave		(PL_Vars.Gpatleave)
-#define PL_sh_path		(PL_Vars.Gsh_path)
-#define PL_sigfpe_saved		(PL_Vars.Gsigfpe_saved)
-#define PL_sv_placeholder	(PL_Vars.Gsv_placeholder)
-#define PL_thr_key		(PL_Vars.Gthr_key)
-#define PL_use_safe_putenv	(PL_Vars.Guse_safe_putenv)
+#define PL_No			(my_vars->GNo)
+#define PL_GNo			(my_vars->GNo)
+#define PL_Yes			(my_vars->GYes)
+#define PL_GYes			(my_vars->GYes)
+#define PL_appctx		(my_vars->Gappctx)
+#define PL_Gappctx		(my_vars->Gappctx)
+#define PL_check		(my_vars->Gcheck)
+#define PL_Gcheck		(my_vars->Gcheck)
+#define PL_csighandlerp		(my_vars->Gcsighandlerp)
+#define PL_Gcsighandlerp	(my_vars->Gcsighandlerp)
+#define PL_curinterp		(my_vars->Gcurinterp)
+#define PL_Gcurinterp		(my_vars->Gcurinterp)
+#define PL_do_undump		(my_vars->Gdo_undump)
+#define PL_Gdo_undump		(my_vars->Gdo_undump)
+#define PL_dollarzero_mutex	(my_vars->Gdollarzero_mutex)
+#define PL_Gdollarzero_mutex	(my_vars->Gdollarzero_mutex)
+#define PL_fold_locale		(my_vars->Gfold_locale)
+#define PL_Gfold_locale		(my_vars->Gfold_locale)
+#define PL_hexdigit		(my_vars->Ghexdigit)
+#define PL_Ghexdigit		(my_vars->Ghexdigit)
+#define PL_malloc_mutex		(my_vars->Gmalloc_mutex)
+#define PL_Gmalloc_mutex	(my_vars->Gmalloc_mutex)
+#define PL_mmap_page_size	(my_vars->Gmmap_page_size)
+#define PL_Gmmap_page_size	(my_vars->Gmmap_page_size)
+#define PL_op_mutex		(my_vars->Gop_mutex)
+#define PL_Gop_mutex		(my_vars->Gop_mutex)
+#define PL_op_seq		(my_vars->Gop_seq)
+#define PL_Gop_seq		(my_vars->Gop_seq)
+#define PL_op_sequence		(my_vars->Gop_sequence)
+#define PL_Gop_sequence		(my_vars->Gop_sequence)
+#define PL_patleave		(my_vars->Gpatleave)
+#define PL_Gpatleave		(my_vars->Gpatleave)
+#define PL_perlio_debug_fd	(my_vars->Gperlio_debug_fd)
+#define PL_Gperlio_debug_fd	(my_vars->Gperlio_debug_fd)
+#define PL_perlio_fd_refcnt	(my_vars->Gperlio_fd_refcnt)
+#define PL_Gperlio_fd_refcnt	(my_vars->Gperlio_fd_refcnt)
+#define PL_ppaddr		(my_vars->Gppaddr)
+#define PL_Gppaddr		(my_vars->Gppaddr)
+#define PL_sh_path		(my_vars->Gsh_path)
+#define PL_Gsh_path		(my_vars->Gsh_path)
+#define PL_sig_defaulting	(my_vars->Gsig_defaulting)
+#define PL_Gsig_defaulting	(my_vars->Gsig_defaulting)
+#define PL_sig_handlers_initted	(my_vars->Gsig_handlers_initted)
+#define PL_Gsig_handlers_initted	(my_vars->Gsig_handlers_initted)
+#define PL_sig_ignoring		(my_vars->Gsig_ignoring)
+#define PL_Gsig_ignoring	(my_vars->Gsig_ignoring)
+#define PL_sig_sv		(my_vars->Gsig_sv)
+#define PL_Gsig_sv		(my_vars->Gsig_sv)
+#define PL_sig_trapped		(my_vars->Gsig_trapped)
+#define PL_Gsig_trapped		(my_vars->Gsig_trapped)
+#define PL_sigfpe_saved		(my_vars->Gsigfpe_saved)
+#define PL_Gsigfpe_saved	(my_vars->Gsigfpe_saved)
+#define PL_sv_placeholder	(my_vars->Gsv_placeholder)
+#define PL_Gsv_placeholder	(my_vars->Gsv_placeholder)
+#define PL_thr_key		(my_vars->Gthr_key)
+#define PL_Gthr_key		(my_vars->Gthr_key)
+#define PL_timesbase		(my_vars->Gtimesbase)
+#define PL_Gtimesbase		(my_vars->Gtimesbase)
+#define PL_use_safe_putenv	(my_vars->Guse_safe_putenv)
+#define PL_Guse_safe_putenv	(my_vars->Guse_safe_putenv)
+#define PL_watch_pvx		(my_vars->Gwatch_pvx)
+#define PL_Gwatch_pvx		(my_vars->Gwatch_pvx)
 
 #else /* !PERL_GLOBAL_STRUCT */
 
 #define PL_GNo			PL_No
 #define PL_GYes			PL_Yes
+#define PL_Gappctx		PL_appctx
+#define PL_Gcheck		PL_check
 #define PL_Gcsighandlerp	PL_csighandlerp
 #define PL_Gcurinterp		PL_curinterp
 #define PL_Gdo_undump		PL_do_undump
 #define PL_Gdollarzero_mutex	PL_dollarzero_mutex
+#define PL_Gfold_locale		PL_fold_locale
 #define PL_Ghexdigit		PL_hexdigit
 #define PL_Gmalloc_mutex	PL_malloc_mutex
+#define PL_Gmmap_page_size	PL_mmap_page_size
 #define PL_Gop_mutex		PL_op_mutex
+#define PL_Gop_seq		PL_op_seq
+#define PL_Gop_sequence		PL_op_sequence
 #define PL_Gpatleave		PL_patleave
+#define PL_Gperlio_debug_fd	PL_perlio_debug_fd
+#define PL_Gperlio_fd_refcnt	PL_perlio_fd_refcnt
+#define PL_Gppaddr		PL_ppaddr
 #define PL_Gsh_path		PL_sh_path
+#define PL_Gsig_defaulting	PL_sig_defaulting
+#define PL_Gsig_handlers_initted	PL_sig_handlers_initted
+#define PL_Gsig_ignoring	PL_sig_ignoring
+#define PL_Gsig_sv		PL_sig_sv
+#define PL_Gsig_trapped		PL_sig_trapped
 #define PL_Gsigfpe_saved	PL_sigfpe_saved
 #define PL_Gsv_placeholder	PL_sv_placeholder
 #define PL_Gthr_key		PL_thr_key
+#define PL_Gtimesbase		PL_timesbase
 #define PL_Guse_safe_putenv	PL_use_safe_putenv
+#define PL_Gwatch_pvx		PL_watch_pvx
 
 #endif /* PERL_GLOBAL_STRUCT */