Add GSMacOSXCompatible check, do it just to unlock since that is the …

…immediate issue
gnustep · Sep 9, 2023 · 8611c76 · 8611c76
1 parent 5d31b35
commit 8611c76
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/Source/NSLock.m b/Source/NSLock.m
@@ -42,6 +42,7 @@
 #import "Foundation/NSLock.h"
 #import "Foundation/NSException.h"
 #import "Foundation/NSThread.h"
+#import "Foundation/NSUserDefaults.h"
 
 #define class_createInstance(C,E) NSAllocateObject(C,E,NSDefaultMallocZone())
 
@@ -61,6 +62,7 @@
 static Class    untracedRecursiveLockClass = Nil;
 
 static BOOL     traceLocks = NO;
+static BOOL     compatible = NO;
 
 @implementation NSObject (GSTraceLocks)
 
@@ -247,7 +249,11 @@ - (void) unlock\
 {\
   if (0 != GS_MUTEX_UNLOCK(_mutex))\
     {\
-      NSLog(@"failed to unlock mutex");\
+      if (compatible)\
+	{\
+          [NSException raise: NSLockException\
+  	        format: @"failed to unlock mutex"];\
+	}\
     }\
   CHK(Drop) \
 }
@@ -342,6 +348,7 @@ + (void) initialize
       untracedConditionLockClass = [GSUntracedConditionLock class];
       untracedLockClass = [GSUntracedLock class];
       untracedRecursiveLockClass = [GSUntracedRecursiveLock class];
+      compatible = [[NSUserDefaults standardUserDefaults] boolForKey: @"GSMacOSXCompatible"];
     }
 }