Missed FREAD in bytecode.h
Nick Ing-Simmons [Sat, 28 Feb 1998 11:31:15 +0000 (11:31 +0000)]
Cannot export svref_mutex in non-threaded perl

p4raw-id: //depot/perl@603

bytecode.h
win32/makedef.pl

index 115fec7..f605e27 100644 (file)
@@ -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;             \
index 276c2a9..c6af1a0 100644 (file)
@@ -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