Missed FREAD in bytecode.h

Cannot export svref_mutex in non-threaded perl

p4raw-id: //depot/perl@603

diff --git a/bytecode.h b/bytecode.h
index 115fec7..f605e27 100644 (file)
--- a/bytecode.h
+++ b/bytecode.h
@@ -90,7 +90,7 @@ EXT I32 obj_list_fill INIT(-1);
        unsigned short *ary;            \
        int i;                          \
        New(666, ary, 256, unsigned short); \
-       FREAD(ary, 256, 2);             \
+       BGET_FREAD(ary, 256, 2);        \
        for (i = 0; i < 256; i++)       \
            ary[i] = ntohs(ary[i]);     \
        arg = (char *) ary;             \

diff --git a/win32/makedef.pl b/win32/makedef.pl
index 276c2a9..c6af1a0 100644 (file)
--- a/win32/makedef.pl
+++ b/win32/makedef.pl
@@ -203,6 +203,7 @@ unless ($define{'USE_THREADS'})
 Perl_condpair_magic
 Perl_thr_key
 Perl_sv_mutex
+Perl_svref_mutex
 Perl_malloc_mutex
 Perl_eval_mutex
 Perl_eval_cond