<html>
<head>
<style>
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Verdana
}
</style>
</head>
<body class='hmmessage'>
@M3paranoidgc always succeeds. I see, reading the code, it only does reads. Nevertheless.<BR>
<BR>
Simply programs that just allocate memory forever also succeed.<BR>
Such as this:<BR>
<BR>
<A href="mailto:jay@amd64a:/dev2/cm3/t$">jay@amd64a:/dev2/cm3/t$</A> cat src/t.m3<BR>MODULE t EXPORTS Main;<BR>
TYPE T1 = RECORD c : ARRAY [0..10000000] OF INTEGER; END;<BR>TYPE T2 = RECORD c : ARRAY [0..4095] OF INTEGER; END;<BR>
<BR>
VAR a: REFANY;<BR>
<BR>
PROCEDURE F1()=<BR>VAR b: REFANY;<BR>
BEGIN<BR> WHILE TRUE DO<BR> b := NEW(REF T2);<BR> a := NEW(REF T1);<BR> END;<BR>END F1;<BR>
<BR>
BEGIN<BR> F1();<BR>END t.<BR>
<BR>
Darn.<BR>
<BR>
- Jay<BR><BR>
<HR id=stopSpelling>
<BR>
From: hosking@cs.purdue.edu<BR>To: jay.krell@cornell.edu<BR>Date: Sun, 9 Nov 2008 18:02:41 +0000<BR>CC: m3devel@elegosoft.com<BR>Subject: Re: [M3devel] AMD64_LINUX gc/stubgen<BR><BR><BR>
<DIV>Clearly a problem with GC. I'm guessing you have something wrong (pointer alignment?) in the configuration. I suspect if you run with @M3paranoidgc you'll trip over the problem.</DIV>
<DIV><SPAN class=EC_Apple-style-span style="WORD-SPACING: 0px; FONT: 12px Helvetica; TEXT-TRANSFORM: none; COLOR: rgb(0,0,0); TEXT-INDENT: 0px; WHITE-SPACE: normal; LETTER-SPACING: normal; BORDER-COLLAPSE: separate">
<DIV style="WORD-WRAP: break-word"><SPAN class=EC_Apple-style-span style="WORD-SPACING: 0px; FONT: 12px Helvetica; TEXT-TRANSFORM: none; COLOR: rgb(0,0,0); TEXT-INDENT: 0px; WHITE-SPACE: normal; LETTER-SPACING: normal; BORDER-COLLAPSE: separate"><SPAN class=EC_Apple-style-span style="WORD-SPACING: 0px; FONT: 12px Helvetica; TEXT-TRANSFORM: none; COLOR: rgb(0,0,0); TEXT-INDENT: 0px; WHITE-SPACE: normal; LETTER-SPACING: normal; BORDER-COLLAPSE: separate"><SPAN class=EC_Apple-style-span style="WORD-SPACING: 0px; FONT: 12px Helvetica; TEXT-TRANSFORM: none; COLOR: rgb(0,0,0); TEXT-INDENT: 0px; WHITE-SPACE: normal; LETTER-SPACING: normal; BORDER-COLLAPSE: separate"><SPAN class=EC_Apple-style-span style="WORD-SPACING: 0px; FONT: 12px Helvetica; TEXT-TRANSFORM: none; COLOR: rgb(0,0,0); TEXT-INDENT: 0px; WHITE-SPACE: normal; LETTER-SPACING: normal; BORDER-COLLAPSE: separate"><SPAN class=EC_Apple-style-span style="WORD-SPACING: 0px; FONT: 12px Helvetica; TEXT-TRANSFORM: none; COLOR: rgb(0,0,0); TEXT-INDENT: 0px; WHITE-SPACE: normal; LETTER-SPACING: normal; BORDER-COLLAPSE: separate"><SPAN class=EC_Apple-style-span style="WORD-SPACING: 0px; FONT: 12px Helvetica; TEXT-TRANSFORM: none; COLOR: rgb(0,0,0); TEXT-INDENT: 0px; WHITE-SPACE: normal; LETTER-SPACING: normal; BORDER-COLLAPSE: separate"><SPAN class=EC_Apple-style-span style="WORD-SPACING: 0px; FONT: 12px Helvetica; TEXT-TRANSFORM: none; COLOR: rgb(0,0,0); TEXT-INDENT: 0px; WHITE-SPACE: normal; LETTER-SPACING: normal; BORDER-COLLAPSE: separate"><SPAN class=EC_Apple-style-span style="WORD-SPACING: 0px; FONT: 12px Helvetica; TEXT-TRANSFORM: none; COLOR: rgb(0,0,0); TEXT-INDENT: 0px; WHITE-SPACE: normal; LETTER-SPACING: normal; BORDER-COLLAPSE: separate">
<DIV><BR></DIV></SPAN></SPAN></SPAN></SPAN></SPAN></SPAN></SPAN></SPAN></DIV></SPAN></DIV>
<DIV>
<DIV>On 9 Nov 2008, at 14:09, Jay wrote:</DIV><BR class=EC_Apple-interchange-newline>
<BLOCKQUOTE><SPAN class=EC_Apple-style-span style="WORD-SPACING: 0px; FONT: 12px Helvetica; TEXT-TRANSFORM: none; COLOR: rgb(0,0,0); TEXT-INDENT: 0px; WHITE-SPACE: normal; LETTER-SPACING: normal; BORDER-COLLAPSE: separate">
<DIV class=EC_hmmessage style="FONT-SIZE: 10pt; FONT-FAMILY: Verdana">Tony, any tips on this one? :)<BR> <BR><A href="mailto:jay@amd64a:~/dev2/cm3/m3-ui/zeus/AMD64_LINUX$">jay@amd64a:~/dev2/cm3/m3-ui/zeus/AMD64_LINUX$</A><SPAN class=EC_Apple-converted-space> </SPAN>/cm3/bin/stubgen -v1 -sno RemoteView.T -T.M3IMPTAB @M3nogc<BR> <BR>always succeeds.<BR> <BR><A href="mailto:jay@amd64a:~/dev2/cm3/m3-ui/zeus/AMD64_LINUX$">jay@amd64a:~/dev2/cm3/m3-ui/zeus/AMD64_LINUX$</A><SPAN class=EC_Apple-converted-space> </SPAN>/cm3/bin/stubgen -v1 -sno RemoteView.T -T.M3IMPTAB<BR> <BR>usually fails:<BR><BR>***<BR>*** runtime error:<BR>*** NEW() was unable to allocate more memory.<BR>*** file "../src/runtime/common/RTAllocator.m3", line 285<BR>***<BR><BR>Formatter.m3:<BR> <BR>CONST ChunkSize = 128; (* Must be a power of 2 *)<BR><BR>PROCEDURE New(wr: Wr.T; width: CARDINAL:= 75): T RAISES {} =<BR> BEGIN<BR> WITH t = NEW(T) DO<BR> t.wr := wr;<BR> t.width := width;<BR> t.indent := 0;<BR> <SPAN class=EC_Apple-converted-space> </SPAN><BR> t.numChars := 0;<BR> <SPAN class=EC_Apple-converted-space> </SPAN><BR> (* t.stream := RefStream{NIL, ..}; *)<BR> <SPAN class=EC_Apple-converted-space> </SPAN><BR> t.buffer := NEW (ExprBuf, 4 * ChunkSize); << this is the line that fails<BR> <BR>Lowering chunk size to 64 seemed to make it succeed more often, but not always.<BR>I think I'll go back to MIPS64_OPENBSD..probably easier to track that problem down.<BR> <BR> - Jay<BR></DIV></SPAN></BLOCKQUOTE></DIV><BR></body>
</html>