[m-rev.] diff: fix failing hlc.gc tests

[Ian MacLarty]

Fix failing test cases in hlc grades.

tests/hard_coded/write_reg1.exp3:
tests/hard_coded/write_xml.exp2:
    Conform to recent changes in the way floats are printed.

Index: tests/hard_coded/write_reg1.exp3
===================================================================
RCS file: /home/mercury1/repository/tests/hard_coded/write_reg1.exp3,v
retrieving revision 1.2
diff -u -r1.2 write_reg1.exp3
--- tests/hard_coded/write_reg1.exp3	22 Feb 2007 05:35:31 -0000	1.2
+++ tests/hard_coded/write_reg1.exp3	26 Jul 2010 03:28:24 -0000
@@ -23,8 +23,8 @@
 'a'
 '&'
 3.14159
-1.12832498300000e-21
-2.23954899000000e+23
+1.128324983e-21
+2.23954899e+23
 -65
 4
 univ_cons(["hi! I\'m a univ!"])
Index: tests/hard_coded/write_xml.exp2
===================================================================
RCS file: /home/mercury1/repository/tests/hard_coded/write_xml.exp2,v
retrieving revision 1.4
diff -u -r1.4 write_xml.exp2
--- tests/hard_coded/write_xml.exp2	22 Feb 2007 05:35:31 -0000	1.4
+++ tests/hard_coded/write_xml.exp2	26 Jul 2010 03:28:24 -0000
@@ -25,7 +25,7 @@
 			<Int type="int">123456</Int>
 			<Tuple--2--Tag_-123character-44-32float-125 functor="{}" type="{character, float}" arity="2">
 				<Char type="character">a</Char>
-				<Float type="float">1.23553225220000e-97</Float>
+				<Float type="float">1.2355322522e-97</Float>
 			</Tuple--2--Tag_-123character-44-32float-125>
 		</Tuple--3--Tag_-123string-44-32int-44-32-123character-44-32float-125-125>
 	</a_tuple--1--write_xml-46mytype>
@@ -404,7 +404,7 @@
 						<Int type="int">123456</Int>
 						<Tuple functor="{}" type="{character, float}" arity="2">
 							<Char type="character">a</Char>
-							<Float type="float">1.23553225220000e-97</Float>
+							<Float type="float">1.2355322522e-97</Float>
 						</Tuple>
 					</Tuple>
 				</a_tuple>
--------------------------------------------------------------------------
mercury-reviews mailing list
Post messages to:       mercury-reviews at csse.unimelb.edu.au
Administrative Queries: owner-mercury-reviews at csse.unimelb.edu.au
Subscriptions:          mercury-reviews-request at csse.unimelb.edu.au
--------------------------------------------------------------------------