Change 33052 by [EMAIL PROTECTED] on 2008/01/23 09:51:35
Purge all use of Nullch in non-dual life modules.
Exterminate! Exterminate! Exterminate!
Affected files ...
... //depot/perl/ext/Data/Dumper/Dumper.xs#74 edit
... //depot/perl/ext/Opcode/Opcode.xs#47 edit
... //depot/perl/ext/PerlIO/encoding/encoding.xs#27 edit
... //depot/perl/ext/PerlIO/scalar/scalar.xs#17 edit
... //depot/perl/ext/PerlIO/via/via.xs#16 edit
... //depot/perl/ext/Storable/Storable.xs#134 edit
... //depot/perl/malloc.c#126 edit
... //depot/perl/pod/perlapio.pod#26 edit
... //depot/perl/win32/vdir.h#13 edit
Differences ...
==== //depot/perl/ext/Data/Dumper/Dumper.xs#74 (text) ====
Index: perl/ext/Data/Dumper/Dumper.xs
--- perl/ext/Data/Dumper/Dumper.xs#73~32881~ 2008-01-06 12:34:41.000000000
-0800
+++ perl/ext/Data/Dumper/Dumper.xs 2008-01-23 01:51:35.000000000 -0800
@@ -322,7 +322,7 @@
if (SvOBJECT(ival))
realpack = HvNAME_get(SvSTASH(ival));
else
- realpack = Nullch;
+ realpack = NULL;
/* if it has a name, we need to either look it up, or keep a tab
* on it so we know when we hit it later
==== //depot/perl/ext/Opcode/Opcode.xs#47 (text) ====
Index: perl/ext/Opcode/Opcode.xs
--- perl/ext/Opcode/Opcode.xs#46~28797~ 2006-09-07 02:49:31.000000000 -0700
+++ perl/ext/Opcode/Opcode.xs 2008-01-23 01:51:35.000000000 -0800
@@ -145,7 +145,7 @@
static int
verify_opset(pTHX_ SV *opset, int fatal)
{
- const char *err = Nullch;
+ const char *err = NULL;
dMY_CXT;
if (!SvOK(opset)) err = "undefined";
==== //depot/perl/ext/PerlIO/encoding/encoding.xs#27 (text) ====
Index: perl/ext/PerlIO/encoding/encoding.xs
--- perl/ext/PerlIO/encoding/encoding.xs#26~30213~ 2007-02-11
09:13:44.000000000 -0800
+++ perl/ext/PerlIO/encoding/encoding.xs 2008-01-23 01:51:35.000000000
-0800
@@ -257,9 +257,9 @@
STDCHAR *ptr = PerlIO_get_ptr(n);
SSize_t use = (avail >= 0) ? avail : 0;
SV *uni;
- char *s = Nullch;
+ char *s = NULL;
STRLEN len = 0;
- e->base.ptr = e->base.end = (STDCHAR *) Nullch;
+ e->base.ptr = e->base.end = (STDCHAR *) NULL;
(void) PerlIOEncode_get_base(aTHX_ f);
if (!e->dataSV)
e->dataSV = newSV(0);
==== //depot/perl/ext/PerlIO/scalar/scalar.xs#17 (text) ====
Index: perl/ext/PerlIO/scalar/scalar.xs
--- perl/ext/PerlIO/scalar/scalar.xs#16~29751~ 2007-01-11 02:34:02.000000000
-0800
+++ perl/ext/PerlIO/scalar/scalar.xs 2008-01-23 01:51:35.000000000 -0800
@@ -184,7 +184,7 @@
if (PerlIOBase(f)->flags & PERLIO_F_CANREAD) {
return (STDCHAR *) SvPV_nolen(s->var);
}
- return (STDCHAR *) Nullch;
+ return (STDCHAR *) NULL;
}
STDCHAR *
@@ -194,7 +194,7 @@
PerlIOScalar *s = PerlIOSelf(f, PerlIOScalar);
return PerlIOScalar_get_base(aTHX_ f) + s->posn;
}
- return (STDCHAR *) Nullch;
+ return (STDCHAR *) NULL;
}
SSize_t
==== //depot/perl/ext/PerlIO/via/via.xs#16 (text) ====
Index: perl/ext/PerlIO/via/via.xs
--- perl/ext/PerlIO/via/via.xs#15~32703~ 2007-12-22 08:17:01.000000000
-0800
+++ perl/ext/PerlIO/via/via.xs 2008-01-23 01:51:35.000000000 -0800
@@ -489,7 +489,7 @@
return (STDCHAR *) SvPVX(s->var);
}
}
- return (STDCHAR *) Nullch;
+ return (STDCHAR *) NULL;
}
STDCHAR *
@@ -502,7 +502,7 @@
return p;
}
}
- return (STDCHAR *) Nullch;
+ return (STDCHAR *) NULL;
}
SSize_t
==== //depot/perl/ext/Storable/Storable.xs#134 (text) ====
Index: perl/ext/Storable/Storable.xs
--- perl/ext/Storable/Storable.xs#133~32734~ 2007-12-26 09:03:56.000000000
-0800
+++ perl/ext/Storable/Storable.xs 2008-01-23 01:51:35.000000000 -0800
@@ -4450,7 +4450,7 @@
* into the existing design. -- RAM, 17/02/2001
*/
- sv_magic(sv, rv, mtype, Nullch, 0);
+ sv_magic(sv, rv, mtype, (char *)NULL, 0);
SvREFCNT_dec(rv); /* Undo refcnt inc from
sv_magic() */
return sv;
@@ -4647,7 +4647,7 @@
sv_upgrade(tv, SVt_PVAV);
AvREAL_off((AV *)tv);
- sv_magic(tv, sv, 'P', Nullch, 0);
+ sv_magic(tv, sv, 'P', (char *)NULL, 0);
SvREFCNT_dec(sv); /* Undo refcnt inc from
sv_magic() */
TRACEME(("ok (retrieve_tied_array at 0x%"UVxf")", PTR2UV(tv)));
@@ -4675,7 +4675,7 @@
return (SV *) 0; /* Failed */
sv_upgrade(tv, SVt_PVHV);
- sv_magic(tv, sv, 'P', Nullch, 0);
+ sv_magic(tv, sv, 'P', (char *)NULL, 0);
SvREFCNT_dec(sv); /* Undo refcnt inc from
sv_magic() */
TRACEME(("ok (retrieve_tied_hash at 0x%"UVxf")", PTR2UV(tv)));
@@ -4707,7 +4707,7 @@
}
sv_upgrade(tv, SVt_PVMG);
- sv_magic(tv, obj, 'q', Nullch, 0);
+ sv_magic(tv, obj, 'q', (char *)NULL, 0);
if (obj) {
/* Undo refcnt inc from sv_magic() */
@@ -4774,7 +4774,7 @@
RLEN(idx); /* Retrieve <idx> */
sv_upgrade(tv, SVt_PVMG);
- sv_magic(tv, sv, 'p', Nullch, idx);
+ sv_magic(tv, sv, 'p', (char *)NULL, idx);
SvREFCNT_dec(sv); /* Undo refcnt inc from
sv_magic() */
return tv;
==== //depot/perl/malloc.c#126 (text) ====
Index: perl/malloc.c
--- perl/malloc.c#125~30964~ 2007-04-15 16:24:21.000000000 -0700
+++ perl/malloc.c 2008-01-23 01:51:35.000000000 -0800
@@ -379,9 +379,6 @@
# ifndef UVxf
# define UVxf "lx"
# endif
-# ifndef Nullch
-# define Nullch NULL
-# endif
# ifndef MEM_ALIGNBYTES
# define MEM_ALIGNBYTES 4
# endif
==== //depot/perl/pod/perlapio.pod#26 (text) ====
Index: perl/pod/perlapio.pod
--- perl/pod/perlapio.pod#25~25253~ 2005-08-01 01:13:10.000000000 -0700
+++ perl/pod/perlapio.pod 2008-01-23 01:51:35.000000000 -0800
@@ -486,7 +486,7 @@
Portable cases are:
- PerlIO_binmode(f,ptype,O_BINARY,Nullch);
+ PerlIO_binmode(f,ptype,O_BINARY,NULL);
and
PerlIO_binmode(f,ptype,O_TEXT,":crlf");
==== //depot/perl/win32/vdir.h#13 (text) ====
Index: perl/win32/vdir.h
--- perl/win32/vdir.h#12~31211~ 2007-05-13 09:35:02.000000000 -0700
+++ perl/win32/vdir.h 2008-01-23 01:51:35.000000000 -0800
@@ -316,7 +316,7 @@
/*
* On WinNT GetFullPathName does not fail, (or at least always
- * succeeds when the drive is valid) WinNT does set *Dest to Nullch
+ * succeeds when the drive is valid) WinNT does set *Dest to NULL
* On Win98 GetFullPathName will set last error if it fails, but
* does not touch *Dest
*/
@@ -544,7 +544,7 @@
/*
* On WinNT GetFullPathName does not fail, (or at least always
- * succeeds when the drive is valid) WinNT does set *Dest to Nullch
+ * succeeds when the drive is valid) WinNT does set *Dest to NULL
* On Win98 GetFullPathName will set last error if it fails, but
* does not touch *Dest
*/
End of Patch.
