diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2005-05-30 12:15:56 +0300 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2005-05-30 10:19:09 +0000 |
| commit | 3c0f78ca4f737d7b40beecbfdca31b9f7e3fb952 (patch) | |
| tree | 0c5cc6b5b5d5060f76ddafe25f0051d2ff6c4b9e /ext/DynaLoader | |
| parent | 4ab2a30b7819ac6edb69c69e044edaf44dd8119f (diff) | |
| download | perl-3c0f78ca4f737d7b40beecbfdca31b9f7e3fb952.tar.gz | |
Re: updated tru64 cc [PATCH]es (Re: [PATCH]es: Tru64/blead)
Message-ID: <429AAF9C.30503@gmail.com>
p4raw-id: //depot/perl@24627
Diffstat (limited to 'ext/DynaLoader')
| -rw-r--r-- | ext/DynaLoader/dl_dlopen.xs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/ext/DynaLoader/dl_dlopen.xs b/ext/DynaLoader/dl_dlopen.xs index 66ee066adc..475112a684 100644 --- a/ext/DynaLoader/dl_dlopen.xs +++ b/ext/DynaLoader/dl_dlopen.xs @@ -250,9 +250,16 @@ dl_install_xsub(perl_name, symref, filename="$Package") 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 ST(0) = sv_2mortal(newRV((SV*)newXS(perl_name, (void(*)(pTHX_ CV *))symref, filename))); +#if defined(__DECC) && defined(__osf__) +#pragma message restore +#endif char * |