PERFORCE change 37638 for review

[Peter Wemm]

http://perforce.freebsd.org/chv.cgi?CH=37638

Change 37638 by peter at peter_daintree on 2003/09/05 19:08:30

	back out

Affected files ...

.. //depot/projects/ezm3/libs/libm3/src/pickle/PickleStubs.m3#3 edit
.. //depot/projects/ezm3/libs/libm3/src/random/IEEE/RandomReal.m3#3 edit

Differences ...

==== //depot/projects/ezm3/libs/libm3/src/pickle/PickleStubs.m3#3 (text+ko) ====

@@ -287,13 +287,11 @@
     writer.wr.putString(LOOPHOLE(i, ARRAY [0..BYTESIZE(LONGREAL)-1] OF CHAR));
   END OutLongreal;
 
-(*
 PROCEDURE InExtended(reader: Pickle.Reader): EXTENDED
     RAISES {Pickle.Error, Rd.Failure, Thread.Alerted} =
   BEGIN
     RETURN LOOPHOLE(InLongreal(reader), EXTENDED);
   END InExtended;
-*)
 
 PROCEDURE OutExtended(writer: Pickle.Writer; i: EXTENDED)
    RAISES {Wr.Failure, Thread.Alerted} =

==== //depot/projects/ezm3/libs/libm3/src/random/IEEE/RandomReal.m3#3 (text+ko) ====

@@ -88,7 +88,7 @@
 
 PROCEDURE Extended (r: Random.T): EXTENDED =
   BEGIN
-    RETURN LOOPHOLE (Extended (r), EXTENDED);
+    RETURN LOOPHOLE (LongReal (r), EXTENDED);
   END Extended;
 
 BEGIN