equal
deleted
inserted
replaced
7 classVariableNames:'' |
7 classVariableNames:'' |
8 poolDictionaries:'' |
8 poolDictionaries:'' |
9 category:'PetitCompiler-Nodes' |
9 category:'PetitCompiler-Nodes' |
10 ! |
10 ! |
11 |
11 |
12 !PPCAndNode methodsFor:'as yet unclassified'! |
12 !PPCAndNode methodsFor:'accessing'! |
13 |
|
14 compileWith: compiler effect: effect id: id |
|
15 |
|
16 compiler startMethod: id. |
|
17 compiler addVariable: 'memento'. |
|
18 compiler addVariable: 'retval'. |
|
19 compiler add: (compiler smartRemember: child). |
|
20 |
|
21 compiler add: 'retval :='. |
|
22 compiler callOnLine: (child compileWith: compiler). |
|
23 compiler add: (compiler smartRestore: child). |
|
24 |
|
25 compiler add: '^ retval'. |
|
26 ^ compiler stopMethod. |
|
27 ! |
|
28 |
13 |
29 prefix |
14 prefix |
30 ^ #and |
15 ^ #and |
31 ! ! |
16 ! ! |
32 |
17 |
|
18 !PPCAndNode methodsFor:'visiting'! |
|
19 |
|
20 accept: visitor |
|
21 ^ visitor visitAndNode: self |
|
22 ! ! |
|
23 |