From 878e9349e83c30a03c8a97f0ca64b1f1e9bcd927 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Sat, 14 Jan 2023 14:20:34 +0100
Subject: [PATCH] * PChar -> PAnsiChar

---
 packages/libffi/examples/simple.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/libffi/examples/simple.pp b/packages/libffi/examples/simple.pp
index 8f68a4536a..c954c799f9 100644
--- a/packages/libffi/examples/simple.pp
+++ b/packages/libffi/examples/simple.pp
@@ -3,7 +3,7 @@ program simple;
 uses
   ffi;
 
-function WritePChar(s: PChar): LongInt;{$ifdef windows}stdcall;{$else}cdecl;{$endif}
+function WritePChar(s: PAnsiChar): LongInt;{$ifdef windows}stdcall;{$else}cdecl;{$endif}
 begin
   Writeln(s);
   WritePChar := StrLen(s);
@@ -13,7 +13,7 @@ var
   cif: ffi_cif;
   args: array[0..0] of pffi_type;
   values: array[0..0] of Pointer;
-  s: PChar;
+  s: PAnsiChar;
   rc: ffi_arg;
 begin
   args[0] := @ffi_type_pointer;