* PChar -> PAnsichar

packages/gstreamer/example/playmp3.pp

@@ -11,7 +11,7 @@ Var
   bus : PGstBus = Nil;
   msgError : PGError = Nil;
   error : PGError = Nil;
-  dbg : PChar;
+  dbg : PAnsiChar;
   FN : String;
 
 
@@ -33,7 +33,7 @@ begin
 
   filesrc := gst_bin_get_by_name (GST_BIN (pipeline), 'my_filesrc');
   FN:=ParamStr(1);
-  g_object_set (filesrc, 'location', PChar(FN), NULL);
+  g_object_set (filesrc, 'location', PAnsiChar(FN), NULL);
   g_object_unref (filesrc);
 
   gst_element_set_state (pipeline, GST_STATE_PLAYING);

packages/gstreamer/src/gst.pp

@@ -171,8 +171,8 @@ Type
 {$i gsttypefindfactory.inc}
 
 
-procedure gst_init(argc:Plongint; argv:PPPchar);cdecl;external gstreamerlib name 'gst_init';
-function gst_init_check(argc:Plongint; argv:PPPchar; err:PPGError):Tgboolean;cdecl;external gstreamerlib name 'gst_init_check';
+procedure gst_init(argc:Plongint; argv:PPPAnsiChar);cdecl;external gstreamerlib name 'gst_init';
+function gst_init_check(argc:Plongint; argv:PPPAnsiChar; err:PPGError):Tgboolean;cdecl;external gstreamerlib name 'gst_init_check';
 function gst_is_initialized:Tgboolean;cdecl;external gstreamerlib name 'gst_is_initialized';
 function gst_init_get_option_group:PGOptionGroup;cdecl;external gstreamerlib name 'gst_init_get_option_group';
 procedure gst_deinit;cdecl;external gstreamerlib name 'gst_deinit';

packages/gstreamer/src/gstcaps.inc

@@ -42,7 +42,7 @@
 (* Const before type ignored *)
   T_GstStaticCaps = record
       caps : PGstCaps;
-      _string : Pchar;
+      _string : PAnsiChar;
       _gst_reserved : array[0..3] of Tgpointer;
     end;
   TGstStaticCaps = T_GstStaticCaps;
@@ -107,13 +107,13 @@
   function gst_caps_new_any:PGstCaps;cdecl;external gstreamerlib name 'gst_caps_new_any';
 
 (* Const before type ignored *)
-  function gst_caps_new_empty_simple(media_type:Pchar):PGstCaps;cdecl;external gstreamerlib name 'gst_caps_new_empty_simple';
+  function gst_caps_new_empty_simple(media_type:PAnsiChar):PGstCaps;cdecl;external gstreamerlib name 'gst_caps_new_empty_simple';
 
 (* Const before type ignored *)
 (* Const before type ignored *)
-  function gst_caps_new_simple(media_type:Pchar; fieldname:Pchar; args:array of const):PGstCaps;cdecl;external gstreamerlib name 'gst_caps_new_simple';
+  function gst_caps_new_simple(media_type:PAnsiChar; fieldname:PAnsiChar; args:array of const):PGstCaps;cdecl;external gstreamerlib name 'gst_caps_new_simple';
 
-  function gst_caps_new_simple(media_type:Pchar; fieldname:Pchar):PGstCaps;cdecl;external gstreamerlib name 'gst_caps_new_simple';
+  function gst_caps_new_simple(media_type:PAnsiChar; fieldname:PAnsiChar):PGstCaps;cdecl;external gstreamerlib name 'gst_caps_new_simple';
 
   function gst_caps_new_full(struct1:PGstStructure; args:array of const):PGstCaps;cdecl;external gstreamerlib name 'gst_caps_new_full';
 
@@ -163,15 +163,15 @@
 
 (* Const before type ignored *)
 (* Const before type ignored *)
-  procedure gst_caps_set_value(caps:PGstCaps; field:Pchar; value:PGValue);cdecl;external gstreamerlib name 'gst_caps_set_value';
+  procedure gst_caps_set_value(caps:PGstCaps; field:PAnsiChar; value:PGValue);cdecl;external gstreamerlib name 'gst_caps_set_value';
 
 (* Const before type ignored *)
