equal
deleted
inserted
replaced
36 ^ child acceptsEpsilonOpenSet: set |
36 ^ child acceptsEpsilonOpenSet: set |
37 ]. |
37 ]. |
38 ^ false |
38 ^ false |
39 ! ! |
39 ! ! |
40 |
40 |
41 !PPCDelegateNode methodsFor:'optimizing'! |
|
42 |
|
43 inline: changeStatus |
|
44 | inlinedNode | |
|
45 inlinedNode := child asInlined. |
|
46 (inlinedNode ~= child) ifTrue: [ |
|
47 changeStatus change. |
|
48 self replace: child with: inlinedNode. |
|
49 ] |
|
50 ! ! |
|
51 |
|
52 !PPCDelegateNode methodsFor:'transformation'! |
41 !PPCDelegateNode methodsFor:'transformation'! |
53 |
42 |
54 replace: node with: anotherNode |
43 replace: node with: anotherNode |
55 child == node ifTrue: [ child := anotherNode ] |
44 child == node ifTrue: [ child := anotherNode ] |
56 ! ! |
45 ! ! |