diff options
| author | Steve Peters <steve@fisharerojo.org> | 2006-10-21 16:45:38 +0000 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-10-21 16:45:38 +0000 |
| commit | ea17c9b657409ab87569389225ef974ae51ca023 (patch) | |
| tree | d61076c5331975fdc1cf27dc5fd43345306aeae4 /ext/Storable | |
| parent | 2b64ef7931e8c281a8dbf347e21ffb7d8e9120bb (diff) | |
| download | perl-ea17c9b657409ab87569389225ef974ae51ca023.tar.gz | |
Fixes for Storable.xs when compiling a threaded Perl with g++.
p4raw-id: //depot/perl@29071
Diffstat (limited to 'ext/Storable')
| -rw-r--r-- | ext/Storable/Storable.xs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/Storable/Storable.xs b/ext/Storable/Storable.xs index e620b4b8bc..cc84a660e5 100644 --- a/ext/Storable/Storable.xs +++ b/ext/Storable/Storable.xs @@ -3049,7 +3049,7 @@ static int store_hook( failure, whereas the existing code assumes that it can safely store a tag zero. So for ptr_tables we store tag+1 */ - if ((fake_tag = ptr_table_fetch(cxt->pseen, xsv))) + if ((fake_tag = (char *)ptr_table_fetch(cxt->pseen, xsv))) goto sv_seen; /* Avoid moving code too far to the right */ #else if ((svh = hv_fetch(cxt->hseen, (char *) &xsv, sizeof(xsv), FALSE))) @@ -3082,7 +3082,7 @@ static int store_hook( return ret; #ifdef USE_PTR_TABLE - fake_tag = ptr_table_fetch(cxt->pseen, xsv); + fake_tag = (char *)ptr_table_fetch(cxt->pseen, xsv); if (!sv) CROAK(("Could not serialize item #%d from hook in %s", i, classname)); #else @@ -3512,7 +3512,7 @@ static int store(pTHX_ stcxt_t *cxt, SV *sv) */ #ifdef USE_PTR_TABLE - svh = ptr_table_fetch(pseen, sv); + svh = (SV **)ptr_table_fetch(pseen, sv); #else svh = hv_fetch(hseen, (char *) &sv, sizeof(sv), FALSE); #endif |