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

* fix for compilation error when building with buildunit instead of fppkg?

Browse Source 
git-svn-id: trunk@29468 -
This commit is contained in:
marco 2015-01-13 16:27:37 +00:00
parent bf33284b2f
commit bb4adddd2c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
utils/fppkg/lnet/lftp.pp
View File

@ -106,7 +106,7 @@ type
TLFTPTelnetClient = class(TLTelnetClient) TLFTPTelnetClient = class(TLTelnetClient)
protected protected
procedure React(const Operation, Command: Char); override; function React(const Operation, Command: Char):boolean; override;
end; end;
{ TLFTPClient } { TLFTPClient }
@ -368,8 +368,9 @@ end;
{ TLFTPTelnetClient } { TLFTPTelnetClient }
procedure TLFTPTelnetClient.React(const Operation, Command: Char); function TLFTPTelnetClient.React(const Operation, Command: Char):boolean;
begin begin
result:=false;
// don't do a FUCK since they broke Telnet in FTP as per-usual // don't do a FUCK since they broke Telnet in FTP as per-usual
end; end;