diff options
| author | Douglas Lankshear <doug@lankshear.net> | 1998-06-19 03:59:50 -0700 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-21 06:27:57 +0000 |
| commit | 0f4eea8fa1779e08575278392ed398ffeda6dcd2 (patch) | |
| tree | c54698f2d90c2834241f5b59fd235394221bc509 /win32/dl_win32.xs | |
| parent | 01ae956fe72e02d2484c49d0844f75517893b01d (diff) | |
| download | perl-0f4eea8fa1779e08575278392ed398ffeda6dcd2.tar.gz | |
applied patch, along with many changes:
- ipfoo.h headers have been coalesced along with perlfoo.h into
iperlsys.h
- win32/cp*.h have been combined in perlhost.h
- CPerlObj::PerlParse() takes an extra xsinit arg
- tweaks to get dl_win32.xs compiling again w/ PERL_OBJECT
Message-Id: <000001bd9b8c$0417fe90$a32fa8c0@tau.Active>
Subject: RE: [PATCH 5.004_67] Fixes for broken MS compiler
p4raw-id: //depot/perl@1172
Diffstat (limited to 'win32/dl_win32.xs')
| -rw-r--r-- | win32/dl_win32.xs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/win32/dl_win32.xs b/win32/dl_win32.xs index a5183c3d90..c650acffb7 100644 --- a/win32/dl_win32.xs +++ b/win32/dl_win32.xs @@ -37,7 +37,7 @@ calls. static SV *error_sv; static char * -OS_Error_String(void) +OS_Error_String(CPERLarg) { DWORD err = GetLastError(); STRLEN len; @@ -110,7 +110,8 @@ dl_load_file(filename,flags=0) DLDEBUG(2,PerlIO_printf(PerlIO_stderr()," libref=%x\n", RETVAL)); ST(0) = sv_newmortal() ; if (RETVAL == NULL) - SaveError(PERL_OBJECT_THIS_ "load_file:%s",OS_Error_String()) ; + SaveError(PERL_OBJECT_THIS_ "load_file:%s", + OS_Error_String(PERL_OBJECT_THIS)) ; else sv_setiv( ST(0), (IV)RETVAL); @@ -126,7 +127,8 @@ dl_find_symbol(libhandle, symbolname) DLDEBUG(2,PerlIO_printf(PerlIO_stderr()," symbolref = %x\n", RETVAL)); ST(0) = sv_newmortal() ; if (RETVAL == NULL) - SaveError(PERL_OBJECT_THIS_ "find_symbol:%s",OS_Error_String()) ; + SaveError(PERL_OBJECT_THIS_ "find_symbol:%s", + OS_Error_String(PERL_OBJECT_THIS)) ; else sv_setiv( ST(0), (IV)RETVAL); |