paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 20:50:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* packrecords 4 for win32, packrecords c for linux

Browse Source
This commit is contained in:
peter 2000-09-06 21:13:55 +00:00
parent 585da88552
commit b33af3d950
5 changed files with 37 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
packages/gtk/gdk/gdk.pp
View File

@ -38,14 +38,16 @@ uses
const
gdkdll='gdk-1.3';
{$define gtkwin}
{$packrecords 4}
{$else}
const
gdkdll='gdk';
{$linklib c}
{$linklib X11}
{$endif}
{$packrecords C}
{$packrecords C}
{$endif}
Type
PLongint = ^Longint;
@ -84,7 +86,10 @@ implementation
end.
{
$Log$
Revision 1.3 2000-08-06 10:46:23 peter
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

11
packages/gtk/glib/glib.pp
View File

@ -34,13 +34,15 @@ interface
const
glibdll='glib-1.3';
{$define gtkwin}
{$packrecords 4}
{$else}
const
glibdll='glib';
{$linklib c}
{$endif}
{$packrecords C}
{$packrecords C}
{$endif}
{ Pointers to basic pascal types, inserted by h2pas conversion program.}
Type
@ -1648,7 +1650,10 @@ procedure set_year(var a : TGDate; __year : guint);
end.
{
$Log$
Revision 1.3 2000-08-06 10:46:23 peter
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

11
packages/gtk/glib/gmodule.pp
View File

@ -37,12 +37,14 @@ uses
const
gmoduledll='gmodule-1.3';
{$define gtkwin}
{$packrecords 4}
{$else}
const
gmoduledll='gmodule';
{$endif}
{$packrecords C}
{$packrecords C}
{$endif}
var
g_log_domain_gmodule : Pgchar;external gmoduledll name 'g_log_domain_gmodule';
@ -74,7 +76,10 @@ implementation
end.
{
$Log$
Revision 1.3 2000-08-06 10:46:23 peter
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:20 michael

11
packages/gtk/gtk/gtk.pp
View File

@ -38,6 +38,8 @@ uses
const
gtkdll='gtk-1.3';
{$define gtkwin}
{$packrecords 4}
{$else}
const
gtkdll='gtk';
@ -46,9 +48,9 @@ uses
{$linklib Xext}
{$linklib X11}
{$linklib m}
{$endif}
{$packrecords C}
{$packrecords C}
{$endif}
Type
PLongint = ^Longint;
@ -76,7 +78,10 @@ Type
end.
{
$Log$
Revision 1.3 2000-08-06 10:46:23 peter
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

7
packages/gtk/gtk/gtkwindow.pp
View File

@ -21,7 +21,7 @@
default_widget : PGtkWidget;
transient_parent : PGtkWindow;
resize_count : gushort;
flag0 : {$ifdef win32}longint{$else}word;{$endif};
flag0 : word;
end;
const
@ -183,7 +183,10 @@ end;
{
$Log$
Revision 1.3 2000-09-06 20:48:11 peter
Revision 1.4 2000-09-06 21:13:55 peter
* packrecords 4 for win32, packrecords c for linux
Revision 1.3 2000/09/06 20:48:11 peter
* fixed flag0 for win32
Revision 1.2 2000/07/13 11:33:25 michael