[Oberon] On Close in ORG.Mod.txt

[Jörg]

Srinivas

No, the code is correct!
Strings are 0X terminated. The statement    i := (i+4) DIV 4 * 4   provides
room for this 0X as well.

br
Jörg


-----Original Message-----
From: Oberon [mailto:oberon-bounces at lists.inf.ethz.ch] On Behalf Of Srinivas
Nayak
Sent: Montag, 11. Juli 2016 09:17
To: ETH Oberon and related systems <oberon at lists.inf.ethz.ch>
Subject: [Oberon] On Close in ORG.Mod.txt

Dear All,

In ORG.Mod.txt we see

   PROCEDURE Close*(VAR modid: ORS.Ident; key, nofent: LONGINT);

...
         i := (i+4) DIV 4 * 4; INC(comsize, i+4)

...


Is this correct?

Should it be
         i := (i+3) DIV 4 * 4; INC(comsize, i+4)
  ?



With thanks and best regards,

Yours sincerely,
Srinivas Nayak

Home: http://www.mathmeth.com/sn/
Blog: http://srinivas-nayak.blogspot.in/
--
Oberon at lists.inf.ethz.ch mailing list for ETH Oberon and related systems
https://lists.inf.ethz.ch/mailman/listinfo/oberon