texlive[62173] Build/source/texk/web2c/luatexdir: Lower max to 10000

[commits+lscarso at tug.org]

Revision: 62173
          http://tug.org/svn/texlive?view=revision&revision=62173
Author:   lscarso
Date:     2022-02-25 20:02:02 +0100 (Fri, 25 Feb 2022)
Log Message:
-----------
Lower max to 10000 and reverse check to max check exception penalty (H.Hagen).

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/luatexdir/ChangeLog
    trunk/Build/source/texk/web2c/luatexdir/lang/texlang.c
    trunk/Build/source/texk/web2c/luatexdir/luatex_svnversion.h

Modified: trunk/Build/source/texk/web2c/luatexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/luatexdir/ChangeLog	2022-02-25 13:43:37 UTC (rev 62172)
+++ trunk/Build/source/texk/web2c/luatexdir/ChangeLog	2022-02-25 19:02:02 UTC (rev 62173)
@@ -1,3 +1,6 @@
+2022-02-25 Luigi Scarso <luigi.scarso at gmail.com>
+    * lower max to 10000 and reverse check to max check exception penalty (H.Hagen)
+
 2022-02-05 Luigi Scarso <luigi.scarso at gmail.com>
     *  intercept prefix for toksapp cum suis (H.Hagen)
 

Modified: trunk/Build/source/texk/web2c/luatexdir/lang/texlang.c
===================================================================
--- trunk/Build/source/texk/web2c/luatexdir/lang/texlang.c	2022-02-25 13:43:37 UTC (rev 62172)
+++ trunk/Build/source/texk/web2c/luatexdir/lang/texlang.c	2022-02-25 19:02:02 UTC (rev 62173)
@@ -674,10 +674,10 @@
             /*tex Let's check if we have a penalty spec. */
             if (((i+3) < len) && uword[i+1] == '[' && uword[i+2] >= '0' && uword[i+2] <= '9' && uword[i+3] == ']') {
                 if (exception_penalty_par > 0) {
-                    if (exception_penalty_par > 100000) {
+                    if (exception_penalty_par > 10000) {
+                        pen = exception_penalty_par;
+                    } else {
                         pen = (uword[i+2] - '0') * exception_penalty_par ;
-                    } else {
-                        pen = exception_penalty_par;
                     }
                 } else {
                     pen = hyphen_penalty_par;
@@ -993,7 +993,7 @@
            tex_error("the word starts with a ghost glyph", NULL);
          } else {
            tex_error("the word doesn't start with a simple character", NULL);
-         }          
+         }
         }
         hyf_font = font(wordstart);
         if (hyphen_char(hyf_font) < 0) {

Modified: trunk/Build/source/texk/web2c/luatexdir/luatex_svnversion.h
===================================================================
--- trunk/Build/source/texk/web2c/luatexdir/luatex_svnversion.h	2022-02-25 13:43:37 UTC (rev 62172)
+++ trunk/Build/source/texk/web2c/luatexdir/luatex_svnversion.h	2022-02-25 19:02:02 UTC (rev 62173)
@@ -1 +1 @@
-#define luatex_svn_revision 7490
+#define luatex_svn_revision 7495