From be2ef075cba00912f7381219f5909d020118d4fb Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 2 Jul 2005 13:55:45 +0000
Subject: [PATCH] Passing gvtype as char rather than char * to S_varname
 generates smaller code.

p4raw-id: //depot/perl@25048
---
 embed.fnc |  2 +-
 proto.h   |  5 ++---
 sv.c      | 34 +++++++++++++++++-----------------
 3 files changed, 20 insertions(+), 21 deletions(-)

diff --git a/embed.fnc b/embed.fnc
index 646416f..b820cae 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -1240,7 +1240,7 @@ s	|void	|sv_unglob	|NN SV* sv
 s	|void	|not_a_number	|NN SV *sv
 s	|I32	|visit		|NN SVFUNC_t f|U32 flags|U32 mask
 s	|void	|sv_del_backref	|NN SV *target|NN SV *ref
-sR	|SV *	|varname	|NULLOK GV *gv|NN const char *gvtype|PADOFFSET targ \
+sR	|SV *	|varname	|NULLOK GV *gv|const char gvtype|PADOFFSET targ \
 				|NULLOK SV *keyname|I32 aindex|int subscript_type
 #  ifdef DEBUGGING
 s	|void	|del_sv	|SV *p
diff --git a/proto.h b/proto.h
index 2fa6e91..00e9c50 100644
--- a/proto.h
+++ b/proto.h
@@ -2600,9 +2600,8 @@ STATIC void	S_sv_del_backref(pTHX_ SV *target, SV *ref)
 			__attribute__nonnull__(pTHX_1)
 			__attribute__nonnull__(pTHX_2);
 
-STATIC SV *	S_varname(pTHX_ GV *gv, const char *gvtype, PADOFFSET targ, SV *keyname, I32 aindex, int subscript_type)
-			__attribute__warn_unused_result__
-			__attribute__nonnull__(pTHX_2);
+STATIC SV *	S_varname(pTHX_ GV *gv, const char gvtype, PADOFFSET targ, SV *keyname, I32 aindex, int subscript_type)
+			__attribute__warn_unused_result__;
 
 #  ifdef DEBUGGING
 STATIC void	S_del_sv(pTHX_ SV *p);
diff --git a/sv.c b/sv.c
index 038192b..99e6a46 100644
--- a/sv.c
+++ b/sv.c
@@ -676,7 +676,7 @@ S_find_array_subscript(pTHX_ AV *av, SV* val)
 #define FUV_SUBSCRIPT_WITHIN	4	/* "within @foo"   */
 
 STATIC SV*
