<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Verdana
}
--></style>
</head>
<body class='hmmessage'>
<TABLE border=0 cellSpacing=0 summary="Diff output" cellPadding=0 width="100%">
<TBODY>
<TR>
<TD class="diff diff-changed">PROCEDURE FloatI (READONLY iI: Int; p: Precision; VAR f: Float): BOOLEAN =</TD></TR>
<TR>
<TD class="diff diff-changed-missing"> </TD>
<TD class="diff diff-changed"> VAR i: INTEGER;</TD></TR>
<TR>
<TD class="diff diff-same"> BEGIN</TD>
<TD class="diff diff-same"> BEGIN</TD></TR>
<TR>
<TD class="diff diff-empty"> </TD>
<TD class="diff diff-added"> IF NOT TInt.ToInt (iI, i) THEN RETURN FALSE; END;</TD></TR>
<TR>
<TD class="diff diff-same"> f.pre := p;</TD>
<TD class="diff diff-same"> </TD></TR></TBODY></TABLE><BR>
<TABLE border=0 cellSpacing=0 summary="Diff output" cellPadding=0 width="100%">
<TBODY>
<TR>
<TD class="diff diff-changed">PROCEDURE FloatI (READONLY iI: Int; p: Precision; VAR f: Float): BOOLEAN =</TD></TR>
<TR>
<TD class="diff diff-changed-missing"> </TD>
<TD class="diff diff-changed"> VAR i: INTEGER;</TD></TR>
<TR>
<TD class="diff diff-same"> BEGIN</TD>
<TD class="diff diff-same"> BEGIN</TD></TR>
<TR>
<TD class="diff diff-empty"> </TD>
<TD class="diff diff-added"> IF NOT TInt.ToInt (iI, i) THEN RETURN FALSE; END;</TD></TR>
<TR>
<TD class="diff diff-same"> f.pre := p;</TD>
<TD class="diff diff-same"> </TD></TR></TBODY></TABLE><BR>
Shouldn't the code keep the data in Target.Int instead of converting to host integer?<BR>
<BR>
- Jay<BR> <BR>> Date: Wed, 10 Feb 2010 16:35:23 +0000<BR>> To: m3commit@elegosoft.com<BR>> From: hosking@elego.de<BR>> Subject: [M3commit] CVS Update: cm3<BR>> <BR>> CVSROOT: /usr/cvs<BR>> Changes by: hosking@birch. 10/02/10 16:35:23<BR>> <BR>> Modified files:<BR>> cm3/m3-sys/m3middle/src/: TFloat.i3 TFloat.m3 <BR>> <BR>> Log message:<BR>> Revert to including the overflow checks here. More changes coming.<BR>> <BR> </body>
</html>