change case of PERL_OBJECT filenames, consistent with the rest

p4raw-id: //depot/perl@1609

1 files changed, 35 insertions, 0 deletions

diff --git a/XSlock.h b/XSlock.h
new file mode 100644
index 0000000000..8fb0ce4789
--- /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 - PL_stack_base + 1;	\
+	I32 items = sp - mark; \
+	XSLock localLock; \
+	::pPerl = pPerl
+
+
+#endif