#DOCUMENTATION by stefan
class: RegressionTests::Helper class
comment/format in:
#isStcCompiledMethod:in:
#isStcCompiledMethod:inClass:
--- a/RegressionTests__Helper.st Mon Jul 30 09:32:26 2018 +0200
+++ b/RegressionTests__Helper.st Mon Jul 30 09:32:41 2018 +0200
@@ -31,23 +31,21 @@
!Helper class methodsFor:'queries'!
-isStcCompiledMethod:aMethod
- in:instance
-
+isStcCompiledMethod:aMethod in:instance
^ self
isStcCompiledMethod:aMethod
inClass:instance class
+
+ "Modified (format): / 30-07-2018 / 09:16:27 / Stefan Vogel"
!
-isStcCompiledMethod:aMethod
- inClass:aClass
-
+isStcCompiledMethod:aMethod inClass:aClass
|compiledMethod|
compiledMethod := aClass compiledMethodAt:aMethod.
+ ^ compiledMethod notNil and:[compiledMethod byteCode isNil]
- ^ (compiledMethod notNil
- and:[compiledMethod byteCode isNil])
+ "Modified (format): / 30-07-2018 / 09:16:15 / Stefan Vogel"
!
packageDirectoryForRegressionTests