diff options
| author | Douglas Lankshear <doug@lankshear.net> | 1998-02-12 22:14:51 -0800 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-02-14 00:42:37 +0000 |
| commit | 9d8a25dc64d23dcd5730db9be0dbe94a107e1f8b (patch) | |
| tree | 6b1cd171d4482f416a67530f23e2bb55e51341b9 /win32/dl_win32.xs | |
| parent | 7fae4e64c5e2903183a8656ece6686238ddef215 (diff) | |
| download | perl-9d8a25dc64d23dcd5730db9be0dbe94a107e1f8b.tar.gz | |
[asperl] added AS patch#6
Message-Id: <01BD3846.B29FB880.dougl@ActiveState.com>
Subject: [PATCH] command line build
This patch is for the command line build of perl object.
I'll merge the ipfoo.c function with win32_xxx functions next.
-- Doug
p4raw-id: //depot/asperl@522
Diffstat (limited to 'win32/dl_win32.xs')
| -rw-r--r-- | win32/dl_win32.xs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/win32/dl_win32.xs b/win32/dl_win32.xs index f25a30f6ad..077fb22715 100644 --- a/win32/dl_win32.xs +++ b/win32/dl_win32.xs @@ -58,7 +58,7 @@ dl_static_linked(char *filename) MODULE = DynaLoader PACKAGE = DynaLoader BOOT: - (void)dl_private_init(); + (void)dl_private_init(THIS); void * dl_load_file(filename,flags=0) @@ -74,7 +74,7 @@ dl_load_file(filename,flags=0) DLDEBUG(2,PerlIO_printf(PerlIO_stderr()," libref=%x\n", RETVAL)); ST(0) = sv_newmortal() ; if (RETVAL == NULL) - SaveError("%d",GetLastError()) ; + SaveError(THIS_ "%d",GetLastError()) ; else sv_setiv( ST(0), (IV)RETVAL); @@ -90,7 +90,7 @@ dl_find_symbol(libhandle, symbolname) DLDEBUG(2,PerlIO_printf(PerlIO_stderr()," symbolref = %x\n", RETVAL)); ST(0) = sv_newmortal() ; if (RETVAL == NULL) - SaveError("%d",GetLastError()) ; + SaveError(THIS_ "%d",GetLastError()) ; else sv_setiv( ST(0), (IV)RETVAL); @@ -111,7 +111,7 @@ dl_install_xsub(perl_name, symref, filename="$Package") CODE: DLDEBUG(2,PerlIO_printf(PerlIO_stderr(),"dl_install_xsub(name=%s, symref=%x)\n", perl_name, symref)); - ST(0)=sv_2mortal(newRV((SV*)newXS(perl_name, (void(*)(CV*))symref, filename))); + ST(0)=sv_2mortal(newRV((SV*)newXS(perl_name, (void(*)(CPERLarg_ CV*))symref, filename))); char * |