<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'>
I see this fail with the 4.5.x compiler also. FreeBSD/x86. Single proc VM. FreeBSD 9.0 I think. Remoted to Darwin.<br>I'll try to look at it more..<br><br> - Jay<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 11:17: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">
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="ecxSkyDrivePlaceholder"></div><hr id="ecxstopSpelling">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></div> </div></body>
</html>