Prepare for using `^' for record syntax rather than xor.

Estimated hours taken: 0.1

Prepare for using `^' for record syntax rather than xor.

library/int.m:
	Add function `int__xor/2' as a replacement for `'^'/2'.

compiler/code_util.m:
	Recognise `int__xor/2' as a builtin.
This commit is contained in:
Simon Taylor
1999-10-26 23:22:21 +00:00
parent 07412220b3
commit f29d74ffe0
2 changed files with 14 additions and 0 deletions

View File

@@ -485,6 +485,8 @@ code_util__translate_builtin_2("int", "builtin_bit_xor", 0, [X, Y, Z],
no, yes(Z - binop((^), var(X), var(Y)))).
code_util__translate_builtin_2("int", "^", 0, [X, Y, Z],
no, yes(Z - binop((^), var(X), var(Y)))).
code_util__translate_builtin_2("int", "xor", 0, [X, Y, Z],
no, yes(Z - binop((^), var(X), var(Y)))).
code_util__translate_builtin_2("int", "builtin_unary_plus", 0, [X, Y],
no, yes(Y - var(X))).
code_util__translate_builtin_2("int", "+", 0, [X, Y],