equal
deleted
inserted
replaced
9 category:'PetitCompiler-Nodes' |
9 category:'PetitCompiler-Nodes' |
10 ! |
10 ! |
11 |
11 |
12 !PPCStarAnyNode methodsFor:'as yet unclassified'! |
12 !PPCStarAnyNode methodsFor:'as yet unclassified'! |
13 |
13 |
14 compileWith: compiler effect: effect id: id |
|
15 compiler startMethod: id. |
|
16 compiler addVariable: 'retval size'. |
|
17 compiler add: 'size := context size - context position.'. |
|
18 compiler add: 'retval := Array new: size.'. |
|
19 compiler add: '(1 to: size) do: [ :e | retval at: e put: context next ].'. |
|
20 compiler add: '^ retval'. |
|
21 ^ compiler stopMethod. |
|
22 ! |
|
23 |
|
24 prefix |
14 prefix |
25 ^ #starAny |
15 ^ #starAny |
26 ! |
|
27 |
|
28 rewrite: changeStatus |
|
29 "Nothing TODO" |
|
30 ! ! |
16 ! ! |
31 |
17 |
|
18 !PPCStarAnyNode methodsFor:'visiting'! |
|
19 |
|
20 accept: visitor |
|
21 ^ visitor visitStarAnyNode: self |
|
22 ! ! |
|
23 |