PBoolean Fix

superflexible · Mar 23, 2020 · 8d43407 · 8d43407
1 parent a840e6e
commit 8d43407
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/tgputtysftp.pas b/tgputtysftp.pas
@@ -17,8 +17,6 @@ interface
 {$endif}
 {$endif}
 
-type PBoolean=^Boolean;
-
 const MinimumLibraryBuildNum=8;
       cDummyClearedErrorCode=-1000; // this error code means there was no real error code
 
@@ -177,7 +175,7 @@ function ls_callback(const names:Pfxp_names;const libctx:PTGLibraryContext):Bool
      Result:=true;
   end;
 
-function getpassword_callback(const prompt:PAnsiChar;const echo:Boolean;const cancel:PBoolean;const libctx:PTGLibraryContext):PAnsiChar; cdecl;
+function getpassword_callback(const prompt:PAnsiChar;const echo:Boolean;const cancel:System.PBoolean;const libctx:PTGLibraryContext):PAnsiChar; cdecl;
 var TGPSFTP:TTGPuttySFTP;
 begin
   Result:=nil;
@@ -297,7 +295,7 @@ procedure raise_exception_callback(const msg:PAnsiChar;const srcfile:PAnsiChar;c
 
 function verify_host_key_callback(const host:PAnsiChar;const port:Integer;const keytype:PAnsiChar;
                                   const keystr:PAnsiChar;const fingerprint:PAnsiChar;
-                                  const verificationstatus:Integer;const storehostkey:PBoolean;
+                                  const verificationstatus:Integer;const storehostkey:System.PBoolean;
                                   const libctx:PTGLibraryContext):Boolean; cdecl;
 var TGPSFTP:TTGPuttySFTP;
 begin