paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-06 02:50:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

* PChar -> PAnsiChar

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-01-14 14:20:34 +01:00
parent a0dbd61f08
commit 878e9349e8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/libffi/examples/simple.pp
View File

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