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

* PChar -> PAnsichar

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-01-13 22:32:13 +01:00
parent c7ec598bf9
commit 8cb2c3f606
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/sndfile/examples/sfplay.pp
View File

@ -45,7 +45,7 @@ var
ScaleData: Boolean;
begin
Writeln(SPlaying,FileName);
SoundFile:=sf_open(pChar(FileName), SFM_READ, @Info);
SoundFile:=sf_open(PAnsiChar(FileName), SFM_READ, @Info);
If (SoundFile=Nil) then
begin
sf_perror(Nil);

2
packages/sndfile/src/sndfile.pp
View File

@ -410,7 +410,7 @@ type
** to sf_perror () or sf_error_str ().
** All calls to sf_open() should be matched with a call to sf_close().
}
function sf_open (path : pChar; mode : ctypes.cint; sfinfo : PSF_INFO) : PSNDFILE; cdecl;
function sf_open (path : PAnsiChar; mode : ctypes.cint; sfinfo : PSF_INFO) : PSNDFILE; cdecl;
external sndfilelib name 'sf_open';
{