-  procedure gst_caps_set_simple(caps:PGstCaps; field:Pchar; args:array of const);cdecl;external gstreamerlib name 'gst_caps_set_simple';
+  procedure gst_caps_set_simple(caps:PGstCaps; field:PAnsiChar; args:array of const);cdecl;external gstreamerlib name 'gst_caps_set_simple';
 
-  procedure gst_caps_set_simple(caps:PGstCaps; field:Pchar);cdecl;external gstreamerlib name 'gst_caps_set_simple';
+  procedure gst_caps_set_simple(caps:PGstCaps; field:PAnsiChar);cdecl;external gstreamerlib name 'gst_caps_set_simple';
 
 (* Const before type ignored *)
-  procedure gst_caps_set_simple_valist(caps:PGstCaps; field:Pchar; varargs:Tva_list);cdecl;external gstreamerlib name 'gst_caps_set_simple_valist';
+  procedure gst_caps_set_simple_valist(caps:PGstCaps; field:PAnsiChar; varargs:Tva_list);cdecl;external gstreamerlib name 'gst_caps_set_simple_valist';
 
 (* Const before type ignored *)
   function gst_caps_foreach(caps:PGstCaps; func:TGstCapsForeachFunc; user_data:Tgpointer):Tgboolean;cdecl;external gstreamerlib name 'gst_caps_foreach';

packages/gstreamer/src/gstelement.inc

@@ -71,8 +71,8 @@ Type
   TGstElement_queueautoptr = PGQueue;
 
 
-  function gst_make_element_message_details(name:Pchar; args:array of const):PGstStructure;cdecl;external gstreamerlib name 'gst_make_element_message_details';
-  function gst_make_element_message_details(name:Pchar):PGstStructure;cdecl;external gstreamerlib name 'gst_make_element_message_details';
+  function gst_make_element_message_details(name:PAnsiChar; args:array of const):PGstStructure;cdecl;external gstreamerlib name 'gst_make_element_message_details';
+  function gst_make_element_message_details(name:PAnsiChar):PGstStructure;cdecl;external gstreamerlib name 'gst_make_element_message_details';
 
 
   procedure gst_element_class_add_pad_template(klass:PGstElementClass; templ:PGstPadTemplate);cdecl;external gstreamerlib name 'gst_element_class_add_pad_template';

packages/gstreamer/src/gstregistry.inc

@@ -93,10 +93,10 @@
   function gst_registry_find_feature(registry:PGstRegistry; name:Pgchar; _type:TGType):PGstPluginFeature;cdecl;external gstreamerlib name 'gst_registry_find_feature';
 
 (* Const before type ignored *)
-  function gst_registry_lookup(registry:PGstRegistry; filename:Pchar):PGstPlugin;cdecl;external gstreamerlib name 'gst_registry_lookup';
+  function gst_registry_lookup(registry:PGstRegistry; filename:PAnsiChar):PGstPlugin;cdecl;external gstreamerlib name 'gst_registry_lookup';
 
 (* Const before type ignored *)
-  function gst_registry_lookup_feature(registry:PGstRegistry; name:Pchar):PGstPluginFeature;cdecl;external gstreamerlib name 'gst_registry_lookup_feature';
+  function gst_registry_lookup_feature(registry:PGstRegistry; name:PAnsiChar):PGstPluginFeature;cdecl;external gstreamerlib name 'gst_registry_lookup_feature';
 
 (* Const before type ignored *)
   function gst_registry_check_feature_version(registry:PGstRegistry; feature_name:Pgchar; min_major:Tguint; min_minor:Tguint; min_micro:Tguint):Tgboolean;cdecl;external gstreamerlib name 'gst_registry_check_feature_version';

packages/gstreamer/src/gststructure.inc

@@ -147,13 +147,13 @@
 
 (* Const before type ignored *)
 (* Const before type ignored *)
-  function gst_structure_get_valist(structure:PGstStructure; first_fieldname:Pchar; args:Tva_list):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_get_valist';
+  function gst_structure_get_valist(structure:PGstStructure; first_fieldname:PAnsiChar; args:Tva_list):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_get_valist';
 
 (* Const before type ignored *)
 (* Const before type ignored *)
-  function gst_structure_get(structure:PGstStructure; first_fieldname:Pchar; args:array of const):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_get';
+  function gst_structure_get(structure:PGstStructure; first_fieldname:PAnsiChar; args:array of const):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_get';
 
