From 0063418fc074acfcd689a323db688481386c7427 Mon Sep 17 00:00:00 2001
From: norayr <norayr@arnet.am>
Date: Wed, 17 May 2017 00:46:19 +0400
Subject: [PATCH] using zeroStr() before giving string to Receive(). -- noch

---
 IRC.Mod | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/IRC.Mod b/IRC.Mod
index 2911215..80026ba 100644
--- a/IRC.Mod
+++ b/IRC.Mod
@@ -40,6 +40,18 @@ VAR
 
 (* string operations *)
 
+PROCEDURE zeroStr(VAR str: ARRAY OF CHAR);
+VAR
+  i, j : LONGINT;
+BEGIN
+  i := LEN(str);
+  j := 0;
+  REPEAT
+    str[j] := 0X;
+    INC(j)
+  UNTIL j = i;
+END zeroStr;
+
 PROCEDURE findChar(ch: CHAR; VAR line: ARRAY OF CHAR; VAR b: BOOLEAN; VAR pos: INTEGER);
 VAR
   i : INTEGER;
@@ -215,6 +227,8 @@ PROCEDURE Receive*(VAR inst: instance; VAR str: ARRAY OF CHAR): BOOLEAN;
 VAR
   b: BOOLEAN;
 BEGIN
+  (*COPY ("", str);*)
+  zeroStr(str);
   b := Internet.Read(inst.connection, str);
   IF b THEN
     Out.String("received:"); Out.Ln;