equal
deleted
inserted
replaced
29 " |
29 " |
30 ! ! |
30 ! ! |
31 |
31 |
32 !Helper class methodsFor:'queries'! |
32 !Helper class methodsFor:'queries'! |
33 |
33 |
34 isStcCompiledMethod:aMethod |
34 isStcCompiledMethod:aMethod in:instance |
35 in:instance |
|
36 |
|
37 ^ self |
35 ^ self |
38 isStcCompiledMethod:aMethod |
36 isStcCompiledMethod:aMethod |
39 inClass:instance class |
37 inClass:instance class |
|
38 |
|
39 "Modified (format): / 30-07-2018 / 09:16:27 / Stefan Vogel" |
40 ! |
40 ! |
41 |
41 |
42 isStcCompiledMethod:aMethod |
42 isStcCompiledMethod:aMethod inClass:aClass |
43 inClass:aClass |
|
44 |
|
45 |compiledMethod| |
43 |compiledMethod| |
46 |
44 |
47 compiledMethod := aClass compiledMethodAt:aMethod. |
45 compiledMethod := aClass compiledMethodAt:aMethod. |
|
46 ^ compiledMethod notNil and:[compiledMethod byteCode isNil] |
48 |
47 |
49 ^ (compiledMethod notNil |
48 "Modified (format): / 30-07-2018 / 09:16:15 / Stefan Vogel" |
50 and:[compiledMethod byteCode isNil]) |
|
51 ! |
49 ! |
52 |
50 |
53 packageDirectoryForRegressionTests |
51 packageDirectoryForRegressionTests |
54 ^ self workDirectory / 'stx' / 'goodies' / 'regression' |
52 ^ self workDirectory / 'stx' / 'goodies' / 'regression' |
55 ! |
53 ! |