makejvf, ptex-base.ch: cleanup, typo

texjporg · Jan 29, 2018 · e8a3546 · e8a3546
1 parent c761318
commit e8a3546
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/source/texk/makejvf/tfmread.c b/source/texk/makejvf/tfmread.c
@@ -31,7 +31,7 @@ int jfmread(int kcode)
 		tag = char_info[0*4+2] % 4;
 		if (tag == 1) {
 			gk_ind = char_info[0*4+3]; /* remainder for <type0> */
-			if (glue_kern[gk_ind*4] == 254) /* support for large gluekern table */
+			if (glue_kern[gk_ind*4] > 128) /* huge gluekern table rearranged */
 				gk_ind = upair(&glue_kern[gk_ind*4+2]);
 			for (i = 0 ; i < nl-gk_ind ; i++) {
 				if (glue_kern[(gk_ind+i)*4+1] == ctype) {
@@ -55,7 +55,7 @@ int jfmread(int kcode)
 		tag = char_info[ctype*4+2] % 4;
 		if (tag == 1) {
 			gk_ind = char_info[ctype*4+3]; /* remainder for <type of kcode> */
-			if (glue_kern[gk_ind*4] == 254) /* support for large gluekern table */
+			if (glue_kern[gk_ind*4] > 128) /* huge gluekern table rearranged */
 				gk_ind = upair(&glue_kern[gk_ind*4+2]);
 			for (i = 0 ; i < nl-gk_ind ; i++) {
 				if (glue_kern[(gk_ind+i)*4+1] == 0) {

diff --git a/source/texk/web2c/ptexdir/ptex-base.ch b/source/texk/web2c/ptexdir/ptex-base.ch
@@ -7225,7 +7225,7 @@ if inhibit_glue_flag<>true then
     begin main_k:=glue_kern_start(main_f)(main_i);
     main_j:=font_info[main_k].qqqq;
     if skip_byte(main_j)>stop_flag then {huge glue/kern table rearranged}
-      begin main_k:=lig_kern_restart(main_f)(main_j);
+      begin main_k:=glue_kern_restart(main_f)(main_j);
         main_j:=font_info[main_k].qqqq;
         end;
     loop@+begin if next_char(main_j)=cur_l then