Fix test-only bug in pcre2_printint

Fixes #725, #726, #727

Found by YinChen001 <497907957@qq.com>

Author: NWilson

src/pcre2_printint_inc.h

@@ -934,25 +934,25 @@ for(;;)
 
     case OP_REFI:
     flag = "/i";
-    extra = code[1 + IMM2_SIZE];
     /* Fall through */
     case OP_REF:
     fprintf(f, " %s \\%d", flag, GET2(code,1));
-    if (extra != 0) fprintf(f, " 0x%02x", extra);
+    i = (*code == OP_REFI)? code[1 + IMM2_SIZE] : 0;
+    if (i != 0) fprintf(f, " 0x%02x", i);
     ccode = code + OP_lengths[*code];
     goto CLASS_REF_REPEAT;
 
     case OP_DNREFI:
     flag = "/i";
-    extra = code[1 + 2*IMM2_SIZE];
     /* Fall through */
     case OP_DNREF:
       {
       PCRE2_SPTR entry = nametable + (GET2(code, 1) * nesize) + IMM2_SIZE;
       fprintf(f, " %s \\k<", flag);
       print_custring(f, entry);
       fprintf(f, ">%d", GET2(code, 1 + IMM2_SIZE));
-      if (extra != 0) fprintf(f, " 0x%02x", extra);
+      i = (*code == OP_DNREFI)? code[1 + 2*IMM2_SIZE] : 0;
+      if (i != 0) fprintf(f, " 0x%02x", i);
       }
     ccode = code + OP_lengths[*code];
     goto CLASS_REF_REPEAT;

testdata/testinput5

@@ -2309,6 +2309,14 @@
     s \x{17f}
     k \x{212a}
 
+/(.) \1 z/Bir
+    s s z
+    s S z
+
+/(?J:(?<DNAME>s)|(?<DNAME>.)) \k<DNAME> z/Bir
+    s s z
+    s S z
+
 /(.) \1/i,utf
     s S
     k K

testdata/testoutput5

@@ -5273,6 +5273,50 @@ No match
     k \x{212a}
 No match
 
+/(.) \1 z/Bir
+------------------------------------------------------------------
+        Bra
+        CBra 1
+        Any
+        Ket
+     /i  
+     /i \1 0x01
+     /i  z
+        Ket
+        End
+------------------------------------------------------------------
+    s s z
+ 0: s s z
+ 1: s
+    s S z
+ 0: s S z
+ 1: s
+
+/(?J:(?<DNAME>s)|(?<DNAME>.)) \k<DNAME> z/Bir
+------------------------------------------------------------------
+        Bra
+        Bra
+        CBra 1
+     /i s
+        Ket
+        Alt
+        CBra 2
+        Any
+        Ket
+        Ket
+     /i  
+     /i \k<DNAME>2 0x01
+     /i  z
+        Ket
+        End
+------------------------------------------------------------------
+    s s z
+ 0: s s z
+ 1: s
+    s S z
+ 0: s S z
+ 1: s
+
 /(.) \1/i,utf
     s S
  0: s S