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

toplevel debug

Browse source
This commit is contained in:
Folkert 2022-11-23 20:29:45 +01:00
parent 928495072c
commit 5ea8d96f3e
No known key found for this signature in database
GPG key ID: 1F17F6FFD112B97C
5 changed files with 70 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

26
crates/compiler/can/src/expr.rs
View file

@ -2398,6 +2398,25 @@ impl Declarations {
index
}
pub fn push_dbg(
&mut self,
preceding_comment: Region,
name: Symbol,
variable: Variable,
loc_expr: Loc<Expr>,
) -> usize {
let index = self.declarations.len();
self.declarations.push(DeclarationTag::Dbg);
self.variables.push(variable);
self.symbols.push(Loc::at(preceding_comment, name));
self.annotations.push(None);
self.expressions.push(loc_expr);
index
}
pub fn push_value_def(
&mut self,
symbol: Loc<Symbol>,
@ -2572,6 +2591,10 @@ impl Declarations {
MutualRecursion { .. } => {
// the self of this group will be treaded individually by later iterations
}
Dbg => {
let loc_expr = &self.expressions[index];
collector.visit_expr(&loc_expr.value, loc_expr.region, var);
}
Expectation => {
let loc_expr =
toplevel_expect_to_inline_expect_pure(self.expressions[index].clone());
@ -2598,6 +2621,7 @@ pub enum DeclarationTag {
Value,
Expectation,
ExpectationFx,
Dbg,
Function(Index<Loc<FunctionDef>>),
Recursive(Index<Loc<FunctionDef>>),
TailRecursive(Index<Loc<FunctionDef>>),
@ -2615,7 +2639,7 @@ impl DeclarationTag {
match self {
Function(_) | Recursive(_) | TailRecursive(_) => 1,
Value => 1,
Expectation | ExpectationFx => 1,
Expectation | ExpectationFx | Dbg => 1,
Destructure(_) => 1,
MutualRecursion { length, .. } => length as usize + 1,
}