diff --git a/Parser.pas b/Parser.pas index 347f03c..c3514e4 100644 --- a/Parser.pas +++ b/Parser.pas @@ -2546,8 +2546,8 @@ var maxDisp := disp; end; {if} end; {if} - disp := newDisp; end; {if} + disp := startingDisp + count * ktp^.size; InitializeTerm(ktp, 0, 0, false, hasNestedDesignator); if disp > maxDisp then maxDisp := disp;