diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-11 09:34:13 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-11 09:34:13 +0000 |
| commit | a6c403648ecd5cc72235fdb1e7535523a8ff2ac9 (patch) | |
| tree | ae379cb0349ea1800627a86bc0ddf04fea4403ec /win32/win32.c | |
| parent | 312caa8e97f1c7ee342a9895c2f0e749625b4929 (diff) | |
| download | perl-a6c403648ecd5cc72235fdb1e7535523a8ff2ac9.tar.gz | |
various fixes for clean build and test on win32; configpm broken,
needed to open myconfig.SH rather than myconfig; sundry adjustments
to bytecode stuff; tweaks to DYNAMIC_ENV_FETCH code to make it
work under win32; getenv_sv() changed to getenv_len() since SVs
aren't visible in the lower echelons; remove bogus exports from
config.sym; PERL_OBJECT-ness for C++ exception support; null out
IoDIRP in filter_del() or sv_free() will attempt to close it
p4raw-id: //depot/perl@3387
Diffstat (limited to 'win32/win32.c')
| -rw-r--r-- | win32/win32.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/win32/win32.c b/win32/win32.c index 414e4c5dfc..4988e31648 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -1307,7 +1307,12 @@ win32_uname(struct utsname *name) SYSTEM_INFO info; char *arch; GetSystemInfo(&info); + +#ifdef __BORLANDC__ + switch (info.u.s.wProcessorArchitecture) { +#else switch (info.wProcessorArchitecture) { +#endif case PROCESSOR_ARCHITECTURE_INTEL: arch = "x86"; break; case PROCESSOR_ARCHITECTURE_MIPS: @@ -2860,8 +2865,8 @@ static XS(w32_GetTickCount) { dXSARGS; - EXTEND(SP,1); DWORD msec = GetTickCount(); + EXTEND(SP,1); if ((IV)msec > 0) XSRETURN_IV(msec); XSRETURN_NV(msec); |