Fix t/base/rs.t test failures on VMS
[p5sagit/p5-mst-13.2.git] / ObjXSub.h
index 9880e8c..f8adba8 100644 (file)
--- a/ObjXSub.h
+++ b/ObjXSub.h
@@ -1,7 +1,6 @@
 #ifndef __ObjXSub_h__
 #define __ObjXSub_h__
 
-
 /* Varibles */ 
 #undef  Argv
 #define Argv                   pPerl->Perl_Argv
@@ -41,6 +40,8 @@
 #define argvgv                 pPerl->Perl_argvgv
 #undef  argvoutgv
 #define argvoutgv              pPerl->Perl_argvoutgv
+#undef  av_fetch_sv
+#define av_fetch_sv         pPerl->av_fetch_sv
 #undef  basetime
 #define basetime               pPerl->Perl_basetime
 #undef  beginav
 #define dowarn                 pPerl->Perl_dowarn
 #undef  dumplvl
 #define dumplvl                        pPerl->Perl_dumplvl
-#undef  e_fp
-#define e_fp                   pPerl->Perl_e_fp
-#undef  e_tmpname
-#define e_tmpname              pPerl->Perl_e_tmpname
+#undef  e_script
+#define e_script               pPerl->Perl_e_script
 #undef  egid
 #define egid                   pPerl->Perl_egid
 #undef  endav
 #define eval_start             pPerl->Perl_eval_start
 #undef  evalseq
 #define evalseq                        pPerl->Perl_evalseq
+#undef  exitlist
+#define exitlist            pPerl->exitlist
+#undef  exitlistlen
+#define exitlistlen         pPerl->exitlistlen
 #undef  expect
 #define expect                 pPerl->Perl_expect
 #undef  extralen
 #define he_root                        pPerl->Perl_he_root
 #undef  hexdigit
 #define hexdigit               pPerl->Perl_hexdigit
+#undef  hintgv
+#define hintgv                 pPerl->Perl_hintgv
 #undef  hints
 #define hints                  pPerl->Perl_hints
+#undef  hv_fetch_ent_mh
+#define hv_fetch_ent_mh     pPerl->hv_fetch_ent_mh
+#undef  hv_fetch_sv
+#define hv_fetch_sv         pPerl->hv_fetch_sv
 #undef  in_clean_all
 #define in_clean_all           pPerl->Perl_in_clean_all
 #undef  in_clean_objs
 #define inplace                        pPerl->Perl_inplace
 #undef  last_in_gv
 #define last_in_gv             pPerl->Perl_last_in_gv
+#undef  last_proto
+#define last_proto             pPerl->Perl_last_proto
 #undef  last_lop
 #define last_lop               pPerl->Perl_last_lop
 #undef  last_lop_op
 #define maxsysfd               pPerl->Perl_maxsysfd
 #undef  mess_sv
 #define mess_sv                        pPerl->Perl_mess_sv
-#undef  mh
-#define mh                     pPerl->Perl_mh
 #undef  min_intro_pending
 #define min_intro_pending      pPerl->Perl_min_intro_pending
 #undef  minus_F
 #define minus_p                        pPerl->Perl_minus_p
 #undef  modcount
 #define modcount               pPerl->Perl_modcount
+#undef  modglobal
+#define modglobal       pPerl->Perl_modglobal
 #undef  multi_close
 #define multi_close            pPerl->Perl_multi_close
 #undef  multi_end
 #define regindent              pPerl->Perl_regindent
 #undef  reginput
 #define reginput               pPerl->Perl_reginput
+#undef  reginterp_cnt
+#define reginterp_cnt          pPerl->Perl_reginterp_cnt
 #undef  reglastparen
 #define reglastparen           pPerl->Perl_reglastparen
 #undef  regnarrate
 #define regnaughty             pPerl->Perl_regnaughty
 #undef  regnpar
 #define regnpar                        pPerl->Perl_regnpar
