CopyOfAdrString does not copy the string contents but does a pointer assignment.
Code: Select all
PROCEDURE CopyOfAdrString (a: CommStreams.Adr): CommStreams.Adr;
VAR b: CommStreams.Adr;
BEGIN
NEW(b, LEN(a)); b := a; <<< "b := a;" needs to be changed to: "b^ := a$"
RETURN b
END CopyOfAdrString;
We are close to that limit.
So instead of creating a new issue I would rather fix it under #81.
- Josef