[asperl] added AS patch#3

	Message-Id: <01BD2EF2.53433A40.dougl@ActiveState.com>
	To:      "'Gurusamy Sarathy'" <gsar@umich.edu>

	Here's an additional diff against //depot/asperl

	The field name mg_length was changed back to mg_len
	The function name mg_len was change to mg_length

	The need for sort_mutex removed thanks to the code derived
	from Tom Horsley's work.

	 -- Doug

p4raw-id: //depot/asperl@451

1 files changed, 35 insertions, 0 deletions

diff --git a/XSLock.h b/XSLock.h
new file mode 100644
index 0000000000..652f4929f1
--- /dev/null
+++ b/XSLock.h
@@ -0,0 +1,35 @@
+#ifndef __XSLock_h__
+#define __XSLock_h__
+
+class XSLockManager
+{
+public:
+	XSLockManager() { InitializeCriticalSection(&cs); };
+	~XSLockManager() { DeleteCriticalSection(&cs); };
+	void Enter(void) { EnterCriticalSection(&cs); };
+	void Leave(void) { LeaveCriticalSection(&cs); };
+protected:
+	CRITICAL_SECTION cs;
+};
+
+XSLockManager g_XSLock;
+
+class XSLock
+{
+public:
+	XSLock() { g_XSLock.Enter(); };
+	~XSLock() { g_XSLock.Leave(); };
+};
+
+CPerlObj* pPerl;
+
+#undef dXSARGS
+#define dXSARGS	\
+	dSP; dMARK;		\
+	I32 ax = mark - stack_base + 1;	\
+	I32 items = sp - mark; \
+	XSLock localLock; \
+	::pPerl = pPerl
+
+
+#endif