mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-21 00:49:12 +02:00
* BSD Libname fixes (eases Lazarus compilation).
This commit is contained in:
parent
c6b0a2e9a3
commit
048c281e79
@ -41,24 +41,16 @@ uses
|
|||||||
|
|
||||||
{$packrecords C}
|
{$packrecords C}
|
||||||
{$else}
|
{$else}
|
||||||
{$ifdef os2}
|
const
|
||||||
const
|
{$ifdef BSD}
|
||||||
gdkdll='gdk12';
|
gdkdll='gdk12';
|
||||||
{$define gtkos2}
|
|
||||||
|
|
||||||
{$packrecords C}
|
|
||||||
{$else}
|
{$else}
|
||||||
const
|
gdkdll='gdk';
|
||||||
{$ifdef FreeBSD}
|
|
||||||
gdkdll='gdk12';
|
|
||||||
{$else}
|
|
||||||
gdkdll='gdk';
|
|
||||||
{$endif}
|
|
||||||
{$linklib c}
|
|
||||||
{$linklib X11}
|
|
||||||
|
|
||||||
{$packrecords C}
|
|
||||||
{$endif}
|
{$endif}
|
||||||
|
{$linklib c}
|
||||||
|
{$linklib X11}
|
||||||
|
|
||||||
|
{$packrecords C}
|
||||||
{$endif}
|
{$endif}
|
||||||
|
|
||||||
Type
|
Type
|
||||||
@ -98,19 +90,21 @@ implementation
|
|||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.5 2002-08-18 19:36:58 marco
|
Revision 1.2 2002-08-31 04:16:48 marco
|
||||||
* small fixes for NetBSD that doesn't adhere to the gtk12/glib12 etc naming for older GTK versions.
|
|
||||||
|
|
||||||
Revision 1.4 2003/03/02 02:08:50 hajny
|
|
||||||
+ OS/2 support for GTK and X11 added by Yuri
|
|
||||||
|
|
||||||
Revision 1.3 2002/09/07 15:42:58 peter
|
|
||||||
* old logs removed and tabs fixed
|
|
||||||
|
|
||||||
Revision 1.2 2002/08/31 04:16:48 marco
|
|
||||||
* BSD Libname fixes (eases Lazarus compilation).
|
* BSD Libname fixes (eases Lazarus compilation).
|
||||||
|
|
||||||
Revision 1.1 2002/01/29 17:55:07 peter
|
Revision 1.1 2002/01/29 17:55:07 peter
|
||||||
* splitted to base and extra
|
* splitted to base and extra
|
||||||
|
|
||||||
|
Revision 1.5 2000/09/09 18:41:38 peter
|
||||||
|
* fixes for gtk win32
|
||||||
|
|
||||||
|
Revision 1.4 2000/09/06 21:14:28 peter
|
||||||
|
* packrecords 4 for win32, packrecords c for linux
|
||||||
|
|
||||||
|
Revision 1.3 2000/08/06 10:46:23 peter
|
||||||
|
* force smartlink (merged)
|
||||||
|
|
||||||
|
Revision 1.2 2000/07/13 11:33:19 michael
|
||||||
|
+ removed logs
|
||||||
}
|
}
|
||||||
|
@ -37,23 +37,15 @@ interface
|
|||||||
|
|
||||||
{$packrecords C}
|
{$packrecords C}
|
||||||
{$else}
|
{$else}
|
||||||
{$ifdef os2}
|
const
|
||||||
const
|
{$ifdef BSD}
|
||||||
glibdll='glib12';
|
glibdll='glib12';
|
||||||
{$define gtkos2}
|
{$else}
|
||||||
|
glibdll='glib';
|
||||||
|
{$endif}
|
||||||
|
{$linklib c}
|
||||||
|
|
||||||
{$packrecords C}
|
{$packrecords C}
|
||||||
{$else}
|
|
||||||
const
|
|
||||||
{$ifdef FreeBSD}
|
|
||||||
glibdll='glib12';
|
|
||||||
{$else}
|
|
||||||
glibdll='glib';
|
|
||||||
{$endif}
|
|
||||||
{$linklib c}
|
|
||||||
|
|
||||||
{$packrecords C}
|
|
||||||
{$endif}
|
|
||||||
{$endif}
|
{$endif}
|
||||||
|
|
||||||
{ Pointers to basic pascal types, inserted by h2pas conversion program.}
|
{ Pointers to basic pascal types, inserted by h2pas conversion program.}
|
||||||
@ -129,14 +121,12 @@ type
|
|||||||
TGQuark = guint32;
|
TGQuark = guint32;
|
||||||
TGTime = gint32;
|
TGTime = gint32;
|
||||||
|
|
||||||
{$ifndef gtkos2}
|
|
||||||
var
|
var
|
||||||
glib_major_version : guint;external glibdll name 'glib_major_version';
|
glib_major_version : guint;external glibdll name 'glib_major_version';
|
||||||
glib_minor_version : guint;external glibdll name 'glib_minor_version';
|
glib_minor_version : guint;external glibdll name 'glib_minor_version';
|
||||||
glib_micro_version : guint;external glibdll name 'glib_micro_version';
|
glib_micro_version : guint;external glibdll name 'glib_micro_version';
|
||||||
glib_interface_age : guint;external glibdll name 'glib_interface_age';
|
glib_interface_age : guint;external glibdll name 'glib_interface_age';
|
||||||
glib_binary_age : guint;external glibdll name 'glib_binary_age';
|
glib_binary_age : guint;external glibdll name 'glib_binary_age';
|
||||||
{$endif}
|
|
||||||
|
|
||||||
type
|
type
|
||||||
PGList = ^TGList;
|
PGList = ^TGList;
|
||||||
@ -651,10 +641,8 @@ procedure g_on_error_query(prg_name:Pgchar);cdecl;external glibdll name 'g_on_er
|
|||||||
procedure g_on_error_stack_trace(prg_name:Pgchar);cdecl;external glibdll name 'g_on_error_stack_trace';
|
procedure g_on_error_stack_trace(prg_name:Pgchar);cdecl;external glibdll name 'g_on_error_stack_trace';
|
||||||
|
|
||||||
{$ifndef gtkwin}
|
{$ifndef gtkwin}
|
||||||
{$ifndef gtkos2}
|
|
||||||
var
|
var
|
||||||
g_log_domain_glib : Pgchar;external glibdll name 'g_log_domain_glib';
|
g_log_domain_glib : Pgchar;external glibdll name 'g_log_domain_glib';
|
||||||
{$endif}
|
|
||||||
{$endif}
|
{$endif}
|
||||||
|
|
||||||
function g_log_set_handler(log_domain:Pgchar; log_levels:TGLogLevelFlags; log_func:TGLogFunc; user_data:gpointer):guint;cdecl;external glibdll name 'g_log_set_handler';
|
function g_log_set_handler(log_domain:Pgchar; log_levels:TGLogLevelFlags; log_func:TGLogFunc; user_data:gpointer):guint;cdecl;external glibdll name 'g_log_set_handler';
|
||||||
@ -1666,19 +1654,21 @@ procedure set_year(var a : TGDate; __year : guint);
|
|||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.5 2002-08-18 19:36:58 marco
|
Revision 1.2 2002-08-31 04:16:48 marco
|
||||||
* small fixes for NetBSD that doesn't adhere to the gtk12/glib12 etc naming for older GTK versions.
|
|
||||||
|
|
||||||
Revision 1.4 2003/03/02 02:10:19 hajny
|
|
||||||
+ OS/2 support for GTK and X11 added by Yuri
|
|
||||||
|
|
||||||
Revision 1.3 2002/09/07 15:42:58 peter
|
|
||||||
* old logs removed and tabs fixed
|
|
||||||
|
|
||||||
Revision 1.2 2002/08/31 04:16:48 marco
|
|
||||||
* BSD Libname fixes (eases Lazarus compilation).
|
* BSD Libname fixes (eases Lazarus compilation).
|
||||||
|
|
||||||
Revision 1.1 2002/01/29 17:55:08 peter
|
Revision 1.1 2002/01/29 17:55:08 peter
|
||||||
* splitted to base and extra
|
* splitted to base and extra
|
||||||
|
|
||||||
|
Revision 1.5 2000/09/09 18:41:38 peter
|
||||||
|
* fixes for gtk win32
|
||||||
|
|
||||||
|
Revision 1.4 2000/09/06 21:14:28 peter
|
||||||
|
* packrecords 4 for win32, packrecords c for linux
|
||||||
|
|
||||||
|
Revision 1.3 2000/08/06 10:46:23 peter
|
||||||
|
* force smartlink (merged)
|
||||||
|
|
||||||
|
Revision 1.2 2000/07/13 11:33:19 michael
|
||||||
|
+ removed logs
|
||||||
}
|
}
|
||||||
|
@ -41,27 +41,19 @@ uses
|
|||||||
|
|
||||||
{$packrecords c}
|
{$packrecords c}
|
||||||
{$else}
|
{$else}
|
||||||
{$ifdef os2}
|
const
|
||||||
const
|
{$ifdef BSD}
|
||||||
gtkdll='gtk12';
|
gtkdll='gtk12';
|
||||||
{$define gtkos2}
|
|
||||||
|
|
||||||
{$packrecords c}
|
|
||||||
{$else}
|
{$else}
|
||||||
const
|
gtkdll='gtk';
|
||||||
{$ifdef FreeBSD}
|
|
||||||
gtkdll='gtk12';
|
|
||||||
{$else}
|
|
||||||
gtkdll='gtk';
|
|
||||||
{$endif}
|
|
||||||
{$linklib c}
|
|
||||||
{$linklib Xi}
|
|
||||||
{$linklib Xext}
|
|
||||||
{$linklib X11}
|
|
||||||
{$linklib m}
|
|
||||||
|
|
||||||
{$packrecords C}
|
|
||||||
{$endif}
|
{$endif}
|
||||||
|
{$linklib c}
|
||||||
|
{$linklib Xi}
|
||||||
|
{$linklib Xext}
|
||||||
|
{$linklib X11}
|
||||||
|
{$linklib m}
|
||||||
|
|
||||||
|
{$packrecords C}
|
||||||
{$endif}
|
{$endif}
|
||||||
|
|
||||||
Type
|
Type
|
||||||
@ -90,19 +82,21 @@ Type
|
|||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.5 2002-08-18 19:36:58 marco
|
Revision 1.2 2002-08-31 04:16:48 marco
|
||||||
* small fixes for NetBSD that doesn't adhere to the gtk12/glib12 etc naming for older GTK versions.
|
|
||||||
|
|
||||||
Revision 1.4 2003/03/02 02:11:10 hajny
|
|
||||||
+ OS/2 support for GTK and X11 added by Yuri
|
|
||||||
|
|
||||||
Revision 1.3 2002/09/07 15:42:59 peter
|
|
||||||
* old logs removed and tabs fixed
|
|
||||||
|
|
||||||
Revision 1.2 2002/08/31 04:16:48 marco
|
|
||||||
* BSD Libname fixes (eases Lazarus compilation).
|
* BSD Libname fixes (eases Lazarus compilation).
|
||||||
|
|
||||||
Revision 1.1 2002/01/29 17:55:08 peter
|
Revision 1.1 2002/01/29 17:55:08 peter
|
||||||
* splitted to base and extra
|
* splitted to base and extra
|
||||||
|
|
||||||
|
Revision 1.5 2000/09/09 18:41:39 peter
|
||||||
|
* fixes for gtk win32
|
||||||
|
|
||||||
|
Revision 1.4 2000/09/06 21:13:55 peter
|
||||||
|
* packrecords 4 for win32, packrecords c for linux
|
||||||
|
|
||||||
|
Revision 1.3 2000/08/06 10:46:23 peter
|
||||||
|
* force smartlink (merged)
|
||||||
|
|
||||||
|
Revision 1.2 2000/07/13 11:33:20 michael
|
||||||
|
+ removed logs
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user