diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2005-06-09 11:50:56 +0300 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-09 07:44:36 +0000 |
| commit | 8141890a98cb18fe79a9b720aaed544527266f99 (patch) | |
| tree | 05c902bdc760cad3dfc8a67b514d9c285d41a7a6 /ext/DynaLoader/dl_dlopen.xs | |
| parent | d526390560c1ae208a087ad4d648b08895f79f8f (diff) | |
| download | perl-8141890a98cb18fe79a9b720aaed544527266f99.tar.gz | |
instead of unions use double cast for data pointer <-> function pointer
Message-ID: <42A7D8C0.1080104@gmail.com>
p4raw-id: //depot/perl@24770
Diffstat (limited to 'ext/DynaLoader/dl_dlopen.xs')
| -rw-r--r-- | ext/DynaLoader/dl_dlopen.xs | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/ext/DynaLoader/dl_dlopen.xs b/ext/DynaLoader/dl_dlopen.xs index 475112a684..5978bfd037 100644 --- a/ext/DynaLoader/dl_dlopen.xs +++ b/ext/DynaLoader/dl_dlopen.xs @@ -248,18 +248,11 @@ dl_install_xsub(perl_name, symref, filename="$Package") void * symref char * filename CODE: - DLDEBUG(2,PerlIO_printf(Perl_debug_log, "dl_install_xsub(name=%s, symref=%lx)\n", - perl_name, (unsigned long) symref)); -#if defined(__DECC) && defined(__osf__) -#pragma message save -#pragma message disable (nonstandcast) /* Avoid symref cast warning. */ -#endif + DLDEBUG(2,PerlIO_printf(Perl_debug_log, "dl_install_xsub(name=%s, symref=%"UVxf")\n", + perl_name, PTR2UV(symref))); ST(0) = sv_2mortal(newRV((SV*)newXS(perl_name, - (void(*)(pTHX_ CV *))symref, + DPTR2FPTR(XSUBADDR_t, symref), filename))); -#if defined(__DECC) && defined(__osf__) -#pragma message restore -#endif char * |