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:
Chris Fallin
2022-04-28 11:17:08 -07:00
committed by GitHub
parent 477d394288
commit eceb433b28
8 changed files with 78 additions and 89 deletions

View File

@@ -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() {

View File

@@ -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() {

View File

@@ -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))

View File

@@ -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))))

View File

@@ -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