From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sat, 28 Feb 1998 11:31:15 +0000 (+0000)
Subject: Missed FREAD in bytecode.h
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=319b3e9ef186494f9113ad230d3224fc10e20bba;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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