--- Merging r15004 into '.':

U    packages/cairo/src/cairo.pp

# revisions: 15004
------------------------------------------------------------------------
r15004 | ivost | 2010-03-11 21:02:32 +0100 (Thu, 11 Mar 2010) | 2 lines
Changed paths:
   M /trunk/packages/cairo/src/cairo.pp

* reverted r14999

------------------------------------------------------------------------

git-svn-id: branches/fixes_2_4@15055 -

packages/cairo/src/cairo.pp

@@ -53,7 +53,6 @@ unit Cairo;
 interface
 
 Uses
-  Classes,
   CTypes;
 
 const
@@ -641,10 +640,6 @@ function  cairo_svg_version_to_string(version: cairo_svg_version_t): PChar; cdec
 
 procedure cairo_debug_reset_static_data; cdecl; external LIB_CAIRO;
 
-
-(* FreePascal helpers *)
-function cairo_write_fpstream_func(closure: Pointer; data: PByte; length: LongWord): cairo_status_t; cdecl;
-
 implementation
 
 procedure cairo_version(out major, minor, micro: LongInt);
@@ -657,12 +652,4 @@ begin
   micro := (version mod ((major * 10000) + (minor * 100)));
 end;
 
-function cairo_write_fpstream_func(closure: Pointer; data: PByte; length: LongWord): cairo_status_t; cdecl;
-var
-  Stream: TStream absolute closure;
-begin
-  Stream.Write(data^, length);
-  Result := CAIRO_STATUS_SUCCESS;
-end;
-
 end.