diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-12-01 02:54:29 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-12-01 02:54:29 +0000 |
| commit | 22239a37ce131e4f5341aee571f08aced283e16a (patch) | |
| tree | 8f7f8e19354cc72b2f70b0f4bee40968a002c92b /win32/win32thread.c | |
| parent | 36c15d3fd87bb94724027176c49a6c0afbc14dc9 (diff) | |
| download | perl-22239a37ce131e4f5341aee571f08aced283e16a.tar.gz | |
Create a struct for all perls globals (as an option)
Mainly for Mingw32 which cannot import data.
Now only Opcode tests fail (op_desc/op_name not
handled yet stuff)
p4raw-id: //depot/ansiperl@341
Diffstat (limited to 'win32/win32thread.c')
| -rw-r--r-- | win32/win32thread.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/win32/win32thread.c b/win32/win32thread.c index d3783f6857..3ea73c32a5 100644 --- a/win32/win32thread.c +++ b/win32/win32thread.c @@ -45,7 +45,7 @@ Perl_alloc_thread_key(void) } void -Perl_init_thread_intern(struct perl_thread *thr) +Perl_init_thread_intern(struct perl_thread *athr) { #ifdef USE_THREADS #ifndef USE_DECLSPEC_THREAD @@ -56,7 +56,7 @@ Perl_init_thread_intern(struct perl_thread *thr) * return values we don't _need_ to do anything but * this is good practice: */ - memset(&thr->i,0,sizeof(thr->i)); + memset(&athr->i,0,sizeof(athr->i)); #endif #endif @@ -95,3 +95,4 @@ Perl_thread_create(struct perl_thread *thr, thread_func_t *fn) return thr->self ? 0 : -1; } #endif + |