language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-09-30 15:21:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

Int.rem

Browse source
This commit is contained in:
Chad Stearns 2020-05-13 04:27:08 -04:00
parent 575202d6e4
commit 7df4771f7b
6 changed files with 128 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

50
compiler/can/src/builtins.rs
View file

@ -31,6 +31,7 @@ pub fn builtin_defs(var_store: &VarStore) -> Vec<Def> {
list_first(var_store),
int_div(var_store),
int_abs(var_store),
int_rem(var_store),
]
}
@ -105,6 +106,53 @@ fn list_get(var_store: &VarStore) -> Def {
)
}
/// Int.rem : Int, Int -> Int
fn int_rem(var_store: &VarStore) -> Def {
use crate::expr::Expr::*;
defn(
Symbol::INT_REM,
vec![Symbol::INT_REM_ARG_0, Symbol::INT_REM_ARG_1],
var_store,
If {
branch_var: var_store.fresh(),
cond_var: var_store.fresh(),
branches: vec![(
// if condition
no_region(
// Int.neq arg1 0
call(
Symbol::INT_NEQ_I64,
vec![Var(Symbol::INT_REM_ARG_1), (Int(var_store.fresh(), 0))],
var_store,
),
),
// arg1 was not zero
no_region(
// Ok (Int.#remUnsafe arg0 arg1)
tag(
"Ok",
vec![
// Int.#remUnsafe arg0 arg1
call(
Symbol::INT_REM_UNSAFE,
vec![Var(Symbol::INT_REM_ARG_0), Var(Symbol::INT_REM_ARG_1)],
var_store,
),
],
var_store,
),
),
)],
final_else: Box::new(no_region(tag(
"Err",
vec![tag("DivByZero", Vec::new(), var_store)],
var_store,
))),
},
)
}
/// Int.abs : Int -> Int
fn int_abs(var_store: &VarStore) -> Def {
use crate::expr::Expr::*;
@ -159,7 +207,7 @@ fn int_div(var_store: &VarStore) -> Def {
branches: vec![(
// if-condition
no_region(
// Int.eq denominator 0
// Int.neq denominator 0
call(
Symbol::INT_NEQ_I64,
vec![