diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-02-28 22:16:45 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-02-28 22:16:45 +0000 |
| commit | 0bfcb09dbc8a8333a31bc4ed39ebc944580fd2fe (patch) | |
| tree | e3805a32523e9539b6253bfdeed236ba3cc010d4 | |
| parent | 50243a955e8631e9228f2bc8eee4c6976cfd9f02 (diff) | |
| download | perl-0bfcb09dbc8a8333a31bc4ed39ebc944580fd2fe.tar.gz | |
[win32] fix typo in sv.h, and run 'make regen_headers' to make it build
p4raw-id: //depot/win32/perl@605
| -rw-r--r-- | embedvar.h | 3 | ||||
| -rw-r--r-- | sv.h | 8 |
2 files changed, 7 insertions, 4 deletions
diff --git a/embedvar.h b/embedvar.h index d11686ca34..bfc39d54f2 100644 --- a/embedvar.h +++ b/embedvar.h @@ -716,6 +716,7 @@ #define sv_no (Perl_Vars.Gsv_no) #define sv_undef (Perl_Vars.Gsv_undef) #define sv_yes (Perl_Vars.Gsv_yes) +#define svref_mutex (Perl_Vars.Gsvref_mutex) #define thisexpr (Perl_Vars.Gthisexpr) #define thr_key (Perl_Vars.Gthr_key) #define threads_mutex (Perl_Vars.Gthreads_mutex) @@ -834,6 +835,7 @@ #define Gsv_no sv_no #define Gsv_undef sv_undef #define Gsv_yes sv_yes +#define Gsvref_mutex svref_mutex #define Gthisexpr thisexpr #define Gthr_key thr_key #define Gthreads_mutex threads_mutex @@ -952,6 +954,7 @@ #define sv_no Perl_sv_no #define sv_undef Perl_sv_undef #define sv_yes Perl_sv_yes +#define svref_mutex Perl_svref_mutex #define thisexpr Perl_thisexpr #define thr_key Perl_thr_key #define threads_mutex Perl_threads_mutex @@ -84,10 +84,10 @@ struct io { ++count; \ MUTEX_UNLOCK(&svref_mutex); \ } STMT_END -# define ATOMIC_DEC_AND_TEST(res,count) \ - MUTEX_LOCK(&svref_mutex); \ - res = (--count == 0); \ - MUTEX_UNLOCK(&svref_mutex); \ +# define ATOMIC_DEC_AND_TEST(res,count) STMT_START { \ + MUTEX_LOCK(&svref_mutex); \ + res = (--count == 0); \ + MUTEX_UNLOCK(&svref_mutex); \ } STMT_END # else # define ATOMIC_INC(count) atomic_inc(&count) |