[m-dev.] trivial diff: GCC back-end: typo bug fix

[Fergus Henderson]

Estimated hours taken: 0.25

compiler/mlds_to_gcc.m:
	Fix a typo (it was generating less-than-or-equal
	when it should have been generating less-than).

Workspace: /home/hg/fjh/gcc-cvs/gcc/mercury
Index: compiler/mlds_to_gcc.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/mlds_to_gcc.m,v
retrieving revision 1.18
diff -u -d -r1.18 mlds_to_gcc.m
--- compiler/mlds_to_gcc.m	2001/01/17 02:43:10	1.18
+++ compiler/mlds_to_gcc.m	2001/01/18 04:39:53
@@ -3168,7 +3177,7 @@
 convert_binary_op(str_gt, _, _) :- unexpected(this_file, "str_gt").
 convert_binary_op(str_le, _, _) :- unexpected(this_file, "str_le").
 convert_binary_op(str_ge, _, _) :- unexpected(this_file, "str_ge").
-convert_binary_op((<),		gcc__le_expr,	     gcc__boolean_type_node).
+convert_binary_op((<),		gcc__lt_expr,	     gcc__boolean_type_node).
 convert_binary_op((>),		gcc__gt_expr,	     gcc__boolean_type_node).
 convert_binary_op((<=),		gcc__le_expr,	     gcc__boolean_type_node).
 convert_binary_op((>=),		gcc__ge_expr,	     gcc__boolean_type_node).

-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "I have always known that the pursuit
                                    |  of excellence is a lethal habit"
WWW: <http://www.cs.mu.oz.au/~fjh>  |     -- the last words of T. S. Garp.
--------------------------------------------------------------------------
mercury-developers mailing list
Post messages to:       mercury-developers at cs.mu.oz.au
Administrative Queries: owner-mercury-developers at cs.mu.oz.au
Subscriptions:          mercury-developers-request at cs.mu.oz.au
--------------------------------------------------------------------------