Merge e42be0deeb into d899edea69

2024-03-06 01:26:47 -06:00 · 2024-03-06 01:26:47 -06:00 · b3ffd5f23c
parent d899edea69 e42be0deeb
commit b3ffd5f23c
1 changed files with 1 additions and 1 deletions
--- a/parser.pas
+++ b/parser.pas
@ -3737,7 +3737,7 @@ end; {DoConstant}
    Gen1(dc_lab, lcix);
    if fstptr <> nil then begin		{if there are labels...}
      lmin := fstptr^.cslab;
-      if (lmax - lmin) div lcount > sparse then begin
+      if (ord4(lmax) - lmin) div lcount > sparse then begin

        {use if-else for sparse case statements}
        while fstptr <> nil do begin