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

aggpas: 64bit fixes

Browse Source 
git-svn-id: trunk@21966 -
This commit is contained in:
mattias 2009-10-01 21:56:26 +00:00
parent 221a749240
commit ee7e45f2a2
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/aggpas/src/agg_basics.pas
View File

@ -372,7 +372,7 @@ type
// thus instead of directly using SHR we emulate c++ solution.
function shr_int8 (i ,shift : int8 ) : int8;
function shr_int16(i ,shift : int16 ) : int16;
function shr_int32(i ,shift : int ) : int;
function shr_int32(i ,shift : int32 ) : int32;
IMPLEMENTATION
{ UNIT IMPLEMENTATION }

1
components/aggpas/src/agg_rasterizer_cells_aa.pas
View File

@ -307,6 +307,7 @@ begin
ey2:=shr_int32(y2 ,poly_subpixel_shift );
fy1:=y1 and poly_subpixel_mask;
fy2:=y2 and poly_subpixel_mask;
writeln('rasterizer_cells_aa.line x1=',x1,' x2=',x2,' y1=',y1,' y2=',y2,' ex1=',ex1,' ex2=',ex2,' ey1=',ey1,' ey2=',ey1);
if ex1 < m_min_x then
m_min_x:=ex1;