-#undef  regparse
-#define regparse               pPerl->Perl_regparse
+#undef  regcomp_parse
+#define regcomp_parse          pPerl->Perl_regcomp_parse
 #undef  regprecomp
 #define regprecomp             pPerl->Perl_regprecomp
 #undef  regprev
 #define rsfp_filters           pPerl->Perl_rsfp_filters
 #undef  runops
 #define runops                 pPerl->Perl_runops
-#undef  rx
-#define rx                     pPerl->Perl_rx
+#undef  regcomp_rx
+#define regcomp_rx             pPerl->Perl_regcomp_rx
 #undef  savestack
 #define savestack              pPerl->Perl_savestack
 #undef  savestack_ix
 #define screamfirst            pPerl->Perl_screamfirst
 #undef  screamnext
 #define screamnext             pPerl->Perl_screamnext
-#undef  scrgv
-#define scrgv                  pPerl->Perl_scrgv
 #undef  secondgv
 #define secondgv               pPerl->Perl_secondgv
 #undef  seen_zerolen
 #define seen_zerolen           pPerl->Perl_seen_zerolen
+#undef  seen_evals
+#define seen_evals             pPerl->Perl_seen_evals
 #undef  sh_path
 #define sh_path                        pPerl->Perl_sh_path
 #undef  siggv
 #define sortcxix               pPerl->Perl_sortcxix
 #undef  sortstash
 #define sortstash              pPerl->Perl_sortstash
+#undef  specialsv_list
+#define specialsv_list  pPerl->Perl_specialsv_list
 #undef  splitstr
 #define splitstr               pPerl->Perl_splitstr
 #undef  stack_base
 #define sv_undef               pPerl->Perl_sv_undef
 #undef  sv_yes
 #define sv_yes                 pPerl->Perl_sv_yes
+#undef  svref_mutex
+#define svref_mutex         pPerl->svref_mutex
+#undef  sys_intern
+#define sys_intern             pPerl->Perl_sys_intern
 #undef  tainted
 #define tainted                        pPerl->Perl_tainted
 #undef  tainting
 #define av_undef            pPerl->Perl_av_undef
 #undef  av_unshift
 #define av_unshift          pPerl->Perl_av_unshift
-#undef  avhv_delete
-#define avhv_delete         pPerl->Perl_avhv_delete
-#undef  avhv_delete_ent
-#define avhv_delete_ent     pPerl->Perl_avhv_delete_ent
-#undef  avhv_exists
-#define avhv_exists         pPerl->Perl_avhv_exists
 #undef  avhv_exists_ent
 #define avhv_exists_ent     pPerl->Perl_avhv_exists_ent
-#undef  avhv_fetch
-#define avhv_fetch          pPerl->Perl_avhv_fetch
 #undef  avhv_fetch_ent
 #define avhv_fetch_ent      pPerl->Perl_avhv_fetch_ent
-#undef  avhv_iterinit
-#define avhv_iterinit       pPerl->Perl_avhv_iterinit
 #undef  avhv_iternext
 #define avhv_iternext       pPerl->Perl_avhv_iternext
-#undef  avhv_iternextsv
-#define avhv_iternextsv     pPerl->Perl_avhv_iternextsv
 #undef  avhv_iterval
 #define avhv_iterval        pPerl->Perl_avhv_iterval
 #undef  avhv_keys
 #define avhv_keys           pPerl->Perl_avhv_keys
-#undef  avhv_store
-#define avhv_store          pPerl->Perl_avhv_store
-#undef  avhv_store_ent
-#define avhv_store_ent      pPerl->Perl_avhv_store_ent
 #undef  bind_match
 #define bind_match          pPerl->Perl_bind_match
 #undef  block_end
 #define cv_const_sv         pPerl->Perl_cv_const_sv
 #undef  cv_undef
 #define cv_undef            pPerl->Perl_cv_undef