-  function gst_structure_get(structure:PGstStructure; first_fieldname:Pchar):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_get';
+  function gst_structure_get(structure:PGstStructure; first_fieldname:PAnsiChar):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_get';
 
 (* Const before type ignored *)
   function gst_structure_id_get_valist(structure:PGstStructure; first_field_id:TGQuark; args:Tva_list):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_id_get_valist';
@@ -283,25 +283,25 @@
   function gst_structure_from_string(_string:Pgchar; end_:PPgchar):PGstStructure;cdecl;external gstreamerlib name 'gst_structure_from_string';
 
 (* Const before type ignored *)
-  function gst_structure_fixate_field_nearest_int(structure:PGstStructure; field_name:Pchar; target:longint):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_fixate_field_nearest_int';
+  function gst_structure_fixate_field_nearest_int(structure:PGstStructure; field_name:PAnsiChar; target:longint):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_fixate_field_nearest_int';
 
 (* Const before type ignored *)
-  function gst_structure_fixate_field_nearest_double(structure:PGstStructure; field_name:Pchar; target:double):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_fixate_field_nearest_double';
+  function gst_structure_fixate_field_nearest_double(structure:PGstStructure; field_name:PAnsiChar; target:double):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_fixate_field_nearest_double';
 
 (* Const before type ignored *)
-  function gst_structure_fixate_field_boolean(structure:PGstStructure; field_name:Pchar; target:Tgboolean):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_fixate_field_boolean';
+  function gst_structure_fixate_field_boolean(structure:PGstStructure; field_name:PAnsiChar; target:Tgboolean):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_fixate_field_boolean';
 
 (* Const before type ignored *)
 (* Const before type ignored *)
-  function gst_structure_fixate_field_string(structure:PGstStructure; field_name:Pchar; target:Pgchar):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_fixate_field_string';
+  function gst_structure_fixate_field_string(structure:PGstStructure; field_name:PAnsiChar; target:Pgchar):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_fixate_field_string';
 
 (* Const before type ignored *)
 (* Const before type ignored *)
 (* Const before type ignored *)
-  function gst_structure_fixate_field_nearest_fraction(structure:PGstStructure; field_name:Pchar; target_numerator:Tgint; target_denominator:Tgint):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_fixate_field_nearest_fraction';
+  function gst_structure_fixate_field_nearest_fraction(structure:PGstStructure; field_name:PAnsiChar; target_numerator:Tgint; target_denominator:Tgint):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_fixate_field_nearest_fraction';
 
 (* Const before type ignored *)
-  function gst_structure_fixate_field(structure:PGstStructure; field_name:Pchar):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_fixate_field';
+  function gst_structure_fixate_field(structure:PGstStructure; field_name:PAnsiChar):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_fixate_field';
 
   procedure gst_structure_fixate(structure:PGstStructure);cdecl;external gstreamerlib name 'gst_structure_fixate';
 

packages/gstreamer/src/gsttypefind.inc

@@ -57,9 +57,9 @@
 
 (* Const before type ignored *)
 (* Const before type ignored *)
-  procedure gst_type_find_suggest_simple(find:PGstTypeFind; probability:Tguint; media_type:Pchar; fieldname:Pchar; args:array of const);cdecl;external gstreamerlib name 'gst_type_find_suggest_simple';
+  procedure gst_type_find_suggest_simple(find:PGstTypeFind; probability:Tguint; media_type:PAnsiChar; fieldname:PAnsiChar; args:array of const);cdecl;external gstreamerlib name 'gst_type_find_suggest_simple';
 
-  procedure gst_type_find_suggest_simple(find:PGstTypeFind; probability:Tguint; media_type:Pchar; fieldname:Pchar);cdecl;external gstreamerlib name 'gst_type_find_suggest_simple';
+  procedure gst_type_find_suggest_simple(find:PGstTypeFind; probability:Tguint; media_type:PAnsiChar; fieldname:PAnsiChar);cdecl;external gstreamerlib name 'gst_type_find_suggest_simple';
 
   function gst_type_find_get_length(find:PGstTypeFind):Tguint64;cdecl;external gstreamerlib name 'gst_type_find_get_length';