From 340de3824b7e93f32197809c36d6d8bf3ce0e26a Mon Sep 17 00:00:00 2001
From: norayr <norayr@arnet.am>
Date: Fri, 14 Apr 2017 16:41:51 +0400
Subject: [PATCH] aha

---
 Internet.Mod | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/Internet.Mod b/Internet.Mod
index a8988b9..cf089c2 100644
--- a/Internet.Mod
+++ b/Internet.Mod
@@ -9,13 +9,13 @@ TYPE
   Int32 = types.Int32;
   Int64 = types.Int64;
 
-PROCEDURE Write*(fd: Socket; VAR buf: ARRAY OF CHAR): BOOLEAN;
+PROCEDURE Write*(fd: Socket; buf: ARRAY OF CHAR): BOOLEAN;
 VAR
    l: SYSTEM.ADDRESS;
    r: INTEGER;
  len: LONGINT;
 BEGIN
-  l := SYSTEM.ADR(buf);
+  l := SYSTEM.ADR(buf[0]);
   len := Strings.Length(buf)-1;
   r := Platform.Write(fd, l, len);
   IF r = -1 THEN
@@ -33,11 +33,11 @@ VAR
   l, f: LONGINT;
   r: INTEGER;
 BEGIN
-  p := SYSTEM.ADR(buf);
-  l := LEN(buf);
+  p := SYSTEM.ADR(buf[0]);
+  l := LEN(buf)-1;
   f := 0;
   r := Platform.Read(fd, p, l, f);
-  
+  IF r >= 0 THEN RETURN TRUE ELSE RETURN FALSE END
 END Read;
 
 PROCEDURE Connect*(host, port: ARRAY OF CHAR; VAR conn: Socket): BOOLEAN;