equal
deleted
inserted
replaced
932 compiler addConstant: compiledParser as: id. |
932 compiler addConstant: compiledParser as: id. |
933 |
933 |
934 compiler codeClearError. |
934 compiler codeClearError. |
935 compiler add: '(', self retvalVar, ' := ', id, ' parseOn: context) isPetitFailure'. |
935 compiler add: '(', self retvalVar, ' := ', id, ' parseOn: context) isPetitFailure'. |
936 compiler indent. |
936 compiler indent. |
937 compiler add: ' ifTrue: [self error: retval message at: ', self retvalVar, ' position ].'. |
937 compiler add: ' ifTrue: [self error: ', self retvalVar, ' message at: ', self retvalVar, ' position ].'. |
938 compiler dedent. |
938 compiler dedent. |
939 compiler add: 'error := ', self retvalVar, ' isPetitFailure.'. |
939 compiler add: 'error := ', self retvalVar, ' isPetitFailure.'. |
940 compiler codeReturn. |
940 compiler codeReturn. |
|
941 |
|
942 "Modified: / 15-06-2015 / 17:59:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
941 ! ! |
943 ! ! |
942 |
944 |
943 !PPCCodeGenerator class methodsFor:'documentation'! |
945 !PPCCodeGenerator class methodsFor:'documentation'! |
944 |
946 |
945 version_HG |
947 version_HG |