diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-04-05 21:30:21 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-04-05 21:30:21 +0000 |
| commit | 07409e015252427f5ec1d8889bbfb78cf39d061d (patch) | |
| tree | 0bf440cf49a586dd6e874ecb4fd0aa851fe03d83 /ext | |
| parent | 5b279f8b9f38ac6332e7ddbcac2b8bf949abe47c (diff) | |
| download | perl-07409e015252427f5ec1d8889bbfb78cf39d061d.tar.gz | |
Add casting to allow g++ (3.3.5) to compile the core code.
A C++ compiler produces lots of warnings that are probably valid
concerns to investigate.
p4raw-id: //depot/perl@24170
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B.xs | 2 | ||||
| -rw-r--r-- | ext/Cwd/Cwd.xs | 2 | ||||
| -rw-r--r-- | ext/Devel/DProf/DProf.xs | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/ext/B/B.xs b/ext/B/B.xs index 107d3a6cce..32556ec626 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -1653,7 +1653,7 @@ CvXSUBANY(cv) B::CV cv CODE: ST(0) = CvCONST(cv) ? - make_sv_object(aTHX_ sv_newmortal(),CvXSUBANY(cv).any_ptr) : + make_sv_object(aTHX_ sv_newmortal(),(SV *)CvXSUBANY(cv).any_ptr) : sv_2mortal(newSViv(CvXSUBANY(cv).any_iv)); MODULE = B PACKAGE = B::CV diff --git a/ext/Cwd/Cwd.xs b/ext/Cwd/Cwd.xs index 97c583ff53..e7323ab95b 100644 --- a/ext/Cwd/Cwd.xs +++ b/ext/Cwd/Cwd.xs @@ -417,7 +417,7 @@ PPCODE: char *path; char buf[MAXPATHLEN]; - path = pathsv ? SvPV_nolen(pathsv) : "."; + path = pathsv ? SvPV_nolen(pathsv) : (char *)"."; if (bsd_realpath(path, buf)) { sv_setpvn(TARG, buf, strlen(buf)); diff --git a/ext/Devel/DProf/DProf.xs b/ext/Devel/DProf/DProf.xs index 820214260b..10d4172bcd 100644 --- a/ext/Devel/DProf/DProf.xs +++ b/ext/Devel/DProf/DProf.xs @@ -373,7 +373,7 @@ prof_mark(pTHX_ opcode ptype) gv = CvGV(cv); pname = ((GvSTASH(gv) && HvNAME(GvSTASH(gv))) ? HvNAME(GvSTASH(gv)) - : "(null)"); + : (char *) "(null)"); gname = GvNAME(gv); set_cv_key(aTHX_ cv, pname, gname); |