--- a/compiler/PPCCodeGenerator.st Wed May 27 08:37:09 2015 +0100
+++ b/compiler/PPCCodeGenerator.st Fri May 29 07:25:31 2015 +0100
@@ -308,13 +308,16 @@
compiler add: 'error ifFalse: [ '.
compiler codeReturn: elementVar.
compiler add: ' ].'.
- ] ifFalse:[
- index < children size ifTrue:[
- coding value: children value: index + 1.
- ] ifFalse:[
- compiler codeError: 'no choice suitable'.
- ].
- ]
+ ] ifFalse:[
+ compiler add: 'error := true.'.
+ ].
+ compiler add: 'error ifTrue:[ '.
+ index < children size ifTrue:[
+ coding value: children value: index + 1.
+ ] ifFalse:[
+ compiler codeError: 'no choice suitable'.
+ ].
+ compiler add: '] '.
]
] ifFalse:[
coding :=
@@ -334,7 +337,7 @@
coding value: node children value: 1.
- "Modified: / 26-05-2015 / 19:02:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 29-05-2015 / 07:17:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
visitEndOfFileNode: node