paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-20 13:29:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk2: add g_slice_xxx functions from glib 2.10

Browse Source 
git-svn-id: trunk@12033 -
This commit is contained in:
paul 2008-11-08 10:10:24 +00:00
parent f07d00b7f0
commit 4f8838d731
4 changed files with 62 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -2173,6 +2173,7 @@ packages/gtk2/src/glib/grel.inc svneol=native#text/plain
packages/gtk2/src/glib/gscanner.inc svneol=native#text/plain packages/gtk2/src/glib/gscanner.inc svneol=native#text/plain
packages/gtk2/src/glib/gshell.inc svneol=native#text/plain packages/gtk2/src/glib/gshell.inc svneol=native#text/plain
packages/gtk2/src/glib/gsignal.inc svneol=native#text/plain packages/gtk2/src/glib/gsignal.inc svneol=native#text/plain
packages/gtk2/src/glib/gslice.inc svneol=native#text/pascal
packages/gtk2/src/glib/gslist.inc svneol=native#text/plain packages/gtk2/src/glib/gslist.inc svneol=native#text/plain
packages/gtk2/src/glib/gsourceclosure.inc svneol=native#text/plain packages/gtk2/src/glib/gsourceclosure.inc svneol=native#text/plain
packages/gtk2/src/glib/gspawn.inc svneol=native#text/plain packages/gtk2/src/glib/gspawn.inc svneol=native#text/plain

4
packages/gtk2/src/glib/gincludes.inc
View File

@ -72,4 +72,8 @@
{$include goption.inc} {$include goption.inc}
{$ifdef HasGLIB2_10}
{$include gslice.inc}
{$endif}
// included by glib2.pas // included by glib2.pas

2
packages/gtk2/src/glib/glib2.pas
View File

@ -76,6 +76,8 @@ const
{$WARNINGS OFF} {$WARNINGS OFF}
{$ENDIF} {$ENDIF}
// {$define HasGLIB2_10}
{$DEFINE read_forward_definitions} {$DEFINE read_forward_definitions}
type type
// internal types // internal types

55
packages/gtk2/src/glib/gslice.inc Normal file
View File

@ -0,0 +1,55 @@
// included by glib2.pas
// slices - fast allocation/release of small memory blocks
{$IFDEF read_forward_definitions}
{$ENDIF read_forward_definitions}
//------------------------------------------------------------------------------
{$IFDEF read_interface_types}
TGSliceConfig = (
G_SLICE_CONFIG_ALWAYS_MALLOC = 1,
G_SLICE_CONFIG_BYPASS_MAGAZINES,
G_SLICE_CONFIG_WORKING_SET_MSECS,
G_SLICE_CONFIG_COLOR_INCREMENT,
G_SLICE_CONFIG_CHUNK_SIZES,
G_SLICE_CONFIG_CONTENTION_COUNTER
) ;
{$ENDIF read_interface_types}
//------------------------------------------------------------------------------
{$IFDEF read_interface_rest}
function g_slice_alloc(block_size:gsize):gpointer;cdecl;external gliblib;
function g_slice_alloc0(block_size:gsize):gpointer;cdecl;external gliblib;
function g_slice_copy(block_size:gsize; mem_block:gconstpointer):gpointer;cdecl;external gliblib;
procedure g_slice_free1(block_size:gsize; mem_block:gpointer);cdecl;external gliblib;
procedure g_slice_free_chain_with_offset(block_size:gsize; mem_chain:gpointer; next_offset:gsize);cdecl;external gliblib;
{
MemoryBlockType *
g_slice_dup (MemoryBlockType,
MemoryBlockType *mem_block);
g_slice_free (MemoryBlockType,
MemoryBlockType *mem_block);
g_slice_free_chain (MemoryBlockType,
MemoryBlockType *first_chain_block,
memory_block_next_field);
pseudo prototypes for the macro
definitions following below.
}
procedure g_slice_set_config(ckey:TGSliceConfig; value:gint64);cdecl;external gliblib;
function g_slice_get_config(ckey:TGSliceConfig):gint64;cdecl;external gliblib;
function g_slice_get_config_state(ckey:TGSliceConfig; address:gint64; n_values:pguint):Pgint64;cdecl;external gliblib;
{$ENDIF read_interface_rest}
{$IFDEF read_implementation}
{$ENDIF read_implementation}
// included by glib2.pas