[m-dev.] trivial diff: update tests/general/arithmetic.*
Mark Anthony BROWN
dougl at cs.mu.OZ.AU
Mon Jan 17 16:18:25 AEDT 2000
Estimated hours taken: 0.1
tests/general/arithmetic.m:
tests/general/arithmetic.exp:
Use `xor` instead of '^' operator.
Index: general/arithmetic.exp
===================================================================
RCS file: /home/mercury1/repository/tests/general/arithmetic.exp,v
retrieving revision 1.1
diff -u -r1.1 arithmetic.exp
--- general/arithmetic.exp 1996/11/04 07:07:56 1.1
+++ general/arithmetic.exp 2000/01/17 05:10:50
@@ -9,5 +9,5 @@
X >> Y: 0
X /\ Y: 0
X \/ Y: 7
-X ^ Y: 7
+X `xor` Y: 7
\ X: -4
Index: general/arithmetic.m
===================================================================
RCS file: /home/mercury1/repository/tests/general/arithmetic.m,v
retrieving revision 1.2
diff -u -r1.2 arithmetic.m
--- general/arithmetic.m 1995/08/17 05:32:24 1.2
+++ general/arithmetic.m 2000/01/17 05:09:02
@@ -27,7 +27,7 @@
RightShift is X >> Y,
BitAnd is X /\ Y,
BitOr is X \/ Y,
- BitXor is X ^ Y,
+ BitXor is X `xor` Y,
BitNeg is \ X
},
write_message("X: ", X),
@@ -41,7 +41,7 @@
write_message("X >> Y: ", RightShift),
write_message("X /\\ Y: ", BitAnd),
write_message("X \\/ Y: ", BitOr),
- write_message("X ^ Y: ", BitXor),
+ write_message("X `xor` Y: ", BitXor),
write_message("\\ X: ", BitNeg).
:- pred write_message(string, int, io__state, io__state).
--
Mark Brown, PhD student )O+ | "Another of Fortran's breakthroughs
(m.brown at cs.mu.oz.au) | was the GOTO statement, which was...
Dept. of Computer Science and Software | uniquely simple and understandable"
Engineering, University of Melbourne | -- IEEE, 1994
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------
More information about the developers
mailing list