<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'>
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="SkyDrivePlaceholder"></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></body>
</html>