<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>
Sorry, that isn't the right fix.<br><br>The problem can be better understood like so:<br><br><br>  DepthArray = REF ARRAY OF RECORD n := 0 END;<br><br><br>      dcount := NEW(DepthArray, 10);<br>      FOR i := FIRST(dcount^) TO LAST(dcount^) DO<br>        <* ASSERT dcount[i].n = 0 *><br>      END;<br><br><br>the assertion fails sometimes. I'll have to keep digging.<br><br><br> - Jay<br><br><br><div><div id="SkyDrivePlaceholder"></div><hr id="stopSpelling">From: jay.krell@cornell.edu<br>To: jkrell@elego.de; m3commit@elegosoft.com<br>Date: Mon, 6 Aug 2012 10:58:50 +0000<br>Subject: Re: [M3commit] CVS Update: cm3<br><br>

<style><!--
.ExternalClass .ecxhmmessage P
{padding:0px;}
.ExternalClass body.ecxhmmessage
{font-size:10pt;font-family:Tahoma;}

--></style>
<div dir="ltr">
Index: VBTRep.m3<br>===================================================================<br>RCS file: /usr/cvs/cm3/m3-ui/ui/src/vbt/VBTRep.m3,v<br>retrieving revision 1.2<br>diff -u -w -r1.2 VBTRep.m3<br>--- VBTRep.m3    17 Mar 2008 03:46:14 -0000    1.2<br>+++ VBTRep.m3    6 Aug 2012 10:56:01 -0000<br>@@ -641,11 +641,13 @@<br>       (* All d: dcount[d].n = # VBTs in list with depth at most d. *)<br>       WITH v = NEW(REF ARRAY OF VBT.T, n) DO<br>         FOR i := 0 TO n - 1 DO<br>+          IF list[i].depth > 0 THEN<br>           v[dcount[list[i].depth - 1].n] := list[i].v;<br>           INC(dcount[list[i].depth - 1].n);<br>           (* All d: dcount[d-1].n = # VBTs in list with depth < d,<br>              or with depth = d that have been copied into v. *)<br>         END;<br>+        END;<br>         (* v has all the VBTs in the list and is sorted by depth *)<br>         FOR i := 0 TO n - 1 DO<br>           IF Prop.Marked IN v[i].props THEN<br><br><br><br><br><br><div><div id="ecxSkyDrivePlaceholder"></div>> Date: Mon, 6 Aug 2012 12:58:03 +0000<br>> To: m3commit@elegosoft.com<br>> From: jkrell@elego.de<br>> Subject: [M3commit] CVS Update: cm3<br>> <br>> CVSROOT: /usr/cvs<br>> Changes by:      jkrell@birch.   12/08/06 12:58:03<br>> <br>> Modified files:<br>>    cm3/m3-ui/ui/src/vbt/: VBTRep.m3 <br>> <br>> Log message:<br>>       avoid subscript out of range at line 644<br>>  test case is starting up most gui apps on FreeBSD/x86 with gcc 4.7<br>>        backend, remoting X to MacOSX 10.5; the distinguishing factor<br>>     is probably the relative lack of windows or something funny<br>>       with window layering on Mac -- i.e. depth = 0, resulting array<br>>    index is -1 and that is invalid<br>>   <br>>  Trestle experts, please review and think over it more.<br>> <br></div>                                       </div></div>                                        </div></body>
</html>