mirror of
https://github.com/byteworksinc/ORCA-Pascal.git
synced 2024-06-17 07:29:28 +00:00
Merge e42be0deeb
into d899edea69
This commit is contained in:
commit
b3ffd5f23c
|
@ -3737,7 +3737,7 @@ end; {DoConstant}
|
||||||
Gen1(dc_lab, lcix);
|
Gen1(dc_lab, lcix);
|
||||||
if fstptr <> nil then begin {if there are labels...}
|
if fstptr <> nil then begin {if there are labels...}
|
||||||
lmin := fstptr^.cslab;
|
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}
|
{use if-else for sparse case statements}
|
||||||
while fstptr <> nil do begin
|
while fstptr <> nil do begin
|
||||||
|
|
Loading…
Reference in New Issue
Block a user