Skip to content

Commit a834721

Browse files
fix: range check error when starting SSH tunnel
TProcess.ExitStatus is a signed Integer, so don't store it in a LongWord.
1 parent c976d17 commit a834721

1 file changed

Lines changed: 1 addition & 1 deletion

File tree

‎source/dbconnection.pas‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1079,7 +1079,7 @@ procedure TSecureShellCmd.Connect;
10791079
SshCmd, SshCmdDisplay, DialogTitle, TargetHost: String;
10801080
OutText, ErrorText, AllPipesText, UserInput: String;
10811081
rx: TRegExpr;
1082-
ExitCode: LongWord;
1082+
ExitCode: Integer;
10831083
PortChecks, i: Integer;
10841084
CheckIntervalMs: Integer;
10851085
TimeStartedMs, WaitedMs, TimeOutMs: Int64;

0 commit comments

Comments
 (0)