equal
deleted
inserted
replaced
306 compiler add: 'self clearError.'. |
306 compiler add: 'self clearError.'. |
307 compiler codeStoreValueOf: [self visit: (children at: index)] intoVariable: elementVar. |
307 compiler codeStoreValueOf: [self visit: (children at: index)] intoVariable: elementVar. |
308 compiler add: 'error ifFalse: [ '. |
308 compiler add: 'error ifFalse: [ '. |
309 compiler codeReturn: elementVar. |
309 compiler codeReturn: elementVar. |
310 compiler add: ' ].'. |
310 compiler add: ' ].'. |
311 ] ifFalse:[ |
311 ] ifFalse:[ |
312 index < children size ifTrue:[ |
312 compiler add: 'error := true.'. |
313 coding value: children value: index + 1. |
313 ]. |
314 ] ifFalse:[ |
314 compiler add: 'error ifTrue:[ '. |
315 compiler codeError: 'no choice suitable'. |
315 index < children size ifTrue:[ |
316 ]. |
316 coding value: children value: index + 1. |
317 ] |
317 ] ifFalse:[ |
|
318 compiler codeError: 'no choice suitable'. |
|
319 ]. |
|
320 compiler add: '] '. |
318 ] |
321 ] |
319 ] ifFalse:[ |
322 ] ifFalse:[ |
320 coding := |
323 coding := |
321 [ :children :index | |
324 [ :children :index | |
322 index <= children size ifTrue:[ |
325 index <= children size ifTrue:[ |
332 ] |
335 ] |
333 ]. |
336 ]. |
334 |
337 |
335 coding value: node children value: 1. |
338 coding value: node children value: 1. |
336 |
339 |
337 "Modified: / 26-05-2015 / 19:02:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
340 "Modified: / 29-05-2015 / 07:17:36 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
338 ! |
341 ! |
339 |
342 |
340 visitEndOfFileNode: node |
343 visitEndOfFileNode: node |
341 compiler codeReturn: 'context atEnd ifTrue: [ #EOF ] ifFalse: [ self error: ''EOF expected!!'' ].'. |
344 compiler codeReturn: 'context atEnd ifTrue: [ #EOF ] ifFalse: [ self error: ''EOF expected!!'' ].'. |
342 ! |
345 ! |