Package: fpc Version: 2.2.2-4 Severity: whishlist Thanks Ubuntu applies the attached patch which is to fix a bug which prevents Lazarus building [1]. The patch comes from the bug tracker of freepascal [2]. It would be nice if this patch could be applied until it is available in 2.2.4 of fpc.
The patch-file should work straight when dropped in debian/patches/ and called in the "series" file. Thanks Paul [1] https://bugs.launchpad.net/ubuntu/+source/fpc/+bug/260464 [2] http://mantis.freepascal.org/view.php?id=11837
diff -U 3 -dHrN -- fpc-2.2.2.orig/fpcsrc/packages/gtk2/src/gtk+/gtk/gtk2.pas
fpc-2.2.2/fpcsrc/packages/gtk2/src/gtk+/gtk/gtk2.pas
--- fpc-2.2.2.orig/fpcsrc/packages/gtk2/src/gtk+/gtk/gtk2.pas 2008-02-02
09:48:09.000000000 -0600
+++ fpc-2.2.2/fpcsrc/packages/gtk2/src/gtk+/gtk/gtk2.pas 2008-11-22
18:11:49.000000000 -0600
@@ -63,6 +63,8 @@
{$DEFINE HasGTK2_8}
{$ENDIF}
+// {$define HasGTK_FileSystem}
+
interface
uses
diff -U 3 -dHrN --
fpc-2.2.2.orig/fpcsrc/packages/gtk2/src/gtk+/gtk/gtkfilesystem.inc
fpc-2.2.2/fpcsrc/packages/gtk2/src/gtk+/gtk/gtkfilesystem.inc
--- fpc-2.2.2.orig/fpcsrc/packages/gtk2/src/gtk+/gtk/gtkfilesystem.inc
2008-02-02 09:48:09.000000000 -0600
+++ fpc-2.2.2/fpcsrc/packages/gtk2/src/gtk+/gtk/gtkfilesystem.inc
2008-11-22 18:11:49.000000000 -0600
@@ -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));
signature.asc
Description: OpenPGP digital signature
