#DOCUMENTATION by stefan expecco_18_1_0_6496 expecco_18_1_0_6496_v2
authorStefan Vogel <sv@exept.de>
Mon, 30 Jul 2018 09:32:41 +0200
changeset 1995 bb6692faf0a6
parent 1994 37fc012cbbc7
child 1996 0dc657f7829e
#DOCUMENTATION by stefan class: RegressionTests::Helper class comment/format in: #isStcCompiledMethod:in: #isStcCompiledMethod:inClass:
RegressionTests__Helper.st
--- 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