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

cairocanvas: initialize vars

Browse Source 
git-svn-id: trunk@42586 -
This commit is contained in:
mattias 2013-09-04 09:18:32 +00:00
parent f3f8559736
commit ac9e433e89
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/cairocanvas/cairocanvas.pas
View File

@ -178,7 +178,7 @@ function WriteToStream(closure: Pointer; data: PByte; length: LongWord): cairo_s
var
Stream: TStream absolute closure;
begin
if Stream.Write(data^, Length) = Length then
if Stream.Write(data^, Length) = int64(Length) then
result := CAIRO_STATUS_SUCCESS
else
result := CAIRO_STATUS_WRITE_ERROR;