Front page | perl.perl5.porters |
Postings from February 2000
[PATCH]5.5.660 Casts to clean up some warnings
From:
Dan Sugalski
Date:
February 26, 2000 15:56
Subject:
[PATCH]5.5.660 Casts to clean up some warnings
Message ID:
4.3.0.20000226190251.021e7910@24.8.96.48
The following patch adds some casts in to shut Dec C up when building
threaded
--- sv.c;1 Tue Feb 22 17:05:52 2000
+++ sv.c Thu Feb 24 15:16:50 2000
@@ -7237,13 +7237,13 @@
ptr = POPPTR(ss,ix);
TOPPTR(nss,ix) = any_dup(ptr, proto_perl); /* XXX quite arbitrary */
dptr = POPDPTR(ss,ix);
- TOPDPTR(nss,ix) = (void (*)(void*))any_dup(dptr, proto_perl);
+ TOPDPTR(nss,ix) = (void (*)(void*))any_dup((void *)dptr, proto_perl);
break;
case SAVEt_DESTRUCTOR_X:
ptr = POPPTR(ss,ix);
TOPPTR(nss,ix) = any_dup(ptr, proto_perl); /* XXX quite arbitrary */
dxptr = POPDXPTR(ss,ix);
- TOPDXPTR(nss,ix) = (void (*)(pTHXo_ void*))any_dup(dxptr, proto_perl);
+ TOPDXPTR(nss,ix) = (void (*)(pTHXo_ void*))any_dup((void *)dxptr, proto_perl);
break;
case SAVEt_REGCONTEXT:
case SAVEt_ALLOC:
--- op.c;1 Tue Feb 22 17:05:19 2000
+++ op.c Thu Feb 24 14:03:42 2000
@@ -204,7 +204,7 @@
}
if (PL_in_my == KEY_our) {
(void)SvUPGRADE(sv, SVt_PVGV);
- GvSTASH(sv) = (HV*)SvREFCNT_inc(PL_curstash ? PL_curstash : PL_defstash);
+ GvSTASH(sv) = (HV*)SvREFCNT_inc(PL_curstash ? (SV*)PL_curstash : (SV*)PL_defstash);
SvFLAGS(sv) |= SVpad_OUR;
}
av_store(PL_comppad_name, off, sv);
Dan
--------------------------------------"it's like this"-------------------
Dan Sugalski even samurai
dan@sidhe.org have teddy bears and even
teddy bears get drunk
-
[PATCH]5.5.660 Casts to clean up some warnings
by Dan Sugalski