This commit is contained in:
norayr 2017-04-14 19:30:13 +04:00
parent 340de3824b
commit 4c73f414b0
3 changed files with 155 additions and 61 deletions

View file

@ -92,5 +92,11 @@ BEGIN
END Connect;
PROCEDURE Disconnect*(VAR fd: Socket);
VAR
i : INTEGER;
BEGIN
i := Platform.Close(fd);
END Disconnect;
END Internet.