X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perlvars.h;h=174747884f81c93b07654bf681312177777c9c0b;hb=883faa132e8bf2c932ff9f7c1722950f4325a1d7;hp=29c8b7319de30b59f626237b006fdbd9bb38bc48;hpb=5ff3f7a4e03a6b103d9e628865398e498e9a7968;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perlvars.h b/perlvars.h
index 29c8b73..1747478 100644
--- a/perlvars.h
+++ b/perlvars.h
@@ -10,7 +10,7 @@
  * and how they're initialized.
  *
  * The 'G' prefix is only needed for vars that need appropriate #defines
- * generated when built with or without EMBED.  It is also used to generate
+ * generated in embed*.h.  Such symbols are also used to generate
  * the appropriate export list for win32.
  *
  * Avoid build-specific #ifdefs here, like DEBUGGING.  That way,
@@ -70,15 +70,9 @@ PERLVAR(Ghe_root,	HE *)		/* free he list--shared by interpreters */
 PERLVAR(Gnice_chunk,	char *)		/* a nice chunk of memory to reuse */
 PERLVAR(Gnice_chunk_size,	U32)	/* how nice the chunk of memory is */
 
-#ifdef PERL_OBJECT
 PERLVARI(Grunops,	runops_proc_t,	FUNC_NAME_TO_PTR(RUNOPS_DEFAULT))
-#else
-PERLVARI(Grunops,	runops_proc_t *,	RUNOPS_DEFAULT)
-#endif
 
 PERLVAR(Gtokenbuf[256],	char)
-PERLVAR(Gna,		STRLEN)		/* for use in SvPV when length is
-					   Not Applicable */
 
 PERLVAR(Gsv_undef,	SV)
 PERLVAR(Gsv_no,		SV)
@@ -136,7 +130,7 @@ PERLVAR(Gthisexpr,	I32)		/* name id for nothing_in_common() */
 PERLVAR(Glast_uni,	char *)		/* position of last named-unary op */
 PERLVAR(Glast_lop,	char *)		/* position of last list operator */
 PERLVAR(Glast_lop_op,	OPCODE)		/* last list operator */
-PERLVAR(Gin_my,	bool)			/* we're compiling a "my" declaration */
+PERLVAR(Gin_my,		bool)		/* we're compiling a "my" declaration */
 PERLVAR(Gin_my_stash,	HV *)		/* declared class of this "my" declaration */
 #ifdef FCRYPT
 PERLVAR(Gcryptseen,	I32)		/* has fast crypt() been initialized? */
@@ -147,13 +141,8 @@ PERLVAR(Ghints,	U32)			/* pragma-tic compile-time flags */
 PERLVAR(Gdo_undump,	bool)		/* -u or dump seen? */
 PERLVAR(Gdebug,		VOL U32)	/* flags given to -D switch */
 
-
-#ifdef OVERLOAD
-
 PERLVAR(Gamagic_generation,	long)
 
-#endif
-
 #ifdef USE_LOCALE_COLLATE
 PERLVAR(Gcollation_ix,	U32)		/* Collation generation index */
 PERLVAR(Gcollation_name,char *)		/* Name of current collation */
@@ -194,7 +183,7 @@ PERLVAR(Glast_swash_slen,	STRLEN)
 /* constants (these are not literals to facilitate pointer comparisons) */
 PERLVARIC(GYes,		char *, "1")
 PERLVARIC(GNo,		char *, "")
-PERLVARIC(Ghexdigit,	char *, "0123456789abcdef0123456789ABCDEFx")
+PERLVARIC(Ghexdigit,	char *, "0123456789abcdef0123456789ABCDEF")
 PERLVARIC(Gpatleave,	char *, "\\.^$@dDwWsSbB+*?|()-nrtfeaxc0123456789[{]}")
 
 PERLVAR(Gspecialsv_list[4],SV *)	/* from byterun.h */
@@ -204,7 +193,14 @@ PERLVAR(Gyydebug,	int)
 PERLVAR(Gyynerrs,	int)
 PERLVAR(Gyyerrflag,	int)
 PERLVAR(Gyychar,	int)
-PERLVAR(Gyyssp,		short*)
-PERLVAR(Gyyvsp,		YYSTYPE*)
 PERLVAR(Gyyval,		YYSTYPE)
 PERLVAR(Gyylval,	YYSTYPE)
+
+PERLVAR(Gglob_index,	int)
+PERLVAR(Gefloatbuf,	char*)
+PERLVAR(Gefloatsize,	STRLEN)
+PERLVAR(Gsrand_called,	bool)
+PERLVAR(Guudmap[256],	char)
+PERLVAR(Gbitcount,	char *)
+PERLVAR(Gfilter_debug,	int)
+