AbleOS/holey-bytes
3
3
Fork 5
Code Issues 2 Pull requests Packages Projects Releases Wiki Activity

adding destination semantics for expressions

Browse source
This commit is contained in:
mlokr 2024-05-13 11:05:35 +02:00
parent 2226a47aaa
commit b28baa86f7
2 changed files with 166 additions and 134 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

298
hblang/src/codegen.rs
View file

@ -29,6 +29,37 @@ impl Drop for LinReg {
} }
} }
enum CowReg {
Lin(LinReg),
Reg(Reg),
}
impl CowReg {
fn get(&self) -> Reg {
match *self {
Self::Lin(LinReg(reg)) => reg,
Self::Reg(reg) => reg,
}
}
}
#[derive(Default)]
enum Ctx {
#[default]
None,
Inferred(Type),
Dest(Value),
}
impl Ctx {
fn ty(&self) -> Option<Type> {
Some(match self {
Self::Inferred(ty) => *ty,
Self::Dest(Value { ty, .. }) => *ty,
_ => return None,
})
}
}
pub mod bt { pub mod bt {
use super::*; use super::*;
@ -229,6 +260,13 @@ impl RegAlloc {
std::mem::forget(reg); std::mem::forget(reg);
} }
fn free_cow(&mut self, reg: CowReg) {
match reg {
CowReg::Lin(reg) => self.free(reg),
CowReg::Reg(_) => {}
}
}
fn pushed_size(&self) -> usize { fn pushed_size(&self) -> usize {
(self.max_used as usize - RET_ADDR as usize + 1) * 8 (self.max_used as usize - RET_ADDR as usize + 1) * 8
} }
@ -401,7 +439,7 @@ impl<'a> Codegen<'a> {
self.ret = fn_label.ret; self.ret = fn_label.ret;
log::dbg!("fn-body"); log::dbg!("fn-body");
if self.expr(body, None).is_some() { if self.expr(body).is_some() {
self.report(body.pos(), "expected all paths in the fucntion to return"); self.report(body.pos(), "expected all paths in the fucntion to return");
} }
self.vars.clear(); self.vars.clear();
@ -490,6 +528,7 @@ impl<'a> Codegen<'a> {
self.code.encode(instrs::cp(reg.0, rr)); self.code.encode(instrs::cp(reg.0, rr));
reg reg
} }
Loc::Return => todo!(),
Loc::Reg(reg) => reg, Loc::Reg(reg) => reg,
Loc::Deref(dreg, offset) => { Loc::Deref(dreg, offset) => {
let reg = self.gpa.allocate(); let reg = self.gpa.allocate();
@ -563,55 +602,35 @@ impl<'a> Codegen<'a> {
} }
} }
fn expr(&mut self, expr: &'a parser::Expr<'a>, expeted: Option<Type>) -> Option<Value> { fn expr(&mut self, expr: &'a parser::Expr<'a>) -> Option<Value> {
match *expr { self.expr_ctx(expr, Ctx::default())
}
fn expr_ctx(&mut self, expr: &'a parser::Expr<'a>, ctx: Ctx) -> Option<Value> {
let value = match *expr {
E::Bool { value, .. } => Some(Value { E::Bool { value, .. } => Some(Value {
ty: bt::BOOL, ty: bt::BOOL,
loc: Loc::Imm(value as u64), loc: Loc::Imm(value as u64),
}), }),
E::Ctor { ty, fields } => { E::Ctor { ty, fields } => {
let ty = self.ty(&ty); let ty = self.ty(&ty);
let TypeKind::Struct(idx) = TypeKind::from_ty(ty) else { let size = self.size_of(ty);
self.report(
expr.pos(), let loc = match ctx {
format_args!("expected struct, got {}", self.display_ty(ty)), Ctx::Dest(dest) => dest.loc,
); _ => Loc::Stack(self.alloc_stack(size as u32)),
}; };
let mut field_values = fields for (name, field) in fields {
.iter() let (offset, ty) = self.offset_of(expr.pos(), ty, name);
.map(|(name, field)| self.expr(field, None).map(|v| (*name, v))) let loc = loc.offset_ref(offset);
.collect::<Option<Vec<_>>>()?; self.expr_ctx(field, Ctx::Dest(Value { ty, loc }))?;
let size = self.size_of(ty);
let stack = self.alloc_stack(size as u32);
let decl_fields = self.records[idx as usize].fields.clone();
let mut offset = 0;
for &(ref name, ty) in decl_fields.as_ref() {
let index = field_values
.iter()
.position(|(n, _)| *n == name.as_ref())
.unwrap();
let (_, value) = field_values.remove(index);
self.assert_ty(expr.pos(), ty, value.ty);
log::dbg!("ctor: {} {} {:?}", stack, offset, value.loc);
self.assign(
Value {
ty: value.ty,
loc: Loc::Stack(stack + offset),
},
value,
);
offset += self.size_of(ty);
} }
Some(Value {
ty, return Some(Value { ty, loc });
loc: Loc::Stack(stack),
})
} }
E::Field { target, field } => { E::Field { target, field } => {
let mut tal = self.expr(target, None)?; let mut tal = self.expr(target)?;
if let TypeKind::Pointer(ty) = TypeKind::from_ty(tal.ty) { if let TypeKind::Pointer(ty) = TypeKind::from_ty(tal.ty) {
tal.ty = self.pointers[ty as usize]; tal.ty = self.pointers[ty as usize];
tal.loc = match tal.loc { tal.loc = match tal.loc {
@ -640,28 +659,38 @@ impl<'a> Codegen<'a> {
val, val,
pos, pos,
} => { } => {
let val = self.expr(val, None)?; let val = self.expr(val)?;
match val.loc { let loc = match val.loc {
Loc::StackRef(off) => { Loc::StackRef(off) => {
let reg = self.gpa.allocate(); let reg = self.gpa.allocate();
self.code.encode(instrs::addi64(reg.0, STACK_PTR, off)); self.code.encode(instrs::addi64(reg.0, STACK_PTR, off));
Some(Value { Loc::Reg(reg)
ty: self.alloc_pointer(val.ty), }
loc: Loc::Reg(reg), Loc::Deref(r, off) => {
}) self.code.encode(instrs::addi64(r.0, r.0, off));
Loc::Reg(r)
}
Loc::DerefRef(r, off) => {
let reg = self.gpa.allocate();
self.code.encode(instrs::addi64(reg.0, r, off));
Loc::Reg(reg)
} }
l => self.report( l => self.report(
pos, pos,
format_args!("cant take pointer of {} ({:?})", self.display_ty(val.ty), l), format_args!("cant take pointer of {} ({:?})", self.display_ty(val.ty), l),
), ),
} };
Some(Value {
ty: self.alloc_pointer(val.ty),
loc,
})
} }
E::UnOp { E::UnOp {
op: T::Star, op: T::Star,
val, val,
pos, pos,
} => { } => {
let val = self.expr(val, None)?; let val = self.expr(val)?;
let reg = self.loc_to_reg(val.loc); let reg = self.loc_to_reg(val.loc);
match TypeKind::from_ty(val.ty) { match TypeKind::from_ty(val.ty) {
TypeKind::Pointer(ty) => Some(Value { TypeKind::Pointer(ty) => Some(Value {
@ -679,7 +708,7 @@ impl<'a> Codegen<'a> {
op: T::Decl, op: T::Decl,
right, right,
} => { } => {
let val = self.expr(right, None)?; let val = self.expr(right)?;
let loc = self.make_loc_owned(val.loc, val.ty); let loc = self.make_loc_owned(val.loc, val.ty);
let loc = self.ensure_spilled(loc); let loc = self.ensure_spilled(loc);
self.vars.push(Variable { self.vars.push(Variable {
@ -696,7 +725,7 @@ impl<'a> Codegen<'a> {
let fn_label = self.labels[func as usize].clone(); let fn_label = self.labels[func as usize].clone();
let mut parama = 3..12; let mut parama = 3..12;
for (earg, &ty) in args.iter().zip(fn_label.args.iter()) { for (earg, &ty) in args.iter().zip(fn_label.args.iter()) {
let arg = self.expr(earg, Some(ty))?; let arg = self.expr_ctx(earg, Ctx::Inferred(ty))?;
self.assert_ty(earg.pos(), ty, arg.ty); self.assert_ty(earg.pos(), ty, arg.ty);
self.pass_arg(arg, &mut parama); self.pass_arg(arg, &mut parama);
} }
@ -705,18 +734,19 @@ impl<'a> Codegen<'a> {
let loc = match size { let loc = match size {
0 => Loc::Imm(0), 0 => Loc::Imm(0),
8 => Loc::RegRef(1), 8 => Loc::RegRef(1),
16 => { 16 => match ctx {
let stack = self.alloc_stack(16); Ctx::Dest(dest) => dest.loc,
Loc::Stack(stack) _ => Loc::Stack(self.alloc_stack(size as u32)),
} },
24..=u64::MAX => { 24..=u64::MAX => {
let stack = self.alloc_stack(size as u32); let val = match ctx {
let reg = self.gpa.allocate(); Ctx::Dest(dest) => dest.loc,
self.code _ => Loc::Stack(self.alloc_stack(size as u32)),
.encode(instrs::addi64(reg.0, STACK_PTR, stack as u64)); };
self.code.encode(instrs::cp(1, reg.0)); let (ptr, off) = val.ref_to_ptr(size);
self.gpa.free(reg); self.code.encode(instrs::cp(1, ptr));
Loc::Stack(stack) self.code.encode(instrs::addi64(1, ptr, off));
val
} }
s => todo!("call return size: {}", s), s => todo!("call return size: {}", s),
}; };
@ -735,10 +765,10 @@ impl<'a> Codegen<'a> {
s => todo!("call return size: {}", s), s => todo!("call return size: {}", s),
} }
Some(Value { return Some(Value {
ty: fn_label.ret, ty: fn_label.ret,
loc, loc,
}) });
} }
E::Ident { name, id, .. } => { E::Ident { name, id, .. } => {
let Some(var) = self.vars.iter().find(|v| v.id == id) else { let Some(var) = self.vars.iter().find(|v| v.id == id) else {
@ -751,29 +781,9 @@ impl<'a> Codegen<'a> {
} }
E::Return { val, pos } => { E::Return { val, pos } => {
if let Some(val) = val { if let Some(val) = val {
let val = self.expr(val, Some(self.ret))?; let val = self.expr_ctx(val, Ctx::Inferred(self.ret))?;
self.assert_ty(pos, self.ret, val.ty); self.assert_ty(pos, self.ret, val.ty);
let size = self.size_of(val.ty); self.assign(self.ret, Loc::Return, val.loc);
match size {
8 => {
let val = self.loc_to_reg(val.loc);
self.code.encode(instrs::cp(1, val.0));
self.gpa.free(val);
}
16 => {
let (ptr, off) = self.loc_to_ptr(val.loc);
self.code.encode(instrs::ld(1, ptr.0, off, 16));
self.gpa.free(ptr);
}
24..=u64::MAX => {
let (ptr, off) = self.loc_to_ptr(val.loc);
self.code.encode(instrs::addi64(ptr.0, ptr.0, off));
self.code
.encode(instrs::bmc(ptr.0, 1, size.try_into().unwrap()));
self.gpa.free(ptr);
}
s => todo!("return size: {}", s),
};
} }
self.ret_relocs.push(RetReloc { self.ret_relocs.push(RetReloc {
offset: self.code.code.len() as u32, offset: self.code.code.len() as u32,
@ -785,28 +795,28 @@ impl<'a> Codegen<'a> {
} }
E::Block { stmts, .. } => { E::Block { stmts, .. } => {
for stmt in stmts { for stmt in stmts {
if let Loc::Reg(reg) = self.expr(stmt, None)?.loc { if let Loc::Reg(reg) = self.expr(stmt)?.loc {
self.gpa.free(reg); self.gpa.free(reg);
} }
} }
Some(Value::VOID) Some(Value::VOID)
} }
E::Number { value, .. } => Some(Value { E::Number { value, .. } => Some(Value {
ty: expeted.unwrap_or(bt::INT), ty: ctx.ty().unwrap_or(bt::INT),
loc: Loc::Imm(value), loc: Loc::Imm(value),
}), }),
E::If { E::If {
cond, then, else_, .. cond, then, else_, ..
} => 'b: { } => 'b: {
log::dbg!("if-cond"); log::dbg!("if-cond");
let cond = self.expr(cond, Some(bt::BOOL))?; let cond = self.expr_ctx(cond, Ctx::Inferred(bt::BOOL))?;
let reg = self.loc_to_reg(cond.loc); let reg = self.loc_to_reg(cond.loc);
let jump_offset = self.code.code.len() as u32; let jump_offset = self.code.code.len() as u32;
self.code.encode(instrs::jeq(reg.0, 0, 0)); self.code.encode(instrs::jeq(reg.0, 0, 0));
self.gpa.free(reg); self.gpa.free(reg);
log::dbg!("if-then"); log::dbg!("if-then");
let then_unreachable = self.expr(then, None).is_none(); let then_unreachable = self.expr(then).is_none();
let mut else_unreachable = false; let mut else_unreachable = false;
let mut jump = self.code.code.len() as i16 - jump_offset as i16; let mut jump = self.code.code.len() as i16 - jump_offset as i16;
@ -819,7 +829,7 @@ impl<'a> Codegen<'a> {
jump = self.code.code.len() as i16 - jump_offset as i16; jump = self.code.code.len() as i16 - jump_offset as i16;
} }
else_unreachable = self.expr(else_, None).is_none(); else_unreachable = self.expr(else_).is_none();
if !then_unreachable { if !then_unreachable {
let jump = self.code.code.len() as i32 - else_jump_offset as i32; let jump = self.code.code.len() as i32 - else_jump_offset as i32;
@ -846,7 +856,7 @@ impl<'a> Codegen<'a> {
offset: loop_start, offset: loop_start,
relocs: Default::default(), relocs: Default::default(),
}); });
let body_unreachable = self.expr(body, None).is_none(); let body_unreachable = self.expr(body).is_none();
log::dbg!("loop-end"); log::dbg!("loop-end");
if !body_unreachable { if !body_unreachable {
@ -894,14 +904,14 @@ impl<'a> Codegen<'a> {
} }
E::BinOp { left, op, right } => { E::BinOp { left, op, right } => {
if op == T::Assign { if op == T::Assign {
let left = self.expr(left, expeted)?; let left = self.expr(left)?;
let right = self.expr(right, Some(left.ty))?; let right = self.expr_ctx(right, Ctx::Inferred(left.ty))?;
return self.assign(left, right); return self.assign(left.ty, left.loc, right.loc);
} }
let left = self.expr(left, expeted)?; let left = self.expr(left)?;
let lhs = self.loc_to_reg(left.loc); let lhs = self.loc_to_reg(left.loc);
let right = self.expr(right, Some(left.ty))?; let right = self.expr_ctx(right, Ctx::Inferred(left.ty))?;
let rhs = self.loc_to_reg(right.loc); let rhs = self.loc_to_reg(right.loc);
let op = match op { let op = match op {
@ -940,16 +950,23 @@ impl<'a> Codegen<'a> {
}) })
} }
ast => unimplemented!("{:#?}", ast), ast => unimplemented!("{:#?}", ast),
}?;
if let Ctx::Dest(dest) = ctx {
self.assign(dest.ty, dest.loc, value.loc);
Some(Value::VOID)
} else {
Some(value)
} }
} }
fn assign(&mut self, right: Value, left: Value) -> Option<Value> { fn assign(&mut self, ty: Type, right: Loc, left: Loc) -> Option<Value> {
let size = self.size_of(left.ty); let size = self.size_of(ty);
match size { match size {
8 => { 8 => {
let lhs = self.loc_to_reg(left.loc); let lhs = self.loc_to_reg(left);
match right.loc { match right {
Loc::Deref(reg, off) => { Loc::Deref(reg, off) => {
self.code.encode(instrs::st(lhs.0, reg.0, off, 8)); self.code.encode(instrs::st(lhs.0, reg.0, off, 8));
self.gpa.free(reg); self.gpa.free(reg);
@ -958,13 +975,20 @@ impl<'a> Codegen<'a> {
Loc::StackRef(offset) | Loc::Stack(offset) => { Loc::StackRef(offset) | Loc::Stack(offset) => {
self.store_stack(lhs.0, offset, 8) self.store_stack(lhs.0, offset, 8)
} }
Loc::Return => self.code.encode(instrs::cp(1, lhs.0)),
l => unimplemented!("{:?}", l), l => unimplemented!("{:?}", l),
} }
self.gpa.free(lhs); self.gpa.free(lhs);
} }
16 if matches!(right, Loc::Return) => {
let (lhs, loff) = left.to_ptr(size);
self.code.encode(instrs::st(1, lhs.get(), loff, 16));
self.gpa.free_cow(lhs);
}
16..=u64::MAX => { 16..=u64::MAX => {
let (rhs, roff) = self.loc_to_ptr(right.loc); let (rhs, roff) = right.to_ptr(size);
let (lhs, loff) = self.loc_to_ptr(left.loc); let (lhs, loff) = left.to_ptr(size);
let (rhs, lhs) = (self.to_owned(rhs), self.to_owned(lhs));
self.code.encode(instrs::addi64(rhs.0, rhs.0, roff)); self.code.encode(instrs::addi64(rhs.0, rhs.0, roff));
self.code.encode(instrs::addi64(lhs.0, lhs.0, loff)); self.code.encode(instrs::addi64(lhs.0, lhs.0, loff));
@ -980,20 +1004,14 @@ impl<'a> Codegen<'a> {
Some(Value::VOID) Some(Value::VOID)
} }
fn loc_to_ptr(&mut self, loc: Loc) -> (LinReg, u64) { fn to_owned(&mut self, loc: CowReg) -> LinReg {
match loc { match loc {
Loc::Deref(reg, off) => (reg, off), CowReg::Lin(reg) => reg,
Loc::DerefRef(reg, off) => { CowReg::Reg(reg) => {
let dreg = self.gpa.allocate(); let new = self.gpa.allocate();
self.code.encode(instrs::cp(dreg.0, reg)); self.code.encode(instrs::cp(new.0, reg));
(dreg, off) new
} }
Loc::Stack(offset) | Loc::StackRef(offset) => {
let reg = self.gpa.allocate();
self.code.encode(instrs::cp(reg.0, STACK_PTR));
(reg, offset)
}
l => panic!("expected stack location, got {:?}", l),
} }
} }
@ -1085,16 +1103,7 @@ impl<'a> Codegen<'a> {
Loc::StackRef(off) => { Loc::StackRef(off) => {
let size = self.size_of(ty); let size = self.size_of(ty);
let stack = self.alloc_stack(size as u32); let stack = self.alloc_stack(size as u32);
self.assign( self.assign(ty, Loc::Stack(stack), Loc::StackRef(off));
Value {
ty,
loc: Loc::Stack(stack),
},
Value {
ty,
loc: Loc::StackRef(off),
},
);
Loc::Stack(stack) Loc::Stack(stack)
} }
l => l, l => l,
@ -1121,6 +1130,7 @@ impl<'a> Codegen<'a> {
Loc::RegRef(reg) => { Loc::RegRef(reg) => {
self.code.encode(instrs::cp(p, reg)); self.code.encode(instrs::cp(p, reg));
} }
Loc::Return => todo!(),
Loc::Deref(reg, off) => { Loc::Deref(reg, off) => {
self.code.encode(instrs::ld(p, reg.0, off, size as _)); self.code.encode(instrs::ld(p, reg.0, off, size as _));
self.gpa.free(reg); self.gpa.free(reg);
@ -1155,16 +1165,7 @@ impl<'a> Codegen<'a> {
24..=u64::MAX => { 24..=u64::MAX => {
let ptr = parama.next().unwrap(); let ptr = parama.next().unwrap();
let stack = self.alloc_stack(size as u32); let stack = self.alloc_stack(size as u32);
self.assign( self.assign(ty, Loc::StackRef(stack), Loc::DerefRef(ptr, 0));
Value {
ty,
loc: Loc::StackRef(stack),
},
Value {
ty,
loc: Loc::DerefRef(ptr, 0),
},
);
Loc::Stack(stack) Loc::Stack(stack)
} }
blah => todo!("{blah:?}"), blah => todo!("{blah:?}"),
@ -1214,6 +1215,7 @@ impl Value {
enum Loc { enum Loc {
Reg(LinReg), Reg(LinReg),
RegRef(Reg), RegRef(Reg),
Return,
Deref(LinReg, u64), Deref(LinReg, u64),
DerefRef(Reg, u64), DerefRef(Reg, u64),
Imm(u64), Imm(u64),
@ -1228,6 +1230,36 @@ impl Loc {
un => unreachable!("{:?}", un), un => unreachable!("{:?}", un),
} }
} }
fn to_ptr(self, size: u64) -> (CowReg, u64) {
match self {
Loc::Return if size > 16 => (CowReg::Reg(1), 0),
Loc::Deref(reg, off) => (CowReg::Lin(reg), off),
Loc::DerefRef(reg, off) => (CowReg::Reg(reg), off),
Loc::Stack(offset) | Loc::StackRef(offset) => (CowReg::Reg(STACK_PTR), offset),
l => panic!("expected stack location, got {:?}", l),
}
}
fn ref_to_ptr(&self, size: u64) -> (Reg, u64) {
match *self {
Loc::Return if size > 16 => (1, 0),
Loc::Deref(LinReg(reg), off) => (reg, off),
Loc::DerefRef(reg, off) => (reg, off),
Loc::Stack(offset) | Loc::StackRef(offset) => (STACK_PTR, offset),
ref l => panic!("expected stack location, got {:?}", l),
}
}
fn offset_ref(&self, offset: u64) -> Loc {
match *self {
Self::Deref(LinReg(r), off) => Self::DerefRef(r, off + offset),
Self::DerefRef(r, off) => Self::DerefRef(r, off + offset),
Self::Stack(off) => Self::Stack(off + offset),
Self::StackRef(off) => Self::StackRef(off + offset),
ref un => unreachable!("{:?}", un),
}
}
} }
#[cfg(test)] #[cfg(test)]

2
hblang/tests/hblang_codegen_tests_structs.txt
View file

@ -1,3 +1,3 @@
code size: 691 code size: 596
ret: 3 ret: 3
status: Ok(()) status: Ok(())