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 |
|
35 inClass:aClass |
|
36 |
|
37 |compiledMethod| |
|
38 |
|
39 compiledMethod := aClass compiledMethodAt:aMethod. |
|
40 |
|
41 ^ (compiledMethod notNil |
|
42 and:[compiledMethod byteCode isNil]) |
|
43 ! |
|
44 |
34 packageDirectoryForRegressionTests |
45 packageDirectoryForRegressionTests |
35 ^ self workDirectory / 'stx' / 'goodies' / 'regression' |
46 ^ self workDirectory / 'stx' / 'goodies' / 'regression' |
36 ! |
47 ! |
37 |
48 |
38 smalltalkDirectory |
49 smalltalkDirectory |