summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorAndy Lester <andy@petdance.com>2005-12-30 17:05:58 -0600
committerH.Merijn Brand <h.m.brand@xs4all.nl>2006-01-01 10:42:16 +0000
commitcbbf89328f29f925842d180c1410e324b297744d (patch)
tree6f63c59aeb96d4eaafa9b8f1ee25b94fd72730c3 /pp_ctl.c
parent359842a5ea25b12844b1a94485cc2aa186d8bdbe (diff)
downloadperl-cbbf89328f29f925842d180c1410e324b297744d.tar.gz
Making 0 pointers to NULLs
Message-ID: <20051231050558.GA29093@petdance.com> p4raw-id: //depot/perl@26558
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index 12f3f04bc6..f1c468eb0d 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -407,7 +407,7 @@ PP(pp_formline)
bool item_is_utf8 = FALSE;
bool targ_is_utf8 = FALSE;
SV * nsv = NULL;
- OP * parseres = 0;
+ OP * parseres = NULL;
const char *fmt;
bool oneline;
@@ -2250,12 +2250,12 @@ S_dofindlabel(pTHX_ OP *o, const char *label, OP **opstack, OP **oplimit)
PP(pp_goto)
{
dVAR; dSP;
- OP *retop = 0;
+ OP *retop = NULL;
I32 ix;
register PERL_CONTEXT *cx;
#define GOTO_DEPTH 64
OP *enterops[GOTO_DEPTH];
- const char *label = 0;
+ const char *label = NULL;
const bool do_dump = (PL_op->op_type == OP_DUMP);
static const char must_have_label[] = "goto must have label";
@@ -2488,10 +2488,10 @@ PP(pp_goto)
label = cPVOP->op_pv;
if (label && *label) {
- OP *gotoprobe = 0;
+ OP *gotoprobe = NULL;
bool leaving_eval = FALSE;
bool in_block = FALSE;
- PERL_CONTEXT *last_eval_cx = 0;
+ PERL_CONTEXT *last_eval_cx = NULL;
/* find label */
@@ -4275,7 +4275,7 @@ S_doparseform(pTHX_ SV *sv)
bool postspace = FALSE;
U32 *fops;
register U32 *fpc;
- U32 *linepc = 0;
+ U32 *linepc = NULL;
register I32 arg;
bool ischop;
bool unchopnum = FALSE;