+#undef  cx_dump
+#define cx_dump             pPerl->Perl_cx_dump
 #undef  cxinc
 #define cxinc               pPerl->Perl_cxinc
 #undef  deb
 #define deb                 pPerl->Perl_deb
+#undef  deb_growlevel
+#define deb_growlevel       pPerl->Perl_deb_growlevel
+#undef  debprofdump
+#define debprofdump         pPerl->Perl_debprofdump
+#undef  debop
+#define debop               pPerl->Perl_debop
+#undef  debstack
+#define debstack            pPerl->Perl_debstack
+#undef  debstackptrs
+#define debstackptrs        pPerl->Perl_debstackptrs
 #undef  delimcpy
 #define delimcpy            pPerl->Perl_delimcpy
 #undef  deprecate
 #define dounwind            pPerl->Perl_dounwind
 #undef  do_aexec
 #define do_aexec            pPerl->Perl_do_aexec
+#undef  do_binmode
+#define do_binmode          pPerl->Perl_do_binmode
 #undef  do_chomp
 #define do_chomp            pPerl->Perl_do_chomp
 #undef  do_chop
 #define dowantarray         pPerl->Perl_dowantarray
 #undef  dump_all
 #define dump_all            pPerl->Perl_dump_all
+#undef  dump_eval
+#define dump_eval           pPerl->Perl_dump_eval
+#undef  dump_fds
+#define dump_fds            pPerl->Perl_dump_fds
+#undef  dump_form
+#define dump_form           pPerl->Perl_dump_form
+#undef  dump_gv
+#define dump_gv             pPerl->Perl_dump_gv
+#undef  dump_mstats
+#define dump_mstats         pPerl->Perl_dump_mstats
+#undef  dump_op
+#define dump_op             pPerl->Perl_dump_op
+#undef  dump_pm
+#define dump_pm             pPerl->Perl_dump_pm
+#undef  dump_packsubs
+#define dump_packsubs       pPerl->Perl_dump_packsubs
+#undef  dump_sub
+#define dump_sub            pPerl->Perl_dump_sub
 #undef  fbm_compile
 #define fbm_compile         pPerl->Perl_fbm_compile
 #undef  fbm_instr
 #define filter_read         pPerl->Perl_filter_read
 #undef  find_threadsv
 #define find_threadsv       pPerl->Perl_find_threadsv
+#undef  find_script
+#define find_script         pPerl->Perl_find_script
 #undef  force_ident
 #define force_ident         pPerl->Perl_force_ident
 #undef  force_list
 #undef  get_no_modify
 #define get_no_modify       pPerl->Perl_get_no_modify
 #undef  get_opargs
-#define get_opargs         pPerl->Perl_get_opargs
+#define get_opargs             pPerl->Perl_get_opargs
+#undef  get_specialsv_list
+#define get_specialsv_list  pPerl->Perl_get_specialsv_list
 #undef  gp_free
 #define gp_free             pPerl->Perl_gp_free
 #undef  gp_ref
 #define magic_getpack       pPerl->Perl_magic_getpack
 #undef  magic_getglob
 #define magic_getglob       pPerl->Perl_magic_getglob
+#undef  magic_getnkeys
+#define magic_getnkeys      pPerl->Perl_magic_getnkeys
 #undef  magic_getpos
 #define magic_getpos        pPerl->Perl_magic_getpos
 #undef  magic_getsig
 #define magic_getsig        pPerl->Perl_magic_getsig
+#undef  magic_getsubstr
+#define magic_getsubstr     pPerl->Perl_magic_getsubstr
 #undef  magic_gettaint
 #define magic_gettaint      pPerl->Perl_magic_gettaint
 #undef  magic_getuvar
 #define magic_getuvar       pPerl->Perl_magic_getuvar
