<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 12pt;
font-family:Calibri
}
--></style></head>
<body class='hmmessage'><div dir='ltr'><div><font face="Calibri, sans-serif">Building obliqrt I get:</font></div><div><font face="Calibri, sans-serif"><br></font></div><div><font face="Calibri, sans-serif"><br></font></div><div><font face="Calibri, sans-serif">***</font></div><div><font face="Calibri, sans-serif">*** runtime error:</font></div><div><font face="Calibri, sans-serif">*** <*ASSERT*> failed.</font></div><div><font face="Calibri, sans-serif">*** file "../src/M3C.m3", line 1768</font></div><div><font face="Calibri, sans-serif">***</font></div><div><font face="Calibri, sans-serif"><br></font></div><div><font face="Calibri, sans-serif"><br></font></div><div><font face="Calibri, sans-serif"><br></font></div><div><font face="Calibri, sans-serif">PROCEDURE GetStructSizes_Declare(self: GetStructSizes_t; type: Type; byte_size: ByteSize): M3CG.Var =</font></div><div><font face="Calibri, sans-serif">BEGIN</font></div><div><font face="Calibri, sans-serif"> IF type = Type.Struct THEN</font></div><div><font face="Calibri, sans-serif"> <* ASSERT byte_size > 0 *></font></div><div><font face="Calibri, sans-serif"> self.sizes[self.count] := byte_size;</font></div><div><font face="Calibri, sans-serif"> INC(self.count);</font></div><div><font face="Calibri, sans-serif"> END;</font></div><div><font face="Calibri, sans-serif"> RETURN NIL;</font></div><div><font face="Calibri, sans-serif">END GetStructSizes_Declare;</font></div><div><font face="Calibri, sans-serif"><br></font></div><div><font face="Calibri, sans-serif"><br></font></div><div><font face="Calibri, sans-serif">due to presumably:</font></div><div><font face="Calibri, sans-serif"><br></font></div><div><font face="Calibri, sans-serif"><br></font></div><div><font face="Calibri, sans-serif">PROCEDURE ApplyThreadClosure (self: ObliqThreadClosure): REFANY =</font></div><div><font face="Calibri, sans-serif"> VAR noArgs: ARRAY [0 .. -1] OF ObValue.Val;</font></div><div><font face="Calibri, sans-serif"><br></font></div><div><font face="Calibri, sans-serif"><br></font></div><div><font face="Calibri, sans-serif">...</font></div><div><font face="Calibri, sans-serif"><br></font></div><div><font face="Calibri, sans-serif">PROCEDURE HandleWork (self: ObliqWork) =</font></div><div><font face="Calibri, sans-serif"> VAR noArgs: ARRAY [0 .. -1] OF ObValue.Val;</font></div><div><font face="Calibri, sans-serif"><br></font></div><div><font face="Calibri, sans-serif">..</font></div><div><font face="Calibri, sans-serif">PROCEDURE EvalThread ( self : PackageThread;</font></div><div><font face="Calibri, sans-serif">...</font></div><div><font face="Calibri, sans-serif">noArgs : ARRAY [0 .. -1] OF ObValue.Val;</font></div><div><font face="Calibri, sans-serif"><br></font></div><div><font face="Calibri, sans-serif"><br></font></div><div><font face="Calibri, sans-serif">What is the meaning of this?</font></div><div><font face="Calibri, sans-serif"><br></font></div><div><font face="Calibri, sans-serif"><br></font></div><div><font face="Calibri, sans-serif"> - Jay</font></div><br><br> </div></body>
</html>