mirror of
https://github.com/byteworksinc/ORCA-Pascal.git
synced 2024-06-05 05:29:29 +00:00
Merge e42be0deeb
into d899edea69
This commit is contained in:
commit
b3ffd5f23c
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user