paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 16:09:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ g_array* aliases as proposed by sechshelme, resolves #41026

Browse Source
This commit is contained in:
florian 2024-11-30 14:07:07 +01:00
parent 36f771a312
commit c8b649186f
2 changed files with 25 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/gtk2/src/glib/garray.inc
View File

@ -29,9 +29,13 @@
{$IFDEF read_interface_rest}
function g_array_append_val(a: PGArray; v : gpointer) : PGArray;
function g_array_prepend_val(a: PGArray; v : gpointer) : PGArray;
function g_array_insert_val(a: PGArray; i: guint; v : gpointer) : PGArray;
function g_array_append_val(a: PGArray; v : gpointer) : PGArray;inline;
function g_array_prepend_val(a: PGArray; v : gpointer) : PGArray;inline;
function g_array_insert_val(a: PGArray; i: guint; v : gpointer) : PGArray;inline;
function g_array_append_val(a: PGArray; const v): PGArray;inline;
function g_array_prepend_val(a: PGArray; const v): PGArray;inline;
function g_array_insert_val(a: PGArray; i: guint; const v): PGArray;inline;
function g_array_new(zero_terminated:gboolean; clear:gboolean; element_size:guint):PGArray;cdecl;external gliblib name 'g_array_new';
function g_array_sized_new(zero_terminated:gboolean; clear:gboolean; element_size:guint; reserved_size:guint):PGArray;cdecl;external gliblib name 'g_array_sized_new';

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

@ -157,21 +157,36 @@ end;
* garray.inc
*}
function g_array_append_val(a: PGArray; v : gpointer) : PGArray;
function g_array_append_val(a: PGArray; v : gpointer) : PGArray;inline;
begin
g_array_append_val := g_array_append_vals(a,@(v),1);
end;
function g_array_prepend_val(a: PGArray; v : gpointer) : PGArray;
function g_array_prepend_val(a: PGArray; v : gpointer) : PGArray;inline;
begin
g_array_prepend_val := g_array_prepend_vals(a,@(v),1);
end;
function g_array_insert_val(a: PGArray; i: guint; v : gpointer) : PGArray;
function g_array_insert_val(a: PGArray; i: guint; v : gpointer) : PGArray;inline;
begin
g_array_insert_val := g_array_insert_vals(a,i,@(v),1);
end;
function g_array_append_val(a: PGArray; const v): PGArray;inline;
begin
Result := g_array_append_vals(a, @v, 1);
end;
function g_array_prepend_val(a: PGArray; const v): PGArray;inline;
begin
Result := g_array_prepend_vals(a, @v, 1);
end;
function g_array_insert_val(a: PGArray; i: guint; const v): PGArray;inline;
begin
Result := g_array_insert_vals(a, i, @v, 1);
end;
function g_ptr_array_index (parray: PGPtrArray; index: guint): gpointer;
begin
{$IFDEF FPC}