trace execution line 9!:67 -> 9!:51

Author: bilam

jsrc/x.c

@@ -317,13 +317,13 @@ void jtforeigninit(J jt){UI i;
  MN(9,62)  XPRIM(VERB, jtmemhashq,  0,             VNONAME+VNOSELF,VF2NONE,RMAX,RMAX,RMAX);
  MN(9,63)  XPRIM(VERB, jtmemhashs,  0,             VNONAME+VNOSELF,VF2NONE,RMAX,RMAX,RMAX);
 #endif
+ MN(9,51)  XPRIM(VERB, jttraceexc,   0,            VNONAME+VNOSELF,VF2NONE,RMAX,RMAX,RMAX);
  MN(9,56)  XPRIM(VERB, jtcpufeature, jtcpufeature2, VNONAME+VNOSELF,VF2NONE,RMAX,RMAX,RMAX);
  MN(9,57)  XPRIM(VERB, jtaudittdisab, 0,           VNONAME+VNOSELF,VF2NONE,RMAX,RMAX,RMAX);
  MN(9,58)  XPRIM(VERB, jtgemmtune, jtgemmtune2,    VNONAME+VNOSELF,VF2NONE,RMAX,RMAX,RMAX);
  MN(9,59)  XPRIM(VERB, jtemsglevel,  0,            VNONAME+VNOSELF,VF2NONE,RMAX,RMAX,RMAX);
  MN(9,65)  XPRIM(VERB, jtboxedsparse, 0,           VNONAME+VNOSELF,VF2NONE,RMAX,RMAX,RMAX);
  MN(9,66)  XPRIM(VERB, jtcheckcompfeatures, 0,     VNONAME+VNOSELF,VF2NONE,RMAX,RMAX,RMAX);
- MN(9,67)  XPRIM(VERB, jttraceexc,   0,            VNONAME+VNOSELF,VF2NONE,RMAX,RMAX,RMAX);
  MN(13,0)  XPRIM(VERB, jtdbc,        0,            VNONAME+VNOSELF,VF2NONE,RMAX,RMAX,RMAX);
  MN(13,1)  XPRIM(VERB, jtdbstack,    0,            VNONAME+VNOSELF,VF2NONE,RMAX,RMAX,RMAX);
  MN(13,2)  XPRIM(VERB, jtdbstopq,    0,            VNONAME+VNOSELF,VF2NONE,RMAX,RMAX,RMAX);

jsrc/xa.c

@@ -359,7 +359,7 @@ F1(jttraceexf){F12IP;A z;
  RETF(z);
 }
 
-// 9!:67   '': query  0: disable  1: stdout  2: stderr  string: file name *traceexcfile
+// 9!:51   '': query  0: disable  1: stdout  2: stderr  string: file name *traceexcfile
 // query/set trace execution status. result is previous setting  0: disable  1: stdout  2: stderr  3: disabled because of error  string: file name *traceexcfile
 // result is previous setting, but 3 if there was an error logging
 F1(jttraceexc){F12IP;A z;

test/g9x.ijs

@@ -511,31 +511,31 @@ empty ferase f
 18!:55 numloc_loc2_
 4!:55 ;:'foo1_z_ foo2_z_'
 
-NB. 9!:67 ---------------------------------------------------------------
+NB. 9!:51 ---------------------------------------------------------------
 NB. log current execution line
 
-empty 9!:67[0
-0= 9!:67[0
-0= 9!:67[1
-1= 9!:67[2
-2= 9!:67[0
+empty 9!:51[0
+0= 9!:51[0
+0= 9!:51[1
+1= 9!:51[2
+2= 9!:51[0
 empty ferase f=: jpath'~temp/jtrace.txt'
-0= 9!:67[f
+0= 9!:51[f
 foo4=: 3 : 0
 i.4 5 [ 'abc'
 9!:30''
 )
 
 'foo4' -: foo4''
-empty 9!:67[0
+empty 9!:51[0
 
 (toJ^:IFWIN fread f) -: (0 : 0) 
 foo4=: 3 : 0
 i.4 5 [ 'abc'
 9!:30''
 
 'foo4' -: foo4''
-empty 9!:67[0
+empty 9!:51[0
 )
 empty ferase f