[M3commit] CVS Update: cm3

[Jay K]

PROCEDURE FloatI (READONLY iI: Int;  p: Precision;  VAR f: Float): BOOLEAN =

 
   VAR i: INTEGER;

   BEGIN
   BEGIN

 
     IF NOT TInt.ToInt (iI, i) THEN RETURN FALSE; END;

     f.pre      := p;
  





PROCEDURE FloatI (READONLY iI: Int;  p: Precision;  VAR f: Float): BOOLEAN =

 
   VAR i: INTEGER;

   BEGIN
   BEGIN

 
     IF NOT TInt.ToInt (iI, i) THEN RETURN FALSE; END;

     f.pre      := p;
  

Shouldn't the code keep the data in Target.Int instead of converting to host integer?

 

 - Jay
 
> Date: Wed, 10 Feb 2010 16:35:23 +0000
> To: m3commit at elegosoft.com
> From: hosking at elego.de
> Subject: [M3commit] CVS Update: cm3
> 
> CVSROOT: /usr/cvs
> Changes by: hosking at birch. 10/02/10 16:35:23
> 
> Modified files:
> cm3/m3-sys/m3middle/src/: TFloat.i3 TFloat.m3 
> 
> Log message:
> Revert to including the overflow checks here. More changes coming.
> 
 		 	   		  
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://m3lists.elegosoft.com/pipermail/m3commit/attachments/20100210/e5ec5e07/attachment-0002.html>