diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1999-09-18 15:24:56 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1999-09-18 15:24:56 +0000 |
| commit | 5bc28da93666e223bb56098f72517273bc8bcbf9 (patch) | |
| tree | 7d22513e3a5c748ae133aebaa0687ba6f344518d /ext/DynaLoader/dl_aix.xs | |
| parent | 53e9df65959190f4cd34a02fe359bc5e6d2553f6 (diff) | |
| download | perl-5bc28da93666e223bb56098f72517273bc8bcbf9.tar.gz | |
Re-integrate mainline
Basic SvUTF8 stuff in headers, no functional changes yet.
p4raw-id: //depot/utfperl@4193
Diffstat (limited to 'ext/DynaLoader/dl_aix.xs')
| -rw-r--r-- | ext/DynaLoader/dl_aix.xs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/DynaLoader/dl_aix.xs b/ext/DynaLoader/dl_aix.xs index 877b28543a..96bce4e1d4 100644 --- a/ext/DynaLoader/dl_aix.xs +++ b/ext/DynaLoader/dl_aix.xs @@ -590,7 +590,7 @@ dl_load_file(filename, flags=0) if (RETVAL == NULL) SaveError(aTHX_ "%s",dlerror()) ; else - sv_setiv( ST(0), (IV)RETVAL); + sv_setiv( ST(0), PTR2IV(RETVAL) ); void * @@ -606,7 +606,7 @@ dl_find_symbol(libhandle, symbolname) if (RETVAL == NULL) SaveError(aTHX_ "%s",dlerror()) ; else - sv_setiv( ST(0), (IV)RETVAL); + sv_setiv( ST(0), PTR2IV(RETVAL)); void |