gentoo-overlay/dev-lang/fpc/files/fpc-2.2.0-unneeded-symbols.patch

Index: packages/gtk2/src/gtk+/gtk/gtk2.pas
===================================================================
--- packages/extra/gtk2/gtk+/gtk/gtk2.pas	(revision 11628)
+++ packages/extra/gtk2/gtk+/gtk/gtk2.pas	(working copy)
@@ -63,6 +63,8 @@
 {$DEFINE HasGTK2_8}
 {$ENDIF}
 
+// {$define HasGTK_FileSystem}
+
 interface
 
 uses
Index: packages/gtk2/src/gtk+/gtk/gtkfilesystem.inc
===================================================================
--- packages/extra/gtk2/gtk+/gtk/gtkfilesystem.inc	(revision 11628)
+++ packages/extra/gtk2/gtk+/gtk/gtkfilesystem.inc	(working copy)
@@ -115,17 +115,14 @@
 
 {$IFDEF read_interface_rest}
 
+{$ifdef HasGTK_FileSystem}
 
 { GError enumeration for GtkFileSystem  }
 
 function GTK_FILE_SYSTEM_ERROR : TGQuark;
 
-
-
 function gtk_file_system_error_quark:TGQuark;cdecl;external gtklib name 'gtk_file_system_error_quark';
 
-
-
 { Boxed-type for gtk_file_folder_get_info() results  }
 
 function GTK_TYPE_FILE_INFO : GType;
@@ -244,11 +241,16 @@
 { GtkFileSystem modules support  }
 
 function _gtk_file_system_create(file_system_name:Pchar):PGtkFileSystem;cdecl;external gtklib name '_gtk_file_system_create';
+
+{$endif HasGTK_FileSystem}
+
 {$endif}  {read_interface_rest}
 
 
 {$ifdef read_implementation}
 
+{$ifdef HasGTK_FileSystem}
+
 function GTK_FILE_SYSTEM_ERROR : TGQuark;
   begin
      GTK_FILE_SYSTEM_ERROR:=gtk_file_system_error_quark;
@@ -307,6 +309,8 @@
    GTK_FILE_FOLDER_GET_IFACE:=G_TYPE_INSTANCE_GET_INTERFACE(inst,GTK_TYPE_FILE_FOLDER);
 end;
 
+{$endif HasGTK_FileSystem}
+
 function gtk_file_path_new_dup(str : Pgchar) : PGtkFilePath;
 begin
    gtk_file_path_new_dup:=PGtkFilePath(g_strdup(str));