Przeglądaj źródła

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

florian 7 miesięcy temu
rodzic
commit
c8b649186f

+ 7 - 3
packages/gtk2/src/glib/garray.inc

@@ -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';

+ 18 - 3
packages/gtk2/src/glib/glib2.pas

@@ -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}