+#undef  magic_getvec
+#define magic_getvec        pPerl->Perl_magic_getvec
 #undef  magic_len
 #define magic_len           pPerl->Perl_magic_len
 #undef  magic_methpack
 #define magic_setvec        pPerl->Perl_magic_setvec
 #undef  magic_sizepack
 #define magic_sizepack      pPerl->Perl_magic_sizepack
+#undef  magic_unchain
+#define magic_unchain       pPerl->Perl_magic_unchain
 #undef  magic_wipepack
 #define magic_wipepack      pPerl->Perl_magic_wipepack
 #undef  magicname
 #define magicname           pPerl->Perl_magicname
+#undef  malloced_size
+#define malloced_size       pPerl->Perl_malloced_size
 #undef  markstack_grow
 #define markstack_grow      pPerl->Perl_markstack_grow
 #undef  mem_collxfrm
 #define newHVREF            pPerl->Perl_newHVREF
 #undef  newHV
 #define newHV               pPerl->Perl_newHV
+#undef  newHVhv
+#define newHVhv             pPerl->Perl_newHVhv
 #undef  newIO
 #define newIO               pPerl->Perl_newIO
 #undef  newLISTOP
 #define pad_allocmy         pPerl->Perl_pad_allocmy
 #undef  pad_findmy
 #define pad_findmy          pPerl->Perl_pad_findmy
+#undef  op_const_sv
+#define op_const_sv         pPerl->Perl_op_const_sv
 #undef  op_free
 #define op_free             pPerl->Perl_op_free
 #undef  oopsCV
 #define pad_swipe           pPerl->Perl_pad_swipe
 #undef  peep
 #define peep                pPerl->Perl_peep
+#undef  perl_atexit
+#define perl_atexit         pPerl->perl_atexit
 #undef  perl_call_argv
 #define perl_call_argv      pPerl->perl_call_argv
 #undef  perl_call_method
 #define pregexec            pPerl->Perl_pregexec
 #undef  pregfree
 #define pregfree            pPerl->Perl_pregfree
+#undef  regdump
+#define regdump             pPerl->Perl_regdump
 #undef  regnext
 #define regnext             pPerl->Perl_regnext
 #undef  regnoderegnext
 #define regnoderegnext      pPerl->regnoderegnext
+#undef  regprop
+#define regprop             pPerl->Perl_regprop
 #undef  repeatcpy
 #define repeatcpy           pPerl->Perl_repeatcpy
 #undef  rninstr
 #define save_hash           pPerl->Perl_save_hash
 #undef  save_helem
 #define save_helem          pPerl->Perl_save_helem
+#undef  save_hints
+#define save_hints          pPerl->Perl_save_hints
 #undef  save_hptr
 #define save_hptr           pPerl->Perl_save_hptr
 #undef  save_I16
 #define sv_newref          pPerl->Perl_sv_newref
 #undef  sv_nv
 #define sv_nv              pPerl->Perl_sv_nv
+#undef  sv_peek
+#define sv_peek                    pPerl->Perl_sv_peek
 #undef  sv_pvn
 #define sv_pvn             pPerl->Perl_sv_pvn
 #undef  sv_pvn_force
 #define wait4pid            pPerl->Perl_wait4pid
 #undef  warn
 #define warn               pPerl->Perl_warn
+#undef  watch
+#define watch              pPerl->Perl_watch
 #undef  whichsig
 #define whichsig            pPerl->Perl_whichsig
 #undef  yyerror
 #define socketpair PerlSock_socketpair
 #endif  /* NO_XSLOCKS */
 
-#undef  THIS
-#define THIS pPerl
-#undef  THIS_
-#define THIS_ pPerl,
+#undef  PERL_OBJECT_THIS
+#define PERL_OBJECT_THIS pPerl
+#undef  PERL_OBJECT_THIS_
+#define PERL_OBJECT_THIS_ pPerl,
 
 #undef  SAVEDESTRUCTOR
 #define SAVEDESTRUCTOR(f,p) \