--- a/JavaVM.st Fri Aug 11 22:37:56 2017 +0100
+++ b/JavaVM.st Sat Aug 12 22:11:28 2017 +0100
@@ -4650,17 +4650,6 @@
"Created: / 16-11-2011 / 15:37:58 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
!
-exitOwnedMonitorsOfProcess
- |thisProcess monitors|
- thisProcess := Processor activeProcess.
- monitors := self acquiredMonitorsOfProcess: thisProcess.
- monitors do: [:each | self assert: (each isOwnedBy:thisProcess).
- each exit.
- ]
-
- "Created: / 05-12-2011 / 21:15:54 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
-!
-
has: aProcess enteredMonitorFor: anyObject
^ (self enteredMonitorsOfProcess: aProcess) includes: anyObject.
@@ -4755,26 +4744,6 @@
"Modified: / 02-03-2015 / 13:59:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
-monitorExit: someObject in: aJavaContext ifOwnedBy: aProcess
- | monitor |
- monitor := someObject getJavaMonitor.
- (monitor isOwnedBy: aProcess) ifTrue: [
- self monitorExit: someObject in: aJavaContext
- ] ifFalse: [
- MonitorTrace ifTrue: [
- Logger
- log: ('%1 trying to exit monitor for %2, but it does not own it. Ignoring'
- bindWith: aProcess name
- with: (self monitorFriendlyPrintStringOf: someObject))
- severity: Logger severityDEBUG
- facility: #JVM
- ]
- ].
-
- "Created: / 17-11-2011 / 21:17:57 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
- "Modified: / 02-03-2015 / 13:58:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
monitorFriendlyPrintStringOf: someObject
| objString |
someObject isJavaClass ifTrue: [ objString := someObject name ] ifFalse: [