You are viewing a plain text version of this content. The canonical link for it is here.
Posted to embperl-cvs@perl.apache.org by ri...@apache.org on 2001/09/13 10:13:02 UTC
cvs commit: embperl epcomp.c epdom.c
richter 01/09/13 01:13:02
Modified: . Tag: Embperl2c epcomp.c epdom.c
Log:
Embperl 2 - cleanup some old log stuff
Revision Changes Path
No revision
No revision
1.4.2.58 +7 -7 embperl/Attic/epcomp.c
Index: epcomp.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epcomp.c,v
retrieving revision 1.4.2.57
retrieving revision 1.4.2.58
diff -u -r1.4.2.57 -r1.4.2.58
--- epcomp.c 2001/09/10 10:06:07 1.4.2.57
+++ epcomp.c 2001/09/13 08:13:02 1.4.2.58
@@ -9,7 +9,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epcomp.c,v 1.4.2.57 2001/09/10 10:06:07 richter Exp $
+# $Id: epcomp.c,v 1.4.2.58 2001/09/13 08:13:02 richter Exp $
#
###################################################################################*/
@@ -232,7 +232,7 @@
if (pCmd -> sMayJump && !pInfo -> pEmbperlCmds[nNodeName].sMayJump)
pInfo -> pEmbperlCmds[nNodeName].sMayJump = pCmd -> sMayJump ;
- if (1) /* (r -> bDebug & dbgParse) */
+ if (r -> bDebug & dbgParse)
lprintf (r, "[%d]EPCOMP: InitItem %s (#%d) perlcode=%s (num=%d) perlcodeend=%s compilechilds=%d removenode=%d\n",
r -> nPid, Ndx2String(nNodeName), nNodeName,
pCmd -> sPerlCode?pCmd -> sPerlCode[0]:"",
@@ -2113,7 +2113,7 @@
}
if (*ppSV != NULL)
-/* ### */ lprintf (r, "[%d]CACHE: SvTYPE (*ppSV) = %d\n", r -> nPid, SvTYPE (*ppSV)) ;
+/* ### lprintf (r, "[%d]CACHE: SvTYPE (*ppSV) = %d\n", r -> nPid, SvTYPE (*ppSV)) ; */
if (*ppSV != NULL && SvTYPE (*ppSV) == SVt_PV)
{
strncpy (r -> errdat1, SvPV(*ppSV, l), sizeof (r -> errdat1) - 1) ;
@@ -2216,7 +2216,7 @@
*ppSV = newSVpvf ("%s\t%s", r -> errdat1, r -> errdat2) ;
SvUPGRADE (*ppSV, SVt_PVIV) ;
SvIVX (*ppSV) = rc ;
-/* ### */ lprintf (r, "[%d]temp: SvTYPE (*ppSV) = %d\n", r -> nPid, SvTYPE (*ppSV)) ;
+/* ### lprintf (r, "[%d]temp: SvTYPE (*ppSV) = %d\n", r -> nPid, SvTYPE (*ppSV)) ; */
}
/*
if (r -> xCurrDomTree)
@@ -2227,7 +2227,7 @@
*/
if (pTempSV)
{
-/* ### */ lprintf (r, "[%d]temp: SvTYPE (*ppSV) = %d\n", r -> nPid, SvTYPE (pTempSV)) ;
+/* ### lprintf (r, "[%d]temp: SvTYPE (*ppSV) = %d\n", r -> nPid, SvTYPE (pTempSV)) ; */
SvREFCNT_dec (pTempSV) ;
}
@@ -2265,10 +2265,10 @@
if ((rc = embperl_GetFromCache (r, pProcessor, 'C', "Compiler", -1, NULL, &bForceExpire, &pCVKey, &ppCompResult)) != ok)
return rc ;
-/* ### */ lprintf (r, "[%d]comp1: SvTYPE (*ppSV) = %d\n", r -> nPid, SvTYPE (*ppCompResult)) ;
+/* ### lprintf (r, "[%d]comp1: SvTYPE (*ppSV) = %d\n", r -> nPid, SvTYPE (*ppCompResult)) ; */
if ((rc = (*pProcessor -> pCompiler)(r, pProcessor, &pDomTree, ppPreCompResult, ppCompResult)) != ok)
return rc ;
-/* ### */ lprintf (r, "[%d]comp2: SvTYPE (*ppSV) = %d\n", r -> nPid, SvTYPE (*ppCompResult)) ;
+/* ### lprintf (r, "[%d]comp2: SvTYPE (*ppSV) = %d\n", r -> nPid, SvTYPE (*ppCompResult)) ; */
}
if (!r -> bError && pProcessor -> pExecuter)
1.4.2.47 +2 -2 embperl/Attic/epdom.c
Index: epdom.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epdom.c,v
retrieving revision 1.4.2.46
retrieving revision 1.4.2.47
diff -u -r1.4.2.46 -r1.4.2.47
--- epdom.c 2001/09/10 10:06:08 1.4.2.46
+++ epdom.c 2001/09/13 08:13:02 1.4.2.47
@@ -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.46 2001/09/10 10:06:08 richter Exp $
+# $Id: epdom.c,v 1.4.2.47 2001/09/13 08:13:02 richter Exp $
#
###################################################################################*/
@@ -2335,7 +2335,7 @@
tDomTreeOrder * pOrder = pDomTree -> pOrder ;
int n = ArrayGetSize (pOrder) ;
int i = nOrderNdx ;
- lprintf (r, "[%d]toString: %d = %d -> %d max = %d\n", r -> nPid, i, pOrder[i].xFromNode, pOrder[i].xToNode, n-1) ;
+ /* lprintf (r, "[%d]toString: %d = %d -> %d max = %d\n", r -> nPid, i, pOrder[i].xFromNode, pOrder[i].xToNode, n-1) ; */
while (pOrder[i].xFromNode != pNode -> xNdx && i < n)
i++ ;
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org