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

aggpas debugging

Browse Source 
git-svn-id: trunk@21964 -
This commit is contained in:
mattias 2009-10-01 21:09:31 +00:00
parent 81751791c5
commit d99d72dc20
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -705,6 +705,7 @@ end;
{ ZERO }
procedure pod_array.zero;
begin
writeln('pod_array.zero m_entry_sz=',m_entry_sz,' m_size=',m_size);
fillchar(m_array^ ,m_entry_sz * m_size ,0 );
end;

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

@ -829,6 +829,7 @@ end;
procedure TAggFPImage.ReallocData;
begin
writeln('TAggFPImage.ReallocData Width=',Width,' Height=',Height,' DataSize=',DataSize);
ReAllocMem(fData,DataSize);
RenderingBuffer.Destruct;
RenderingBuffer.Construct(FData, Width, Height, LineSize);