diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-16 18:21:27 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-16 18:21:27 +0000 |
| commit | 2cc1b180444ab1e2ac675ff3e9f78a123bc70c80 (patch) | |
| tree | 3c7031181b508d6e9a75ad0638321cd1e91712f4 | |
| parent | 7bd31527512b13192dec55ed4943599edc17b94a (diff) | |
| download | perl-2cc1b180444ab1e2ac675ff3e9f78a123bc70c80.tar.gz | |
The suggested patch for [perl #22201] "patch: perl 5.8.0
compile error on ia64/HP-UX (comparing incompatible pointers)"
plus a possible cure for the warning mentioned in the case.
p4raw-id: //depot/perl@19532
| -rw-r--r-- | ext/Storable/Storable.xs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ext/Storable/Storable.xs b/ext/Storable/Storable.xs index 41dffca1d5..a1208dea70 100644 --- a/ext/Storable/Storable.xs +++ b/ext/Storable/Storable.xs @@ -470,7 +470,7 @@ static stcxt_t *Context_ptr = NULL; if (!mbase) { \ TRACEME(("** allocating mbase of %d bytes", MGROW)); \ New(10003, mbase, MGROW, char); \ - msiz = MGROW; \ + msiz = (STRLEN)MGROW; \ } \ mptr = mbase; \ if (x) \ @@ -1322,7 +1322,8 @@ static void init_retrieve_context(stcxt_t *cxt, int optype, int is_tainted) * new retrieve routines. */ - cxt->hseen = ((cxt->retrieve_vtbl == sv_old_retrieve) ? newHV() : 0); + cxt->hseen = (((void*)cxt->retrieve_vtbl == (void*)sv_old_retrieve) + ? newHV() : 0); cxt->aseen = newAV(); /* Where retrieved objects are kept */ cxt->aclass = newAV(); /* Where seen classnames are kept */ |