-S_varname(pTHX_ GV *gv, const char *gvtype, PADOFFSET targ,
+S_varname(pTHX_ GV *gv, const char gvtype, PADOFFSET targ,
 	SV* keyname, I32 aindex, int subscript_type)
 {
 
@@ -689,15 +689,15 @@ S_varname(pTHX_ GV *gv, const char *gvtype, PADOFFSET targ,
 
 	const char *p;
 	HV * const hv = GvSTASH(gv);
-	sv_setpv(name, gvtype);
 	if (!hv)
 	    p = "???";
 	else if (!(p=HvNAME_get(hv)))
 	    p = "__ANON__";
-	if (strNE(p, "main")) {
-	    sv_catpv(name,p);
-	    sv_catpvn(name,"::", 2);
-	}
+	if (strEQ(p, "main"))
+	    sv_setpvn(name, &gvtype, 1);
+	else
+	    Perl_sv_setpvf(aTHX_ name, "%c%s::", gvtype, p);
+
 	if (GvNAMELEN(gv)>= 1 &&
 	    ((unsigned int)*GvNAME(gv)) <= 26)
 	{ /* handle $^FOO */
@@ -817,21 +817,21 @@ S_find_uninit_var(pTHX_ OP* obase, SV* uninit_sv, bool match)
 	if (match && subscript_type == FUV_SUBSCRIPT_WITHIN)
 	    break;
 
-	return varname(gv, hash ? "%" : "@", obase->op_targ,
+	return varname(gv, hash ? '%' : '@', obase->op_targ,
 				    keysv, index, subscript_type);
       }
 
     case OP_PADSV:
 	if (match && PAD_SVl(obase->op_targ) != uninit_sv)
 	    break;
-	return varname(Nullgv, "$", obase->op_targ,
+	return varname(Nullgv, '$', obase->op_targ,
 				    Nullsv, 0, FUV_SUBSCRIPT_NONE);
 
     case OP_GVSV:
 	gv = cGVOPx_gv(obase);
 	if (!gv || (match && GvSV(gv) != uninit_sv))
 	    break;
-	return varname(gv, "$", 0, Nullsv, 0, FUV_SUBSCRIPT_NONE);
+	return varname(gv, '$', 0, Nullsv, 0, FUV_SUBSCRIPT_NONE);
 
     case OP_AELEMFAST:
 	if (obase->op_flags & OPf_SPECIAL) { /* lexical array */
@@ -844,7 +844,7 @@ S_find_uninit_var(pTHX_ OP* obase, SV* uninit_sv, bool match)
 		if (!svp || *svp != uninit_sv)
 		    break;
 	    }
-	    return varname(Nullgv, "$", obase->op_targ,
+	    return varname(Nullgv, '$', obase->op_targ,
 		    Nullsv, (I32)obase->op_private, FUV_SUBSCRIPT_ARRAY);
 	}
 	else {
@@ -860,7 +860,7 @@ S_find_uninit_var(pTHX_ OP* obase, SV* uninit_sv, bool match)
 		if (!svp || *svp != uninit_sv)
 		    break;
 	    }
-	    return varname(gv, "$", 0,
+	    return varname(gv, '$', 0,
 		    Nullsv, (I32)obase->op_private, FUV_SUBSCRIPT_ARRAY);
 	}
 	break;
@@ -915,10 +915,10 @@ S_find_uninit_var(pTHX_ OP* obase, SV* uninit_sv, bool match)
 		}
 	    }
 	    if (obase->op_type == OP_HELEM)
-		return varname(gv, "%", o->op_targ,
+		return varname(gv, '%', o->op_targ,
 			    cSVOPx_sv(kid), 0, FUV_SUBSCRIPT_HASH);
 	    else
-		return varname(gv, "@", o->op_targ, Nullsv,
+		return varname(gv, '@', o->op_targ, Nullsv,
 			    SvIV(cSVOPx_sv(kid)), FUV_SUBSCRIPT_ARRAY);
 	    ;
 	}
@@ -928,20 +928,20 @@ S_find_uninit_var(pTHX_ OP* obase, SV* uninit_sv, bool match)
 	    if (obase->op_type == OP_HELEM) {
 		SV * const keysv = S_find_hash_subscript(aTHX_ (HV*)sv, uninit_sv);
 		if (keysv)
-		    return varname(gv, "%", o->op_targ,
+		    return varname(gv, '%', o->op_targ,
 						keysv, 0, FUV_SUBSCRIPT_HASH);
 	    }
 	    else {
 		const I32 index = S_find_array_subscript(aTHX_ (AV*)sv, uninit_sv);
 		if (index >= 0)
-		    return varname(gv, "@", o->op_targ,
+		    return varname(gv, '@', o->op_targ,
 					Nullsv, index, FUV_SUBSCRIPT_ARRAY);
 	    }
 	    if (match)
 		break;
 	    return varname(gv,
 		(o->op_type == OP_PADAV || o->op_type == OP_RV2AV)
-		? "@" : "%",
+		? '@' : '%',
 		o->op_targ, Nullsv, 0, FUV_SUBSCRIPT_WITHIN);
 	}
 
@@ -963,7 +963,7 @@ S_find_uninit_var(pTHX_ OP* obase, SV* uninit_sv, bool match)
 		gv = cGVOPx_gv(o);
 		if (match && GvSV(gv) != uninit_sv)
 		    break;
-		return varname(gv, "$", 0,
+		return varname(gv, '$', 0,
 			    Nullsv, 0, FUV_SUBSCRIPT_NONE);
 	    }
 	    /* other possibilities not handled are:
-- 
2.7.4