OpenEuphoria

Re: Running safe.e ???

• Posted by Pete Lomax <petelomax at blueyonder.co.uk> Sep 21, 2003
• 456 views

On Sun, 21 Sep 2003 23:17:08 +1000, Derek Parnell
<ddparnell at bigpond.com> wrote:

>So it seems that I'm running the official safe.e and it still works. =
Sorry to be difficult.

I saved your safe.e and ran against it, still failing.

-- code:
with trace
include safe.e
trace(1)
atom a a =3D allocate_string("")

Here is the debug dump at the point of failure:

 safe.e  F1=3Dmain  F2=3Dtrace	Enter  down-arrow  ?  q  Q	!
  157:			if block[3] >=3D 1 then
  158:			-- an allocated block with a border area
  159:			block_upper =3D block_start + block[2]
  160:			if (start >=3D block_start - BORDER_SPACE and
  161:				start < block_start) or
  162:			   (start >=3D block_upper and
  163:				start < block_upper + BORDER_SPACE) then
  164:				return BAD
  165:
  166:			elsif (upper > block_start - BORDER_SPACE and
  167:				   upper <=3D block_start) or
  168:				  (upper > block_upper and
  169:				  upper < block_upper + BORDER_SPACE) then
  170:	--this is dereks posted copy of safe.e
  171=3D=3D>			return BAD
  172:
  173:			elsif start < block_start - BORDER_SPACE and
  174:				upper > block_upper + BORDER_SPACE then
  175:				return BAD
variable name? BORDER_SPACE
upper=3D4509452		block_start=3D4509452 BORDER_SPACE=3D40(
block_upper=3D4509453
block=3D{4509452,1,2}
safe_address_list=3D{{4509452,1,2},{4462352,4,1}}

(I put that comment in at line 170 to make doubly sure, of course).
If you trace it, what do you get at line 166?

Pete