[PATCH 5.004_60] Fix to MM_VMS.PM
[p5sagit/p5-mst-13.2.git] / embedvar.h
index b68624a..d11686c 100644 (file)
 #define sv_objcount            (curinterp->Isv_objcount)
 #define sv_root                        (curinterp->Isv_root)
 #define tainting               (curinterp->Itainting)
+#define threadnum              (curinterp->Ithreadnum)
 #define thrsv                  (curinterp->Ithrsv)
 #define unsafe                 (curinterp->Iunsafe)
 #define warnhook               (curinterp->Iwarnhook)
 #define Isv_objcount           sv_objcount
 #define Isv_root               sv_root
 #define Itainting              tainting
+#define Ithreadnum             threadnum
 #define Ithrsv                 thrsv
 #define Iunsafe                        unsafe
 #define Iwarnhook              warnhook
 #define sv_objcount            Perl_sv_objcount
 #define sv_root                        Perl_sv_root
 #define tainting               Perl_tainting
+#define threadnum              Perl_threadnum
 #define thrsv                  Perl_thrsv
 #define unsafe                 Perl_unsafe
 #define warnhook               Perl_warnhook
 
 #endif /* USE_THREADS */
 
+#ifdef PERL_GLOBAL_STRUCT
+
+#define No                     (Perl_Vars.GNo)
+#define Yes                    (Perl_Vars.GYes)
+#define amagic_generation      (Perl_Vars.Gamagic_generation)
+#define an                     (Perl_Vars.Gan)
+#define bufend                 (Perl_Vars.Gbufend)
+#define bufptr                 (Perl_Vars.Gbufptr)
+#define collation_ix           (Perl_Vars.Gcollation_ix)
+#define collation_name         (Perl_Vars.Gcollation_name)
+#define collation_standard     (Perl_Vars.Gcollation_standard)
+#define collxfrm_base          (Perl_Vars.Gcollxfrm_base)
+#define collxfrm_mult          (Perl_Vars.Gcollxfrm_mult)
+#define compcv                 (Perl_Vars.Gcompcv)
+#define compiling              (Perl_Vars.Gcompiling)
+#define comppad                        (Perl_Vars.Gcomppad)
+#define comppad_name           (Perl_Vars.Gcomppad_name)
+#define comppad_name_fill      (Perl_Vars.Gcomppad_name_fill)
+#define comppad_name_floor     (Perl_Vars.Gcomppad_name_floor)
+#define cop_seqmax             (Perl_Vars.Gcop_seqmax)
+#define cryptseen              (Perl_Vars.Gcryptseen)
+#define cshlen                 (Perl_Vars.Gcshlen)
+#define cshname                        (Perl_Vars.Gcshname)
+#define curinterp              (Perl_Vars.Gcurinterp)
+#define curthr                 (Perl_Vars.Gcurthr)
+#define debug                  (Perl_Vars.Gdebug)
+#define do_undump              (Perl_Vars.Gdo_undump)
+#define egid                   (Perl_Vars.Gegid)
+#define error_count            (Perl_Vars.Gerror_count)
+#define euid                   (Perl_Vars.Geuid)
+#define eval_cond              (Perl_Vars.Geval_cond)
+#define eval_mutex             (Perl_Vars.Geval_mutex)
+#define eval_owner             (Perl_Vars.Geval_owner)
+#define evalseq                        (Perl_Vars.Gevalseq)
+#define expect                 (Perl_Vars.Gexpect)
+#define gid                    (Perl_Vars.Ggid)
+#define he_root                        (Perl_Vars.Ghe_root)
+#define hexdigit               (Perl_Vars.Ghexdigit)
+#define hints                  (Perl_Vars.Ghints)
+#define in_my                  (Perl_Vars.Gin_my)
+#define in_my_stash            (Perl_Vars.Gin_my_stash)
+#define last_lop               (Perl_Vars.Glast_lop)
+#define last_lop_op            (Perl_Vars.Glast_lop_op)
+#define last_uni               (Perl_Vars.Glast_uni)
+#define lex_brackets           (Perl_Vars.Glex_brackets)
+#define lex_brackstack         (Perl_Vars.Glex_brackstack)
+#define lex_casemods           (Perl_Vars.Glex_casemods)
+#define lex_casestack          (Perl_Vars.Glex_casestack)
+#define lex_defer              (Perl_Vars.Glex_defer)
+#define lex_dojoin             (Perl_Vars.Glex_dojoin)
+#define lex_expect             (Perl_Vars.Glex_expect)
+#define lex_fakebrack          (Perl_Vars.Glex_fakebrack)
+#define lex_formbrack          (Perl_Vars.Glex_formbrack)
+#define lex_inpat              (Perl_Vars.Glex_inpat)
+#define lex_inwhat             (Perl_Vars.Glex_inwhat)
+#define lex_op                 (Perl_Vars.Glex_op)
+#define lex_repl               (Perl_Vars.Glex_repl)
+#define lex_starts             (Perl_Vars.Glex_starts)
+#define lex_state              (Perl_Vars.Glex_state)
+#define lex_stuff              (Perl_Vars.Glex_stuff)
+#define linestr                        (Perl_Vars.Glinestr)
+#define malloc_mutex           (Perl_Vars.Gmalloc_mutex)
+#define max_intro_pending      (Perl_Vars.Gmax_intro_pending)
+#define maxo                   (Perl_Vars.Gmaxo)
+#define min_intro_pending      (Perl_Vars.Gmin_intro_pending)
+#define multi_close            (Perl_Vars.Gmulti_close)
+#define multi_end              (Perl_Vars.Gmulti_end)
+#define multi_open             (Perl_Vars.Gmulti_open)
+#define multi_start            (Perl_Vars.Gmulti_start)
+#define na                     (Perl_Vars.Gna)
+#define nexttoke               (Perl_Vars.Gnexttoke)
+#define nexttype               (Perl_Vars.Gnexttype)
+#define nextval                        (Perl_Vars.Gnextval)
+#define nice_chunk             (Perl_Vars.Gnice_chunk)
+#define nice_chunk_size                (Perl_Vars.Gnice_chunk_size)
+#define nomemok                        (Perl_Vars.Gnomemok)
+#define nthreads               (Perl_Vars.Gnthreads)
+#define nthreads_cond          (Perl_Vars.Gnthreads_cond)
+#define numeric_local          (Perl_Vars.Gnumeric_local)
+#define numeric_name           (Perl_Vars.Gnumeric_name)
+#define numeric_standard       (Perl_Vars.Gnumeric_standard)
+#define oldbufptr              (Perl_Vars.Goldbufptr)
+#define oldoldbufptr           (Perl_Vars.Goldoldbufptr)
+#define op_seqmax              (Perl_Vars.Gop_seqmax)
+#define origalen               (Perl_Vars.Gorigalen)
+#define origenviron            (Perl_Vars.Gorigenviron)
+#define osname                 (Perl_Vars.Gosname)
+#define pad_reset_pending      (Perl_Vars.Gpad_reset_pending)
+#define padix                  (Perl_Vars.Gpadix)
+#define padix_floor            (Perl_Vars.Gpadix_floor)
+#define patleave               (Perl_Vars.Gpatleave)
+#define pidstatus              (Perl_Vars.Gpidstatus)
+#define profiledata            (Perl_Vars.Gprofiledata)
+#define rsfp                   (Perl_Vars.Grsfp)
+#define rsfp_filters           (Perl_Vars.Grsfp_filters)
+#define runops                 (Perl_Vars.Grunops)
+#define scrgv                  (Perl_Vars.Gscrgv)
+#define sh_path                        (Perl_Vars.Gsh_path)
+#define sighandlerp            (Perl_Vars.Gsighandlerp)
+#define sub_generation         (Perl_Vars.Gsub_generation)
+#define subline                        (Perl_Vars.Gsubline)
+#define subname                        (Perl_Vars.Gsubname)
+#define sv_mutex               (Perl_Vars.Gsv_mutex)
+#define sv_no                  (Perl_Vars.Gsv_no)
+#define sv_undef               (Perl_Vars.Gsv_undef)
+#define sv_yes                 (Perl_Vars.Gsv_yes)
+#define thisexpr               (Perl_Vars.Gthisexpr)
+#define thr_key                        (Perl_Vars.Gthr_key)
+#define threads_mutex          (Perl_Vars.Gthreads_mutex)
+#define threadsv_names         (Perl_Vars.Gthreadsv_names)
+#define tokenbuf               (Perl_Vars.Gtokenbuf)
+#define uid                    (Perl_Vars.Guid)
+#define xiv_arenaroot          (Perl_Vars.Gxiv_arenaroot)
+#define xiv_root               (Perl_Vars.Gxiv_root)
+#define xnv_root               (Perl_Vars.Gxnv_root)
+#define xpv_root               (Perl_Vars.Gxpv_root)
+#define xrv_root               (Perl_Vars.Gxrv_root)
+
+#else /* !PERL_GLOBAL_STRUCT */
+
+#define GNo                    No
+#define GYes                   Yes
+#define Gamagic_generation     amagic_generation
+#define Gan                    an
+#define Gbufend                        bufend
+#define Gbufptr                        bufptr
+#define Gcollation_ix          collation_ix
+#define Gcollation_name                collation_name
+#define Gcollation_standard    collation_standard
+#define Gcollxfrm_base         collxfrm_base
+#define Gcollxfrm_mult         collxfrm_mult
+#define Gcompcv                        compcv
+#define Gcompiling             compiling
+#define Gcomppad               comppad
+#define Gcomppad_name          comppad_name
+#define Gcomppad_name_fill     comppad_name_fill
+#define Gcomppad_name_floor    comppad_name_floor
+#define Gcop_seqmax            cop_seqmax
+#define Gcryptseen             cryptseen
+#define Gcshlen                        cshlen
+#define Gcshname               cshname
+#define Gcurinterp             curinterp
+#define Gcurthr                        curthr
+#define Gdebug                 debug
+#define Gdo_undump             do_undump
+#define Gegid                  egid
+#define Gerror_count           error_count
+#define Geuid                  euid
+#define Geval_cond             eval_cond
+#define Geval_mutex            eval_mutex
+#define Geval_owner            eval_owner
+#define Gevalseq               evalseq
+#define Gexpect                        expect
+#define Ggid                   gid
+#define Ghe_root               he_root
+#define Ghexdigit              hexdigit
+#define Ghints                 hints
+#define Gin_my                 in_my
+#define Gin_my_stash           in_my_stash
+#define Glast_lop              last_lop
+#define Glast_lop_op           last_lop_op
+#define Glast_uni              last_uni
+#define Glex_brackets          lex_brackets
+#define Glex_brackstack                lex_brackstack
+#define Glex_casemods          lex_casemods
+#define Glex_casestack         lex_casestack
+#define Glex_defer             lex_defer
+#define Glex_dojoin            lex_dojoin
+#define Glex_expect            lex_expect
+#define Glex_fakebrack         lex_fakebrack
+#define Glex_formbrack         lex_formbrack
+#define Glex_inpat             lex_inpat
+#define Glex_inwhat            lex_inwhat
+#define Glex_op                        lex_op
+#define Glex_repl              lex_repl
+#define Glex_starts            lex_starts
+#define Glex_state             lex_state
+#define Glex_stuff             lex_stuff
+#define Glinestr               linestr
+#define Gmalloc_mutex          malloc_mutex
+#define Gmax_intro_pending     max_intro_pending
+#define Gmaxo                  maxo
+#define Gmin_intro_pending     min_intro_pending
+#define Gmulti_close           multi_close
+#define Gmulti_end             multi_end
+#define Gmulti_open            multi_open
+#define Gmulti_start           multi_start
+#define Gna                    na
+#define Gnexttoke              nexttoke
+#define Gnexttype              nexttype
+#define Gnextval               nextval
+#define Gnice_chunk            nice_chunk
+#define Gnice_chunk_size       nice_chunk_size
+#define Gnomemok               nomemok
+#define Gnthreads              nthreads
+#define Gnthreads_cond         nthreads_cond
+#define Gnumeric_local         numeric_local
+#define Gnumeric_name          numeric_name
+#define Gnumeric_standard      numeric_standard
+#define Goldbufptr             oldbufptr
+#define Goldoldbufptr          oldoldbufptr
+#define Gop_seqmax             op_seqmax
+#define Gorigalen              origalen
+#define Gorigenviron           origenviron
+#define Gosname                        osname
+#define Gpad_reset_pending     pad_reset_pending
+#define Gpadix                 padix
+#define Gpadix_floor           padix_floor
+#define Gpatleave              patleave
+#define Gpidstatus             pidstatus
+#define Gprofiledata           profiledata
+#define Grsfp                  rsfp
+#define Grsfp_filters          rsfp_filters
+#define Grunops                        runops
+#define Gscrgv                 scrgv
+#define Gsh_path               sh_path
+#define Gsighandlerp           sighandlerp
+#define Gsub_generation                sub_generation
+#define Gsubline               subline
+#define Gsubname               subname
+#define Gsv_mutex              sv_mutex
+#define Gsv_no                 sv_no
+#define Gsv_undef              sv_undef
+#define Gsv_yes                        sv_yes
+#define Gthisexpr              thisexpr
+#define Gthr_key               thr_key
+#define Gthreads_mutex         threads_mutex
+#define Gthreadsv_names                threadsv_names
+#define Gtokenbuf              tokenbuf
+#define Guid                   uid
+#define Gxiv_arenaroot         xiv_arenaroot
+#define Gxiv_root              xiv_root
+#define Gxnv_root              xnv_root
+#define Gxpv_root              xpv_root
+#define Gxrv_root              xrv_root
+
+#ifdef EMBED
+
+#define No                     Perl_No
+#define Yes                    Perl_Yes
+#define amagic_generation      Perl_amagic_generation
+#define an                     Perl_an
+#define bufend                 Perl_bufend
+#define bufptr                 Perl_bufptr
+#define collation_ix           Perl_collation_ix
+#define collation_name         Perl_collation_name
+#define collation_standard     Perl_collation_standard
+#define collxfrm_base          Perl_collxfrm_base
+#define collxfrm_mult          Perl_collxfrm_mult
+#define compcv                 Perl_compcv
+#define compiling              Perl_compiling
+#define comppad                        Perl_comppad
+#define comppad_name           Perl_comppad_name
+#define comppad_name_fill      Perl_comppad_name_fill
+#define comppad_name_floor     Perl_comppad_name_floor
+#define cop_seqmax             Perl_cop_seqmax
+#define cryptseen              Perl_cryptseen
+#define cshlen                 Perl_cshlen
+#define cshname                        Perl_cshname
+#define curinterp              Perl_curinterp
+#define curthr                 Perl_curthr
+#define debug                  Perl_debug
+#define do_undump              Perl_do_undump
+#define egid                   Perl_egid
+#define error_count            Perl_error_count
+#define euid                   Perl_euid
+#define eval_cond              Perl_eval_cond
+#define eval_mutex             Perl_eval_mutex
+#define eval_owner             Perl_eval_owner
+#define evalseq                        Perl_evalseq
+#define expect                 Perl_expect
+#define gid                    Perl_gid
+#define he_root                        Perl_he_root
+#define hexdigit               Perl_hexdigit
+#define hints                  Perl_hints
+#define in_my                  Perl_in_my
+#define in_my_stash            Perl_in_my_stash
+#define last_lop               Perl_last_lop
+#define last_lop_op            Perl_last_lop_op
+#define last_uni               Perl_last_uni
+#define lex_brackets           Perl_lex_brackets
+#define lex_brackstack         Perl_lex_brackstack
+#define lex_casemods           Perl_lex_casemods
+#define lex_casestack          Perl_lex_casestack
+#define lex_defer              Perl_lex_defer
+#define lex_dojoin             Perl_lex_dojoin
+#define lex_expect             Perl_lex_expect
+#define lex_fakebrack          Perl_lex_fakebrack
+#define lex_formbrack          Perl_lex_formbrack
+#define lex_inpat              Perl_lex_inpat
+#define lex_inwhat             Perl_lex_inwhat
+#define lex_op                 Perl_lex_op
+#define lex_repl               Perl_lex_repl
+#define lex_starts             Perl_lex_starts
+#define lex_state              Perl_lex_state
+#define lex_stuff              Perl_lex_stuff
+#define linestr                        Perl_linestr
+#define malloc_mutex           Perl_malloc_mutex
+#define max_intro_pending      Perl_max_intro_pending
+#define maxo                   Perl_maxo
+#define min_intro_pending      Perl_min_intro_pending
+#define multi_close            Perl_multi_close
+#define multi_end              Perl_multi_end
+#define multi_open             Perl_multi_open
+#define multi_start            Perl_multi_start
+#define na                     Perl_na
+#define nexttoke               Perl_nexttoke
+#define nexttype               Perl_nexttype
+#define nextval                        Perl_nextval
+#define nice_chunk             Perl_nice_chunk
+#define nice_chunk_size                Perl_nice_chunk_size
+#define nomemok                        Perl_nomemok
+#define nthreads               Perl_nthreads
+#define nthreads_cond          Perl_nthreads_cond
+#define numeric_local          Perl_numeric_local
+#define numeric_name           Perl_numeric_name
+#define numeric_standard       Perl_numeric_standard
+#define oldbufptr              Perl_oldbufptr
+#define oldoldbufptr           Perl_oldoldbufptr
+#define op_seqmax              Perl_op_seqmax
+#define origalen               Perl_origalen
+#define origenviron            Perl_origenviron
+#define osname                 Perl_osname
+#define pad_reset_pending      Perl_pad_reset_pending
+#define padix                  Perl_padix
+#define padix_floor            Perl_padix_floor
+#define patleave               Perl_patleave
+#define pidstatus              Perl_pidstatus
+#define profiledata            Perl_profiledata
+#define rsfp                   Perl_rsfp
+#define rsfp_filters           Perl_rsfp_filters
+#define runops                 Perl_runops
+#define scrgv                  Perl_scrgv
+#define sh_path                        Perl_sh_path
+#define sighandlerp            Perl_sighandlerp
+#define sub_generation         Perl_sub_generation
+#define subline                        Perl_subline
+#define subname                        Perl_subname
+#define sv_mutex               Perl_sv_mutex
+#define sv_no                  Perl_sv_no
+#define sv_undef               Perl_sv_undef
+#define sv_yes                 Perl_sv_yes
+#define thisexpr               Perl_thisexpr
+#define thr_key                        Perl_thr_key
+#define threads_mutex          Perl_threads_mutex
+#define threadsv_names         Perl_threadsv_names
+#define tokenbuf               Perl_tokenbuf
+#define uid                    Perl_uid
+#define xiv_arenaroot          Perl_xiv_arenaroot
+#define xiv_root               Perl_xiv_root
+#define xnv_root               Perl_xnv_root
+#define xpv_root               Perl_xpv_root
+#define xrv_root               Perl_xrv_root
+
+#endif /* EMBED */
+#endif /* PERL_GLOBAL_STRUCT */
+