This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Call get-magic on temp returned under recursion
[perl5.git] / embedvar.h
index 3a9bccc..2405ee5 100644 (file)
@@ -1,16 +1,16 @@
-/*  -*- buffer-read-only: t -*-
+/* -*- buffer-read-only: t -*-
  *
  *    embedvar.h
  *
- *    Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
- *    2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, by Larry Wall and others
+ *    Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001,
+ *    2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 by Larry Wall and others
  *
  *    You may distribute under the terms of either the GNU General Public
  *    License or the Artistic License, as specified in the README file.
  *
  * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
- * This file is built by embed.pl from data in embed.fnc, embed.pl,
- * pp.sym, intrpvar.h, and perlvars.h.
+ * This file is built by regen/embed.pl from data in embed.fnc,
+ * regen/embed.pl, regen/opcodes, intrpvar.h and perlvars.h.
  * Any changes made here will be lost!
  *
  * Edit those files and run 'make regen_headers' to effect changes.
 #define PL_curstname           (vTHX->Icurstname)
 #define PL_custom_op_descs     (vTHX->Icustom_op_descs)
 #define PL_custom_op_names     (vTHX->Icustom_op_names)
+#define PL_custom_ops          (vTHX->Icustom_ops)
 #define PL_cv_has_eval         (vTHX->Icv_has_eval)
 #define PL_dbargs              (vTHX->Idbargs)
 #define PL_debstash            (vTHX->Idebstash)
 #define PL_delaymagic          (vTHX->Idelaymagic)
 #define PL_destroyhook         (vTHX->Idestroyhook)
 #define PL_diehook             (vTHX->Idiehook)
-#define PL_dirty               (vTHX->Idirty)
-#define PL_doextract           (vTHX->Idoextract)
 #define PL_doswitches          (vTHX->Idoswitches)
 #define PL_dowarn              (vTHX->Idowarn)
 #define PL_dumper_fd           (vTHX->Idumper_fd)
 #define PL_last_swash_tmps     (vTHX->Ilast_swash_tmps)
 #define PL_lastfd              (vTHX->Ilastfd)
 #define PL_lastgotoprobe       (vTHX->Ilastgotoprobe)
-#define PL_lastscream          (vTHX->Ilastscream)
 #define PL_laststatval         (vTHX->Ilaststatval)
 #define PL_laststype           (vTHX->Ilaststype)
 #define PL_localizing          (vTHX->Ilocalizing)
 #define PL_markstack_ptr       (vTHX->Imarkstack_ptr)
 #define PL_max_intro_pending   (vTHX->Imax_intro_pending)
 #define PL_maxo                        (vTHX->Imaxo)
-#define PL_maxscream           (vTHX->Imaxscream)
 #define PL_maxsysfd            (vTHX->Imaxsysfd)
 #define PL_memory_debug_header (vTHX->Imemory_debug_header)
 #define PL_mess_sv             (vTHX->Imess_sv)
 #define PL_perl_destruct_level (vTHX->Iperl_destruct_level)
 #define PL_perldb              (vTHX->Iperldb)
 #define PL_perlio              (vTHX->Iperlio)
+#define PL_phase               (vTHX->Iphase)
 #define PL_pidstatus           (vTHX->Ipidstatus)
 #define PL_ppid                        (vTHX->Ippid)
 #define PL_preambleav          (vTHX->Ipreambleav)
 #define PL_scopestack_ix       (vTHX->Iscopestack_ix)
 #define PL_scopestack_max      (vTHX->Iscopestack_max)
 #define PL_scopestack_name     (vTHX->Iscopestack_name)
-#define PL_screamfirst         (vTHX->Iscreamfirst)
-#define PL_screamnext          (vTHX->Iscreamnext)
 #define PL_secondgv            (vTHX->Isecondgv)
 #define PL_sharehook           (vTHX->Isharehook)
 #define PL_sig_pending         (vTHX->Isig_pending)
 #define PL_utf8_ascii          (vTHX->Iutf8_ascii)
 #define PL_utf8_cntrl          (vTHX->Iutf8_cntrl)
 #define PL_utf8_digit          (vTHX->Iutf8_digit)
+#define PL_utf8_foldable       (vTHX->Iutf8_foldable)
+#define PL_utf8_foldclosures   (vTHX->Iutf8_foldclosures)
 #define PL_utf8_graph          (vTHX->Iutf8_graph)
 #define PL_utf8_idcont         (vTHX->Iutf8_idcont)
 #define PL_utf8_idstart                (vTHX->Iutf8_idstart)
 #define PL_utf8_toupper                (vTHX->Iutf8_toupper)
 #define PL_utf8_upper          (vTHX->Iutf8_upper)
 #define PL_utf8_xdigit         (vTHX->Iutf8_xdigit)
+#define PL_utf8_xidcont                (vTHX->Iutf8_xidcont)
+#define PL_utf8_xidstart       (vTHX->Iutf8_xidstart)
 #define PL_utf8cache           (vTHX->Iutf8cache)
 #define PL_utf8locale          (vTHX->Iutf8locale)
 #define PL_warnhook            (vTHX->Iwarnhook)
 #define PL_Icurstname          PL_curstname
 #define PL_Icustom_op_descs    PL_custom_op_descs
 #define PL_Icustom_op_names    PL_custom_op_names
+#define PL_Icustom_ops         PL_custom_ops
 #define PL_Icv_has_eval                PL_cv_has_eval
 #define PL_Idbargs             PL_dbargs
 #define PL_Idebstash           PL_debstash
 #define PL_Idelaymagic         PL_delaymagic
 #define PL_Idestroyhook                PL_destroyhook
 #define PL_Idiehook            PL_diehook
-#define PL_Idirty              PL_dirty
-#define PL_Idoextract          PL_doextract
 #define PL_Idoswitches         PL_doswitches
 #define PL_Idowarn             PL_dowarn
 #define PL_Idumper_fd          PL_dumper_fd
 #define PL_Ilast_swash_tmps    PL_last_swash_tmps
 #define PL_Ilastfd             PL_lastfd
 #define PL_Ilastgotoprobe      PL_lastgotoprobe
-#define PL_Ilastscream         PL_lastscream
 #define PL_Ilaststatval                PL_laststatval
 #define PL_Ilaststype          PL_laststype
 #define PL_Ilocalizing         PL_localizing
 #define PL_Imarkstack_ptr      PL_markstack_ptr
 #define PL_Imax_intro_pending  PL_max_intro_pending
 #define PL_Imaxo               PL_maxo
-#define PL_Imaxscream          PL_maxscream
 #define PL_Imaxsysfd           PL_maxsysfd
 #define PL_Imemory_debug_header        PL_memory_debug_header
 #define PL_Imess_sv            PL_mess_sv
 #define PL_Iperl_destruct_level        PL_perl_destruct_level
 #define PL_Iperldb             PL_perldb
 #define PL_Iperlio             PL_perlio
+#define PL_Iphase              PL_phase
 #define PL_Ipidstatus          PL_pidstatus
 #define PL_Ippid               PL_ppid
 #define PL_Ipreambleav         PL_preambleav
 #define PL_Iscopestack_ix      PL_scopestack_ix
 #define PL_Iscopestack_max     PL_scopestack_max
 #define PL_Iscopestack_name    PL_scopestack_name
-#define PL_Iscreamfirst                PL_screamfirst
-#define PL_Iscreamnext         PL_screamnext
 #define PL_Isecondgv           PL_secondgv
 #define PL_Isharehook          PL_sharehook
 #define PL_Isig_pending                PL_sig_pending
 #define PL_Iutf8_ascii         PL_utf8_ascii
 #define PL_Iutf8_cntrl         PL_utf8_cntrl
 #define PL_Iutf8_digit         PL_utf8_digit
+#define PL_Iutf8_foldable      PL_utf8_foldable
+#define PL_Iutf8_foldclosures  PL_utf8_foldclosures
 #define PL_Iutf8_graph         PL_utf8_graph
 #define PL_Iutf8_idcont                PL_utf8_idcont
 #define PL_Iutf8_idstart       PL_utf8_idstart
 #define PL_Iutf8_toupper       PL_utf8_toupper
 #define PL_Iutf8_upper         PL_utf8_upper
 #define PL_Iutf8_xdigit                PL_utf8_xdigit
+#define PL_Iutf8_xidcont       PL_utf8_xidcont
+#define PL_Iutf8_xidstart      PL_utf8_xidstart
 #define PL_Iutf8cache          PL_utf8cache
 #define PL_Iutf8locale         PL_utf8locale
 #define PL_Iwarnhook           PL_warnhook
 
 #if defined(PERL_GLOBAL_STRUCT)
 
-#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_Gdollarzero_mutex   (my_vars->Gdollarzero_mutex)
 #define PL_fold_locale         (my_vars->Gfold_locale)
 #define PL_Gfold_locale                (my_vars->Gfold_locale)
-#define PL_global_struct_size  (my_vars->Gglobal_struct_size)
-#define PL_Gglobal_struct_size (my_vars->Gglobal_struct_size)
-#define PL_hexdigit            (my_vars->Ghexdigit)
-#define PL_Ghexdigit           (my_vars->Ghexdigit)
 #define PL_hints_mutex         (my_vars->Ghints_mutex)
 #define PL_Ghints_mutex                (my_vars->Ghints_mutex)
-#define PL_interp_size         (my_vars->Ginterp_size)
-#define PL_Ginterp_size                (my_vars->Ginterp_size)
-#define PL_interp_size_5_10_0  (my_vars->Ginterp_size_5_10_0)
-#define PL_Ginterp_size_5_10_0 (my_vars->Ginterp_size_5_10_0)
 #define PL_keyword_plugin      (my_vars->Gkeyword_plugin)
 #define PL_Gkeyword_plugin     (my_vars->Gkeyword_plugin)
 #define PL_malloc_mutex                (my_vars->Gmalloc_mutex)
 #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_mutex       (my_vars->Gperlio_mutex)
 #define PL_ppaddr              (my_vars->Gppaddr)
 #define PL_Gppaddr             (my_vars->Gppaddr)
-#define PL_revision            (my_vars->Grevision)
-#define PL_Grevision           (my_vars->Grevision)
-#define PL_runops_dbg          (my_vars->Grunops_dbg)
-#define PL_Grunops_dbg         (my_vars->Grunops_dbg)
-#define PL_runops_std          (my_vars->Grunops_std)
-#define PL_Grunops_std         (my_vars->Grunops_std)
+#ifdef OS2
 #define PL_sh_path             (my_vars->Gsh_path)
 #define PL_Gsh_path            (my_vars->Gsh_path)
+#endif
 #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_subversion          (my_vars->Gsubversion)
-#define PL_Gsubversion         (my_vars->Gsubversion)
 #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_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_version             (my_vars->Gversion)
-#define PL_Gversion            (my_vars->Gversion)
 #define PL_veto_cleanup                (my_vars->Gveto_cleanup)
 #define PL_Gveto_cleanup       (my_vars->Gveto_cleanup)
 #define PL_watch_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_Gdo_undump          PL_do_undump
 #define PL_Gdollarzero_mutex   PL_dollarzero_mutex
 #define PL_Gfold_locale                PL_fold_locale
-#define PL_Gglobal_struct_size PL_global_struct_size
-#define PL_Ghexdigit           PL_hexdigit
 #define PL_Ghints_mutex                PL_hints_mutex
-#define PL_Ginterp_size                PL_interp_size
-#define PL_Ginterp_size_5_10_0 PL_interp_size_5_10_0
 #define PL_Gkeyword_plugin     PL_keyword_plugin
 #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_Gperlio_fd_refcnt_size      PL_perlio_fd_refcnt_size
 #define PL_Gperlio_mutex       PL_perlio_mutex
 #define PL_Gppaddr             PL_ppaddr
-#define PL_Grevision           PL_revision
-#define PL_Grunops_dbg         PL_runops_dbg
-#define PL_Grunops_std         PL_runops_std
+#ifdef OS2
 #define PL_Gsh_path            PL_sh_path
+#endif
 #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_Gsubversion         PL_subversion
 #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_Gversion            PL_version
 #define PL_Gveto_cleanup       PL_veto_cleanup
 #define PL_Gwatch_pvx          PL_watch_pvx