Remove =x uses from ISLE, and remove support from the DSL compiler. (#4078)
This is a follow-up on #4074: now that we have the simplified syntax, we can remove the old, redundant syntax.
This commit is contained in:
@@ -7,7 +7,7 @@
|
||||
// - src/isa/aarch64/lower.isle
|
||||
|
||||
#![allow(dead_code, unreachable_code, unreachable_patterns)]
|
||||
#![allow(unused_imports, unused_variables, non_snake_case)]
|
||||
#![allow(unused_imports, unused_variables, non_snake_case, unused_mut)]
|
||||
#![allow(irrefutable_let_patterns)]
|
||||
|
||||
use super::*; // Pulls in all external types.
|
||||
@@ -3105,7 +3105,7 @@ pub fn constructor_imm<C: Context>(ctx: &mut C, arg0: Type, arg1: u64) -> Option
|
||||
let pattern0_0 = arg0;
|
||||
if let Some(pattern1_0) = C::integral_ty(ctx, pattern0_0) {
|
||||
let pattern2_0 = arg1;
|
||||
let closure3 = || {
|
||||
let mut closure3 = || {
|
||||
let expr0_0: Type = I64;
|
||||
return Some(expr0_0);
|
||||
};
|
||||
@@ -3332,7 +3332,7 @@ pub fn constructor_alu_rs_imm_logic_commutative<C: Context>(
|
||||
imm: pattern5_1,
|
||||
} => {
|
||||
if let &Opcode::Iconst = pattern5_0 {
|
||||
let closure7 = || {
|
||||
let mut closure7 = || {
|
||||
return Some(pattern1_0);
|
||||
};
|
||||
if let Some(pattern7_0) = closure7() {
|
||||
@@ -3364,7 +3364,7 @@ pub fn constructor_alu_rs_imm_logic_commutative<C: Context>(
|
||||
} = &pattern9_0
|
||||
{
|
||||
if let &Opcode::Iconst = pattern10_0 {
|
||||
let closure12 = || {
|
||||
let mut closure12 = || {
|
||||
return Some(pattern1_0);
|
||||
};
|
||||
if let Some(pattern12_0) = closure12() {
|
||||
@@ -3403,7 +3403,7 @@ pub fn constructor_alu_rs_imm_logic_commutative<C: Context>(
|
||||
imm: pattern6_1,
|
||||
} => {
|
||||
if let &Opcode::Iconst = pattern6_0 {
|
||||
let closure8 = || {
|
||||
let mut closure8 = || {
|
||||
return Some(pattern1_0);
|
||||
};
|
||||
if let Some(pattern8_0) = closure8() {
|
||||
@@ -3434,7 +3434,7 @@ pub fn constructor_alu_rs_imm_logic_commutative<C: Context>(
|
||||
} = &pattern10_0
|
||||
{
|
||||
if let &Opcode::Iconst = pattern11_0 {
|
||||
let closure13 = || {
|
||||
let mut closure13 = || {
|
||||
return Some(pattern1_0);
|
||||
};
|
||||
if let Some(pattern13_0) = closure13() {
|
||||
@@ -3490,7 +3490,7 @@ pub fn constructor_alu_rs_imm_logic<C: Context>(
|
||||
imm: pattern6_1,
|
||||
} => {
|
||||
if let &Opcode::Iconst = pattern6_0 {
|
||||
let closure8 = || {
|
||||
let mut closure8 = || {
|
||||
return Some(pattern1_0);
|
||||
};
|
||||
if let Some(pattern8_0) = closure8() {
|
||||
@@ -3521,7 +3521,7 @@ pub fn constructor_alu_rs_imm_logic<C: Context>(
|
||||
} = &pattern10_0
|
||||
{
|
||||
if let &Opcode::Iconst = pattern11_0 {
|
||||
let closure13 = || {
|
||||
let mut closure13 = || {
|
||||
return Some(pattern1_0);
|
||||
};
|
||||
if let Some(pattern13_0) = closure13() {
|
||||
@@ -4023,7 +4023,7 @@ pub fn constructor_lower<C: Context>(ctx: &mut C, arg0: Inst) -> Option<InstOutp
|
||||
} = &pattern9_0
|
||||
{
|
||||
if let &Opcode::Iconst = pattern10_0 {
|
||||
let closure12 = || {
|
||||
let mut closure12 = || {
|
||||
let expr0_0: Type = I32;
|
||||
return Some(expr0_0);
|
||||
};
|
||||
@@ -4070,7 +4070,7 @@ pub fn constructor_lower<C: Context>(ctx: &mut C, arg0: Inst) -> Option<InstOutp
|
||||
} = &pattern9_0
|
||||
{
|
||||
if let &Opcode::Iconst = pattern10_0 {
|
||||
let closure12 = || {
|
||||
let mut closure12 = || {
|
||||
let expr0_0: Type = I32;
|
||||
return Some(expr0_0);
|
||||
};
|
||||
@@ -4234,7 +4234,7 @@ pub fn constructor_lower<C: Context>(ctx: &mut C, arg0: Inst) -> Option<InstOutp
|
||||
} = &pattern9_0
|
||||
{
|
||||
if let &Opcode::Iconst = pattern10_0 {
|
||||
let closure12 = || {
|
||||
let mut closure12 = || {
|
||||
let expr0_0: Type = I64;
|
||||
return Some(expr0_0);
|
||||
};
|
||||
@@ -4281,7 +4281,7 @@ pub fn constructor_lower<C: Context>(ctx: &mut C, arg0: Inst) -> Option<InstOutp
|
||||
} = &pattern9_0
|
||||
{
|
||||
if let &Opcode::Iconst = pattern10_0 {
|
||||
let closure12 = || {
|
||||
let mut closure12 = || {
|
||||
let expr0_0: Type = I64;
|
||||
return Some(expr0_0);
|
||||
};
|
||||
@@ -5882,7 +5882,7 @@ pub fn constructor_lower<C: Context>(ctx: &mut C, arg0: Inst) -> Option<InstOutp
|
||||
} = &pattern9_0
|
||||
{
|
||||
if let &Opcode::Iconst = pattern10_0 {
|
||||
let closure12 = || {
|
||||
let mut closure12 = || {
|
||||
return Some(pattern3_0);
|
||||
};
|
||||
if let Some(pattern12_0) = closure12() {
|
||||
@@ -5924,7 +5924,7 @@ pub fn constructor_lower<C: Context>(ctx: &mut C, arg0: Inst) -> Option<InstOutp
|
||||
} = &pattern9_0
|
||||
{
|
||||
if let &Opcode::Iconst = pattern10_0 {
|
||||
let closure12 = || {
|
||||
let mut closure12 = || {
|
||||
return Some(pattern3_0);
|
||||
};
|
||||
if let Some(pattern12_0) = closure12() {
|
||||
@@ -6173,7 +6173,7 @@ pub fn constructor_lower<C: Context>(ctx: &mut C, arg0: Inst) -> Option<InstOutp
|
||||
} = &pattern14_0
|
||||
{
|
||||
if let &Opcode::Iconst = pattern15_0 {
|
||||
let closure17 = || {
|
||||
let mut closure17 = || {
|
||||
return Some(pattern3_0);
|
||||
};
|
||||
if let Some(pattern17_0) = closure17() {
|
||||
@@ -6297,7 +6297,7 @@ pub fn constructor_lower<C: Context>(ctx: &mut C, arg0: Inst) -> Option<InstOutp
|
||||
} = &pattern14_0
|
||||
{
|
||||
if let &Opcode::Iconst = pattern15_0 {
|
||||
let closure17 = || {
|
||||
let mut closure17 = || {
|
||||
return Some(pattern3_0);
|
||||
};
|
||||
if let Some(pattern17_0) = closure17() {
|
||||
@@ -6430,7 +6430,7 @@ pub fn constructor_lower<C: Context>(ctx: &mut C, arg0: Inst) -> Option<InstOutp
|
||||
} = &pattern14_0
|
||||
{
|
||||
if let &Opcode::Iconst = pattern15_0 {
|
||||
let closure17 = || {
|
||||
let mut closure17 = || {
|
||||
return Some(pattern3_0);
|
||||
};
|
||||
if let Some(pattern17_0) = closure17() {
|
||||
@@ -6611,7 +6611,7 @@ pub fn constructor_lower<C: Context>(ctx: &mut C, arg0: Inst) -> Option<InstOutp
|
||||
} = &pattern13_0
|
||||
{
|
||||
if let &Opcode::Iconst = pattern14_0 {
|
||||
let closure16 = || {
|
||||
let mut closure16 = || {
|
||||
return Some(pattern3_0);
|
||||
};
|
||||
if let Some(pattern16_0) = closure16() {
|
||||
@@ -7153,7 +7153,7 @@ pub fn constructor_do_shift<C: Context>(
|
||||
} = &pattern5_0
|
||||
{
|
||||
if let &Opcode::Iconst = pattern6_0 {
|
||||
let closure8 = || {
|
||||
let mut closure8 = || {
|
||||
return Some(pattern1_0);
|
||||
};
|
||||
if let Some(pattern8_0) = closure8() {
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
// - src/isa/s390x/lower.isle
|
||||
|
||||
#![allow(dead_code, unreachable_code, unreachable_patterns)]
|
||||
#![allow(unused_imports, unused_variables, non_snake_case)]
|
||||
#![allow(unused_imports, unused_variables, non_snake_case, unused_mut)]
|
||||
#![allow(irrefutable_let_patterns)]
|
||||
|
||||
use super::*; // Pulls in all external types.
|
||||
@@ -1222,7 +1222,7 @@ pub fn constructor_lower_address<C: Context>(
|
||||
if let Some(()) = C::reloc_distance_near(ctx, pattern6_1) {
|
||||
let pattern8_0 = arg2;
|
||||
let pattern9_0 = C::i64_from_offset(ctx, pattern8_0);
|
||||
let closure10 = || {
|
||||
let mut closure10 = || {
|
||||
return Some(pattern6_2);
|
||||
};
|
||||
if let Some(pattern10_0) = closure10() {
|
||||
@@ -2885,7 +2885,7 @@ pub fn constructor_push_alu_uimm32shifted<C: Context>(
|
||||
let pattern2_0 = arg2;
|
||||
if let Some(pattern3_0) = C::real_reg(ctx, pattern2_0) {
|
||||
let pattern4_0 = arg3;
|
||||
let closure5 = || {
|
||||
let mut closure5 = || {
|
||||
return Some(pattern3_0);
|
||||
};
|
||||
if let Some(pattern5_0) = closure5() {
|
||||
@@ -2955,7 +2955,7 @@ pub fn constructor_push_rxsbg<C: Context>(
|
||||
let pattern2_0 = arg2;
|
||||
if let Some(pattern3_0) = C::real_reg(ctx, pattern2_0) {
|
||||
let pattern4_0 = arg3;
|
||||
let closure5 = || {
|
||||
let mut closure5 = || {
|
||||
return Some(pattern3_0);
|
||||
};
|
||||
if let Some(pattern5_0) = closure5() {
|
||||
@@ -13473,7 +13473,7 @@ pub fn constructor_icmpu_val<C: Context>(
|
||||
{
|
||||
let pattern16_0 =
|
||||
C::i64_from_offset(ctx, pattern8_3);
|
||||
let closure17 = || {
|
||||
let mut closure17 = || {
|
||||
return Some(pattern14_2);
|
||||
};
|
||||
if let Some(pattern17_0) = closure17() {
|
||||
@@ -13561,7 +13561,7 @@ pub fn constructor_icmpu_val<C: Context>(
|
||||
{
|
||||
let pattern18_0 =
|
||||
C::i64_from_offset(ctx, pattern10_3);
|
||||
let closure19 = || {
|
||||
let mut closure19 = || {
|
||||
return Some(pattern16_2);
|
||||
};
|
||||
if let Some(pattern19_0) = closure19() {
|
||||
|
||||
@@ -1222,7 +1222,7 @@
|
||||
(decl extend_to_gpr (Value Type ExtendKind) Gpr)
|
||||
|
||||
;; If the value is already of the requested type, no extending is necessary.
|
||||
(rule (extend_to_gpr (and val (value_type ty)) =ty _kind)
|
||||
(rule (extend_to_gpr (and val (value_type ty)) ty _kind)
|
||||
(put_in_gpr val))
|
||||
|
||||
(rule (extend_to_gpr (and val (value_type from_ty))
|
||||
|
||||
@@ -2111,7 +2111,7 @@
|
||||
;; Rules for `uextend` ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
;; T -> T is a no-op.
|
||||
(rule (lower (has_type ty (uextend src @ (value_type =ty))))
|
||||
(rule (lower (has_type ty (uextend src @ (value_type ty))))
|
||||
src)
|
||||
|
||||
;; I64 -> I128.
|
||||
@@ -2177,7 +2177,7 @@
|
||||
(decl generic_sextend (Value Type Type) InstOutput)
|
||||
|
||||
;; T -> T is a no-op.
|
||||
(rule (generic_sextend src ty =ty)
|
||||
(rule (generic_sextend src ty ty)
|
||||
src)
|
||||
|
||||
;; Produce upper 64 bits sign-extended from lower 64: shift right by
|
||||
@@ -2218,7 +2218,7 @@
|
||||
;; Rules for `ireduce` / `breduce` ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
;; T -> T is always a no-op, even I128 -> I128.
|
||||
(rule (lower (has_type ty (ireduce src @ (value_type =ty))))
|
||||
(rule (lower (has_type ty (ireduce src @ (value_type ty))))
|
||||
src)
|
||||
|
||||
;; T -> I{64,32,16,8}: We can simply pass through the value: values
|
||||
@@ -2229,7 +2229,7 @@
|
||||
|
||||
;; Likewise for breduce.
|
||||
|
||||
(rule (lower (has_type ty (breduce src @ (value_type =ty))))
|
||||
(rule (lower (has_type ty (breduce src @ (value_type ty))))
|
||||
src)
|
||||
|
||||
(rule (lower (has_type (fits_in_64 ty) (breduce src)))
|
||||
@@ -2660,126 +2660,126 @@
|
||||
|
||||
;; Add mem, reg
|
||||
(rule (lower
|
||||
(store =flags
|
||||
(store flags
|
||||
(has_type (ty_32_or_64 ty)
|
||||
(iadd (and
|
||||
(sinkable_load sink)
|
||||
(load flags addr offset))
|
||||
src2))
|
||||
=addr
|
||||
=offset))
|
||||
addr
|
||||
offset))
|
||||
(let ((_ RegMemImm (sink_load sink)))
|
||||
(side_effect
|
||||
(x64_add_mem ty (to_amode flags addr offset) src2))))
|
||||
|
||||
;; Add mem, reg with args swapped
|
||||
(rule (lower
|
||||
(store =flags
|
||||
(store flags
|
||||
(has_type (ty_32_or_64 ty)
|
||||
(iadd src2
|
||||
(and
|
||||
(sinkable_load sink)
|
||||
(load flags addr offset))))
|
||||
=addr
|
||||
=offset))
|
||||
addr
|
||||
offset))
|
||||
(let ((_ RegMemImm (sink_load sink)))
|
||||
(side_effect
|
||||
(x64_add_mem ty (to_amode flags addr offset) src2))))
|
||||
|
||||
;; Sub mem, reg
|
||||
(rule (lower
|
||||
(store =flags
|
||||
(store flags
|
||||
(has_type (ty_32_or_64 ty)
|
||||
(isub (and
|
||||
(sinkable_load sink)
|
||||
(load flags addr offset))
|
||||
src2))
|
||||
=addr
|
||||
=offset))
|
||||
addr
|
||||
offset))
|
||||
(let ((_ RegMemImm (sink_load sink)))
|
||||
(side_effect
|
||||
(x64_sub_mem ty (to_amode flags addr offset) src2))))
|
||||
|
||||
;; And mem, reg
|
||||
(rule (lower
|
||||
(store =flags
|
||||
(store flags
|
||||
(has_type (ty_32_or_64 ty)
|
||||
(band (and
|
||||
(sinkable_load sink)
|
||||
(load flags addr offset))
|
||||
src2))
|
||||
=addr
|
||||
=offset))
|
||||
addr
|
||||
offset))
|
||||
(let ((_ RegMemImm (sink_load sink)))
|
||||
(side_effect
|
||||
(x64_and_mem ty (to_amode flags addr offset) src2))))
|
||||
|
||||
;; And mem, reg with args swapped
|
||||
(rule (lower
|
||||
(store =flags
|
||||
(store flags
|
||||
(has_type (ty_32_or_64 ty)
|
||||
(band src2
|
||||
(and
|
||||
(sinkable_load sink)
|
||||
(load flags addr offset))))
|
||||
=addr
|
||||
=offset))
|
||||
addr
|
||||
offset))
|
||||
(let ((_ RegMemImm (sink_load sink)))
|
||||
(side_effect
|
||||
(x64_and_mem ty (to_amode flags addr offset) src2))))
|
||||
|
||||
;; Or mem, reg
|
||||
(rule (lower
|
||||
(store =flags
|
||||
(store flags
|
||||
(has_type (ty_32_or_64 ty)
|
||||
(bor (and
|
||||
(sinkable_load sink)
|
||||
(load flags addr offset))
|
||||
src2))
|
||||
=addr
|
||||
=offset))
|
||||
addr
|
||||
offset))
|
||||
(let ((_ RegMemImm (sink_load sink)))
|
||||
(side_effect
|
||||
(x64_or_mem ty (to_amode flags addr offset) src2))))
|
||||
|
||||
;; Or mem, reg with args swapped
|
||||
(rule (lower
|
||||
(store =flags
|
||||
(store flags
|
||||
(has_type (ty_32_or_64 ty)
|
||||
(bor src2
|
||||
(and
|
||||
(sinkable_load sink)
|
||||
(load flags addr offset))))
|
||||
=addr
|
||||
=offset))
|
||||
addr
|
||||
offset))
|
||||
(let ((_ RegMemImm (sink_load sink)))
|
||||
(side_effect
|
||||
(x64_or_mem ty (to_amode flags addr offset) src2))))
|
||||
|
||||
;; Xor mem, reg
|
||||
(rule (lower
|
||||
(store =flags
|
||||
(store flags
|
||||
(has_type (ty_32_or_64 ty)
|
||||
(bxor (and
|
||||
(sinkable_load sink)
|
||||
(load flags addr offset))
|
||||
src2))
|
||||
=addr
|
||||
=offset))
|
||||
addr
|
||||
offset))
|
||||
(let ((_ RegMemImm (sink_load sink)))
|
||||
(side_effect
|
||||
(x64_xor_mem ty (to_amode flags addr offset) src2))))
|
||||
|
||||
;; Xor mem, reg with args swapped
|
||||
(rule (lower
|
||||
(store =flags
|
||||
(store flags
|
||||
(has_type (ty_32_or_64 ty)
|
||||
(bxor src2
|
||||
(and
|
||||
(sinkable_load sink)
|
||||
(load flags addr offset))))
|
||||
=addr
|
||||
=offset))
|
||||
addr
|
||||
offset))
|
||||
(let ((_ RegMemImm (sink_load sink)))
|
||||
(side_effect
|
||||
(x64_xor_mem ty (to_amode flags addr offset) src2))))
|
||||
|
||||
@@ -1,4 +1,4 @@
|
||||
src/clif.isle 443b34b797fc8ace
|
||||
src/prelude.isle a7915a6b88310eb5
|
||||
src/isa/x64/inst.isle 6dcba190988a695
|
||||
src/isa/x64/lower.isle b95161bdf07b9365
|
||||
src/isa/x64/inst.isle a63b8ede292f2e20
|
||||
src/isa/x64/lower.isle 4c567e9157f84afb
|
||||
|
||||
Reference in New Issue
Block a user