--- a/src/JavaVM.st Mon Oct 15 19:48:38 2012 +0000
+++ b/src/JavaVM.st Mon Oct 15 19:59:35 2012 +0000
@@ -18363,7 +18363,23 @@
"Created: / 8.1.1999 / 15:08:17 / cg"
!
-_INSTANCEOF2: object _: classRef
+_INSTANCEOF:object _:class
+ "Called from the jitted code for unhandled cases.
+ Unlike in _INSTANCEOF_R:_: the second parameter is a class,,
+ not a class class reference!!"
+
+ object isNil ifTrue:[^0].
+ ^(self canCast: object class to: class)
+ ifTrue:[1]
+ ifFalse:[0]
+
+ "Created: / 08-01-1999 / 14:52:54 / cg"
+ "Modified: / 27-01-1999 / 20:56:25 / cg"
+ "Modified: / 09-10-2012 / 11:55:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified (comment): / 15-10-2012 / 21:51:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+_INSTANCEOF_R: object _: classRef
"Called by the VM (java bytecode interpreter) for unhandled cases.
Unlike _INSTANCEOF:_: the second parameter is a class reference,
not the class itself!! Will wanish!!"
@@ -18375,23 +18391,7 @@
object isNil ifTrue: [ ^ 0 ].
^ (self canCast: object class to: class) ifTrue: [ 1 ] ifFalse: [ 0 ].
- "Created: / 19-05-2011 / 10:14:18 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
- "Modified (comment): / 09-10-2012 / 11:56:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-_INSTANCEOF:object _:class
- "Called from the jitted code for unhandled cases.
- Unlike in _INSTANCEOF2:_: the second parameter is a class,,
- not a class class reference!!"
-
- object isNil ifTrue:[^0].
- ^(self canCast: object class to: class)
- ifTrue:[1]
- ifFalse:[0]
-
- "Created: / 08-01-1999 / 14:52:54 / cg"
- "Modified: / 27-01-1999 / 20:56:25 / cg"
- "Modified: / 09-10-2012 / 11:55:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Created: / 15-10-2012 / 21:51:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
_L2D:op1
@@ -18717,6 +18717,17 @@
"Created: / 8.1.1999 / 14:15:49 / cg"
!
+_NEW: cls
+ | inst |
+
+ cls classInit. "/initializes the class if it is not already"
+ inst := cls newCleared.
+ thisContext sender method flushCode.
+ ^inst.
+
+ "Created: / 15-10-2012 / 21:53:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
_NEWARRAY:type _:size
"VM helper method NEWARRAY insn. Called only when
size is not an SmallInt or negative"
@@ -18726,6 +18737,17 @@
]
"Created: / 13-05-2012 / 14:46:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+_NEW_R: clsRef
+ | cls inst |
+
+ cls := clsRef resolve. "/initializes the class if it is not already"
+ inst := cls newCleared.
+ thisContext sender method flushCode.
+ ^inst.
+
+ "Created: / 15-10-2012 / 21:54:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!JavaVM class methodsFor:'windows - events'!