richter 01/11/15 00:32:53
Modified: . Tag: Embperl2c ep.h epdom.c epmain.c
Log:
Embperl 2 - memory debugging
Revision Changes Path
No revision
No revision
1.27.4.31 +2 -0 embperl/ep.h
Index: ep.h
===================================================================
RCS file: /home/cvs/embperl/ep.h,v
retrieving revision 1.27.4.30
retrieving revision 1.27.4.31
diff -u -r1.27.4.30 -r1.27.4.31
--- ep.h 2001/11/14 09:30:29 1.27.4.30
+++ ep.h 2001/11/15 08:32:52 1.27.4.31
@@ -662,6 +662,7 @@
#undef newSViv
#define newSViv(i) AddDMallocMagic(Perl_newSViv((i)), "newSViv ", __FILE__,
__LINE__)
+#define newSVivDBG1(i,txt) AddDMallocMagic(Perl_newSViv((i)), txt, __FILE__,
__LINE__)
#undef newSVnv
#define newSVnv(n) AddDMallocMagic(Perl_newSVnv((n)), "newSVnv ", __FILE__,
__LINE__)
@@ -701,6 +702,7 @@
#else
+#define newSVivDBG1(i,txt) newSViv(i)
#define newSVpvf2(sv)
#endif
1.4.2.76 +2 -2 embperl/Attic/epdom.c
Index: epdom.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epdom.c,v
retrieving revision 1.4.2.75
retrieving revision 1.4.2.76
diff -u -r1.4.2.75 -r1.4.2.76
--- epdom.c 2001/11/14 15:01:40 1.4.2.75
+++ epdom.c 2001/11/15 08:32:52 1.4.2.76
@@ -9,7 +9,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epdom.c,v 1.4.2.75 2001/11/14 15:01:40 richter Exp $
+# $Id: epdom.c,v 1.4.2.76 2001/11/15 08:32:52 richter Exp $
#
###################################################################################*/
@@ -754,7 +754,7 @@
else
nNdx = ArrayAdd (&pStringTableArray, 1) ;
- pSVNdx = newSViv (nNdx) ;
+ pSVNdx = newSVivDBG1 (nNdx, sText) ;
SvTAINTED_off (pSVNdx) ;
if (bInc)
1.75.4.68 +24 -3 embperl/epmain.c
Index: epmain.c
===================================================================
RCS file: /home/cvs/embperl/epmain.c,v
retrieving revision 1.75.4.67
retrieving revision 1.75.4.68
diff -u -r1.75.4.67 -r1.75.4.68
--- epmain.c 2001/11/14 15:01:41 1.75.4.67
+++ epmain.c 2001/11/15 08:32:52 1.75.4.68
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epmain.c,v 1.75.4.67 2001/11/14 15:01:41 richter Exp $
+# $Id: epmain.c,v 1.75.4.68 2001/11/15 08:32:52 richter Exp $
#
###################################################################################*/
@@ -3401,6 +3401,7 @@
SvREFCNT_dec (p2.pOutputExpiresCV) ;
#else
HV * pParam ;
+ SV * pParamRV ;
SV * pImportParam ;
tCacheItem * pCache ;
HV * pRP = r -> pConf -> pReqParameter ;
@@ -3408,8 +3409,28 @@
char * s ;
SV * c ;
-
- if (GetHashValueSV (pRP, "provider"))
+#if 0
+ if ((pRecipe = GetHashValueSV (pRP, "recipe")))
+ {
+ PUSHMARK(sp);
+ XPUSHs(sv_2mortal(newRV_inc(pRP)));
+ XPUSHs(pRecipe);
+ PUTBACK;
+ num = perl_call_pv ("HTML::Embperl::Recipe::GetRecipe", G_SCALAR /*|
G_EVAL*/) ;
+ tainted = 0 ;
+ SPAGAIN;
+ if (num == 1)
+ pParamRV = POPs ;
+ PUTBACK;
+ if (num != 1 || !SvROK (pParamRV) || !(pParam = SvRV(pParamRV)) ||
SvTYPE(pParam) != SVt_PVHV)
+ {
+ strncpy (r -> errdat1, SvPV(pRecipe, l), sizeof (r -> errdat1) - 1) ;
+ return rcUnknowRecipe ;
+ }
+ }
+ else
+#endif
+ if (GetHashValueSV (pRP, "provider"))
pParam = r -> pConf -> pReqParameter ;
else
{
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
