mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 08:38:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix void returns in dl_vms.xs

Browse Source 
Follow-up to df8581b2ed4f95d0aee.
This commit is contained in:
Craig A. Berry 2024-08-03 06:50:35 -05:00
parent 1c57501b4f
commit b1632160a5
1 changed files with 23 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
ext/DynaLoader/dl_vms.xs
View File

@ -157,7 +157,7 @@ MODULE = DynaLoader PACKAGE = DynaLoader
BOOT:
(void)dl_private_init(aTHX);
void
SV *
dl_expandspec(filespec)
char * filespec
CODE:
@ -178,7 +178,7 @@ dl_expandspec(filespec)
DLDEBUG(2,PerlIO_printf(Perl_debug_log, "\tSYNCHK sys$parse = %d\n",sts));
if (!(sts & 1)) {
dl_set_error(dl_fab.fab$l_sts,dl_fab.fab$l_stv);
ST(0) = &PL_sv_undef;
RETVAL = &PL_sv_undef;
}
else {
/* Now set up a default spec - everything but the name */
@ -199,7 +199,7 @@ dl_expandspec(filespec)
DLDEBUG(2,PerlIO_printf(Perl_debug_log, "\tname/default sys$parse = %d\n",sts));
if (!(sts & 1)) {
dl_set_error(dl_fab.fab$l_sts,dl_fab.fab$l_stv);
ST(0) = &PL_sv_undef;
RETVAL = &PL_sv_undef;
}
else {
/* Now find the actual file */
@ -207,17 +207,20 @@ dl_expandspec(filespec)
DLDEBUG(2,PerlIO_printf(Perl_debug_log, "\tsys$search = %d\n",sts));
if (!(sts & 1)) {
dl_set_error(dl_fab.fab$l_sts,dl_fab.fab$l_stv);
ST(0) = &PL_sv_undef;
RETVAL = &PL_sv_undef;
}
else {
ST(0) = sv_2mortal(newSVpvn(dl_nam.nam$l_rsa,dl_nam.nam$b_rsl));
RETVAL = newSVpvn(dl_nam.nam$l_rsa,dl_nam.nam$b_rsl);
DLDEBUG(1,PerlIO_printf(Perl_debug_log, "\tresult = \\%.*s\\\n",
dl_nam.nam$b_rsl,dl_nam.nam$l_rsa));
}
}
}
void
OUTPUT:
RETVAL
SV *
dl_load_file(filename, flags=0)
char * filename
int flags
@ -294,14 +297,16 @@ dl_load_file(filename, flags=0)
Safefree(dlptr->name.dsc$a_pointer);
Safefree(dlptr->defspec.dsc$a_pointer);
Safefree(dlptr);
ST(0) = &PL_sv_undef;
RETVAL = &PL_sv_undef;
}
else {
ST(0) = sv_2mortal(newSViv(PTR2IV(dlptr)));
RETVAL = newSViv(PTR2IV(dlptr));
}
OUTPUT:
RETVAL
void
SV *
dl_find_symbol(librefptr,symname,ign_err=0)
void * librefptr
SV * symname
@ -324,10 +329,12 @@ dl_find_symbol(librefptr,symname,ign_err=0)
(unsigned long int) entry));
if (!(sts & 1)) {
if (!ign_err) dl_set_error(sts,0);
ST(0) = &PL_sv_undef;
RETVAL = &PL_sv_undef;
}
else ST(0) = sv_2mortal(newSViv(PTR2IV(entry)));
else RETVAL = newSViv(PTR2IV(entry));
OUTPUT:
RETVAL
void
dl_undef_symbols()
@ -336,7 +343,7 @@ dl_undef_symbols()
# These functions should not need changing on any platform:
void
SV *
dl_install_xsub(perl_name, symref, filename="$Package")
char * perl_name
void * symref
@ -344,11 +351,13 @@ dl_install_xsub(perl_name, symref, filename="$Package")
CODE:
DLDEBUG(2,PerlIO_printf(Perl_debug_log, "dl_install_xsub(name=%s, symref=%x)\n",
perl_name, symref));
ST(0) = sv_2mortal(newRV((SV*)newXS_flags(perl_name,
RETVAL = newRV((SV*)newXS_flags(perl_name,
(void(*)(pTHX_ CV *))symref,
filename, NULL,
XS_DYNAMIC_FILENAME)));
XS_DYNAMIC_FILENAME));
OUTPUT:
RETVAL
SV *
dl_error()