Fix oversight in recent OP_COMMIT_ARG update.

This commit is contained in:
Philip.Hazel 2018-07-22 15:19:43 +00:00
parent 5ea9f6b0f1
commit 7d97c226c7
3 changed files with 6 additions and 1 deletions

View File

@ -7,7 +7,7 @@ and semantics are as close as possible to those of the Perl 5 language.
Written by Philip Hazel
Original API code Copyright (c) 1997-2012 University of Cambridge
New API code Copyright (c) 2016-2017 University of Cambridge
New API code Copyright (c) 2016-2018 University of Cambridge
-----------------------------------------------------------------------------
Redistribution and use in source and binary forms, with or without
@ -1235,6 +1235,7 @@ for (;;)
#endif
case OP_MARK:
case OP_COMMIT_ARG:
case OP_PRUNE_ARG:
case OP_SKIP_ARG:
case OP_THEN_ARG:

2
testdata/testinput1 vendored
View File

@ -6246,4 +6246,6 @@ ef) x/x,mark
#pattern -no_start_optimize
#subject -mark
/(.COMMIT)(*COMMIT::::::::::interal error:::)/
# End of testinput1

View File

@ -9906,4 +9906,6 @@ No match, mark = X
#pattern -no_start_optimize
#subject -mark
/(.COMMIT)(*COMMIT::::::::::interal error:::)/
# End of testinput1