paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 14:29:31 +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;
for x := 0 to RS - 1 do
begin
p^ := (SrcPtr[x] shl ShiftL) or (SrcPtr[x+1] shr ShiftR);
Inc(p);
P^ := Byte(SrcPtr[x] shl ShiftL) or Byte(SrcPtr[x+1] shr ShiftR);
Inc(P);
end;
Inc(SrcPtr, ARowStride);
Inc(DstRowPtr, DstRowInc);
@ -1798,10 +1798,10 @@ begin
//DebugLn(['InternalInit CurShift=',CurShift,' DShift=',DShift]);
if CurShift >= DShift then
MissingBits[Prec, HighValue] :=
MissingBits[Prec, HighValue] or (Bits shl (CurShift - DShift))
word(MissingBits[Prec, HighValue] or (Bits shl (CurShift - DShift)))
else
MissingBits[Prec, HighValue] :=
MissingBits[Prec, HighValue] or (Bits shr (DShift - CurShift));
word(MissingBits[Prec, HighValue] or (Bits shr (DShift - CurShift)));
Dec(CurShift, DShift);
end;
end;