trivial diff: remove clauses for unchecked_shift_*

Simon Taylor stayl at cs.mu.OZ.AU
Tue Mar 30 15:31:40 AEST 1999


Estimated hours taken: 0.1

library/int.m:
	Remove the clauses for `int:unchecked_left_shift/2' and
	`int:unchecked_right_shift/2' - the changes that make them
	builtins have now been installed everywhere.

Index: int.m
===================================================================
RCS file: /home/staff/zs/imp/mercury/library/int.m,v
retrieving revision 1.55
diff -u -u -r1.55 int.m
--- int.m	1999/03/22 01:36:45	1.55
+++ int.m	1999/03/30 01:59:07
@@ -276,13 +276,6 @@
 
 X mod Y = X - (X div Y) * Y.
 
-	% XXX This definition is here for bootstrapping.
-	% After the corresponding change to the compiler is installed,
-	% the compiler will ignore this clause, and will internally replace
-	% the body of unchecked_left_shift with a `recursive' call.
-	% See make_hlds:add_builtin.
-unchecked_left_shift(X, Y) = X << Y.
-
 X << Y = Z :-
 	int__bits_per_int(IntBits),
 	( Y >= 0 ->
@@ -298,10 +291,6 @@
 			Z = unchecked_right_shift(X, -Y)
 		)
 	).
-
-	% XXX This definition is here for bootstrapping.
-	% See the comment for unchecked_left_shift.
-unchecked_right_shift(X, Y) = X >> Y.
 
 	% Note: this assumes two's complement arithmetic.
 	% tests/hard_coded/shift_test.m will fail if this is not the case.



More information about the developers mailing list