Browse Source

* PChar -> PAnsichar

Michaël Van Canneyt 2 years ago
parent
commit
8cb2c3f606
2 changed files with 2 additions and 2 deletions
  1. 1 1
      packages/sndfile/examples/sfplay.pp
  2. 1 1
      packages/sndfile/src/sndfile.pp

+ 1 - 1
packages/sndfile/examples/sfplay.pp

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

+ 1 - 1
packages/sndfile/src/sndfile.pp

@@ -410,7 +410,7 @@ type
 ** to sf_perror () or sf_error_str ().
 ** to sf_perror () or sf_error_str ().
 ** All calls to sf_open() should be matched with a call to sf_close().
 ** 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';
   external sndfilelib  name 'sf_open';
 
 
 {
 {