--- a/compiler/PPCUniversalResultStrategy.st Mon Aug 17 12:13:16 2015 +0100
+++ b/compiler/PPCUniversalResultStrategy.st Mon Aug 24 15:34:14 2015 +0100
@@ -33,6 +33,7 @@
!PPCUniversalResultStrategy methodsFor:'as yet unclassified'!
recordFailure: retval
+ self error: 'deprecated?'.
codeGen codeRecordFailure: (self indexForRetval: retval)
!
@@ -41,6 +42,7 @@
!
recordMatch: retval
+ self error: 'deprecated?'.
codeGen codeComment: 'symbol: ', retval storeString.
codeGen codeRecordMatch: (self indexForRetval: retval)
!
@@ -55,6 +57,11 @@
^ codeGen code: 'self reset.'
!
+returnMatch: retval offset: offset
+ codeGen codeComment: 'symbol: ', retval storeString.
+ codeGen codeReturn: [ codeGen codeRecordMatch: (self indexForRetval: retval) offset: offset ]
+!
+
returnResult: state
self assert: (state isKindOf: PEGFsaState).
codeGen codeReturn.