add missing P increment to GetPartialString (#3089)

diff --git a/src/machine/dispatch.rs b/src/machine/dispatch.rs
index c1b394c6aa1565f110fc3931c46df1eebce36986..fc13d8258f1992092f2347533acecf2fa791267f 100644 (file)
--- a/src/machine/dispatch.rs
+++ b/src/machine/dispatch.rs
@@ -2817,6 +2817,7 @@ impl Machine {
                                 self.machine_st.mode = MachineMode::Write;
 
                                 debug_assert!(!self.machine_st.fail);
+                                self.machine_st.p += 1;
 
                                 continue;
                             }