File Tk-804.029-macro.diff of Package perl-Tk
77
1
--- objGlue.c
2
+++ objGlue.c
3
4
*/
5
if (SvREFCNT(sv) <= 0 || SvTEMP(sv))
6
{
7
- LangDebug("%s %d:\n",__FUNCTION__, objc);
8
+ LangDebug("%s %d:\n", __func__, objc);
9
sv_dump(sv);
10
}
11
av_store(av,objc,sv);
12
--- tkGlue.c
13
+++ tkGlue.c
14
15
( Tcl_SprintfResult args, Expire(TCL_ERROR) )
16
17
#ifdef DEBUG_TAINT
18
-#define do_watch() do { if (PL_tainting) taint_proper("tainted", __FUNCTION__); } while (0)
19
+#define do_watch() do { static const char *f = __func__; if (PL_tainting) taint_proper("tainted", f); } while (0)
20
#else
21
extern void do_watch _((void));
22
void
23
24
result = Tcl_GetObjResult(interp);
25
if (!count)
26
{
27
- LangDebug("%s - No Results\n",__FUNCTION__);
28
+ LangDebug("%s - No Results\n", __func__);
29
abort();
30
Tcl_Panic("No results");
31
}
32
33
SV *save = sv_2mortal(newSVsv(sv));
34
s = SvPV(save, len);
35
#if 0
36
- LangDebug("%s error:%.*s\n",__FUNCTION__,na,s);
37
+ LangDebug("%s error:%.*s\n",__func__,na,s);
38
#endif
39
if (!interp)
40
croak("%s",s);
41
42
int old_taint = PL_tainted;
43
TAINT_NOT;
44
#if 0
45
- warn(__FUNCTION__);
46
+ warn("%s",__func__);
47
#endif
48
if (InterpHv(interp,0))
49
{
50
51
*/
52
sv = newSVpvn(p, numItems);
53
#if 0
54
- LangDebug("%s %d '%.*s'\n",__FUNCTION__,numItems,numItems,p);
55
+ LangDebug("%s %d '%.*s'\n",__func__,numItems,numItems,p);
56
LangDumpVec(strType,1,&sv);
57
abort();
58
#endif
59
60
/* Tk_CheckHash((SV *) hash, NULL); */
61
if (SvREFCNT(hash) < 1)
62
{
63
- LangDebug("%s %s has REFCNT=%d\n",__FUNCTION__,cmdName,(int) SvREFCNT(hash));
64
+ LangDebug("%s %s has REFCNT=%d\n",__func__,cmdName,(int) SvREFCNT(hash));
65
sv_dump(obj);
66
}
67
68
69
/* Tk_CheckHash((SV *) hash, NULL); */
70
if (SvREFCNT(hash) < 2)
71
{
72
- LangDebug("%s %s has REFCNT=%d",__FUNCTION__,cmdName,(int) SvREFCNT(hash));
73
+ LangDebug("%s %s has REFCNT=%d",__func__,cmdName,(int) SvREFCNT(hash));
74
}
75
SvREFCNT_dec(hash);
76
}
77