diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-02-03 03:45:09 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-02-03 03:45:09 +0000 |
| commit | 43a861f1c4418d63c6d99fbecb816d11ccf25793 (patch) | |
| tree | 5e372c082dfbfb4e786c379f5a2897f797cd270f /sv.c | |
| parent | 423d68ab98265bbd73b2ade2438378d2784c6e8c (diff) | |
| parent | e7f07268aa53c62dd99727c5a996618d28697a90 (diff) | |
| download | perl-43a861f1c4418d63c6d99fbecb816d11ccf25793.tar.gz | |
[win32] integrate mainline
p4raw-id: //depot/win32/perl@455
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 36 |
1 files changed, 18 insertions, 18 deletions
@@ -65,18 +65,18 @@ typedef void (*SVFUNC) _((SV*)); #define new_SV(p) \ do { \ - MUTEX_LOCK(&sv_mutex); \ + LOCK_SV_MUTEX; \ (p) = (SV*)safemalloc(sizeof(SV)); \ reg_add(p); \ - MUTEX_UNLOCK(&sv_mutex); \ + UNLOCK_SV_MUTEX; \ } while (0) #define del_SV(p) \ do { \ - MUTEX_LOCK(&sv_mutex); \ + LOCK_SV_MUTEX; \ reg_remove(p); \ Safefree((char*)(p)); \ - MUTEX_UNLOCK(&sv_mutex); \ + UNLOCK_SV_MUTEX; \ } while (0) static SV **registry; @@ -183,24 +183,24 @@ U32 flags; ++sv_count; \ } while (0) -#define new_SV(p) do { \ - MUTEX_LOCK(&sv_mutex); \ - if (sv_root) \ - uproot_SV(p); \ - else \ - (p) = more_sv(); \ - MUTEX_UNLOCK(&sv_mutex); \ +#define new_SV(p) do { \ + LOCK_SV_MUTEX; \ + if (sv_root) \ + uproot_SV(p); \ + else \ + (p) = more_sv(); \ + UNLOCK_SV_MUTEX; \ } while (0) #ifdef DEBUGGING -#define del_SV(p) do { \ - MUTEX_LOCK(&sv_mutex); \ - if (debug & 32768) \ - del_sv(p); \ - else \ - plant_SV(p); \ - MUTEX_UNLOCK(&sv_mutex); \ +#define del_SV(p) do { \ + LOCK_SV_MUTEX; \ + if (debug & 32768) \ + del_sv(p); \ + else \ + plant_SV(p); \ + UNLOCK_SV_MUTEX; \ } while (0) static void |