[M3commit] CVS Update: cm3

[Jay K]

@@ -200,15 +200,15 @@
 
     CASE p OF
     | Precision.Short =>
-        ptr := ADR (x1);
+        ptr := LOOPHOLE(ADR (x1), Ptr);
         SUBARRAY (ptr^, 0, len) := SUBARRAY (buf, 0, len);
         f.fraction := FLOAT (x1, EXTENDED);
     | Precision.Long =>
-        ptr := ADR (x2);
+        ptr := LOOPHOLE(ADR (x2), Ptr);
         SUBARRAY (ptr^, 0, len) := SUBARRAY (buf, 0, len);
         f.fraction := FLOAT (x2, EXTENDED);
     | Precision.Extended =>
-        ptr := ADR (x3);
+        ptr := LOOPHOLE(ADR (x3), Ptr);
         SUBARRAY (ptr^, 0, len) := SUBARRAY (buf, 0, len);
         f.fraction := x3;
     END;


----------------------------------------
> Date: Sat, 26 Jun 2010 15:08:46 +0000
> To: m3commit at elegosoft.com
> From: jkrell at elego.de
> Subject: [M3commit] CVS Update: cm3
>
> CVSROOT: /usr/cvs
> Changes by: jkrell at birch. 10/06/26 15:08:46
>
> Modified files:
> cm3/m3-sys/m3middle/src/: TFloat.m3
>
> Log message:
> LOOPHOLE so it works with -new_adr
>