equal
deleted
inserted
replaced
39 |
39 |
40 executeOn: interpreter |
40 executeOn: interpreter |
41 |
41 |
42 type == nil ifTrue:[^interpreter pushLiteral: constant]. |
42 type == nil ifTrue:[^interpreter pushLiteral: constant]. |
43 type == #block ifTrue:[^interpreter pushBlock: constant]. |
43 type == #block ifTrue:[^interpreter pushBlock: constant]. |
44 type == #blockMethod ifTrue:[^interpreter pushBlockMethod: constant]. |
|
45 self shouldNeverBeReached. |
44 self shouldNeverBeReached. |
46 |
45 |
47 "Modified: / 11-06-2008 / 01:03:20 / Jan Vrany <vranyj1@fel.cvut.cz>" |
46 "Modified: / 30-03-2009 / 16:50:28 / Jan Vrany <vranyj1@fel.cvut.cz>" |
48 ! ! |
47 ! ! |
49 |
48 |
50 !IRConstant methodsFor:'testing'! |
49 !IRConstant methodsFor:'testing'! |
51 |
50 |
52 isConstant |
51 isConstant |