paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 10:19:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: Patch to avoid range check errors in graphtype.pp (from C Western issue #0011064)

Browse Source 
git-svn-id: trunk@14692 -
This commit is contained in:
paul 2008-03-31 00:49:42 +00:00
parent 564ac357d7
commit 65d8d6bfdc
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/graphtype.pp
View File

@ -420,8 +420,8 @@ begin
P := DstRowPtr; P := DstRowPtr;
for x := 0 to RS - 1 do for x := 0 to RS - 1 do
begin begin
p^ := (SrcPtr[x] shl ShiftL) or (SrcPtr[x+1] shr ShiftR); P^ := Byte(SrcPtr[x] shl ShiftL) or Byte(SrcPtr[x+1] shr ShiftR);
Inc(p); Inc(P);
end; end;
Inc(SrcPtr, ARowStride); Inc(SrcPtr, ARowStride);
Inc(DstRowPtr, DstRowInc); Inc(DstRowPtr, DstRowInc);
@ -1798,10 +1798,10 @@ begin
//DebugLn(['InternalInit CurShift=',CurShift,' DShift=',DShift]); //DebugLn(['InternalInit CurShift=',CurShift,' DShift=',DShift]);
if CurShift >= DShift then if CurShift >= DShift then
MissingBits[Prec, HighValue] := MissingBits[Prec, HighValue] :=
MissingBits[Prec, HighValue] or (Bits shl (CurShift - DShift)) word(MissingBits[Prec, HighValue] or (Bits shl (CurShift - DShift)))
else else
MissingBits[Prec, HighValue] := MissingBits[Prec, HighValue] :=
MissingBits[Prec, HighValue] or (Bits shr (DShift - CurShift)); word(MissingBits[Prec, HighValue] or (Bits shr (DShift - CurShift)));
Dec(CurShift, DShift); Dec(CurShift, DShift);
end; end;
end; end;