greg/schala
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Package more functions in LLVMWrapper

Browse Source
This commit is contained in:
greg 2016-12-26 12:36:28 -08:00
parent a65544356c
commit fca307d3ab
1 changed files with 44 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
src/compilation.rs
View File

@ -112,6 +112,41 @@ mod LLVMWrap {
core::LLVMConstInt(int_type, n, if sign_extend { 1 } else { 0 }) core::LLVMConstInt(int_type, n, if sign_extend { 1 } else { 0 })
} }
} }
pub fn BuildAdd(builder: LLVMBuilderRef, lhs: LLVMValueRef, rhs: LLVMValueRef, reg_name: &str) -> LLVMValueRef {
let name = CString::new(reg_name).unwrap();
unsafe {
core::LLVMBuildAdd(builder, lhs, rhs, name.as_ptr())
}
}
pub fn BuildSub(builder: LLVMBuilderRef, lhs: LLVMValueRef, rhs: LLVMValueRef, reg_name: &str) -> LLVMValueRef {
let name = CString::new(reg_name).unwrap();
unsafe {
core::LLVMBuildSub(builder, lhs, rhs, name.as_ptr())
}
}
pub fn BuildMul(builder: LLVMBuilderRef, lhs: LLVMValueRef, rhs: LLVMValueRef, reg_name: &str) -> LLVMValueRef {
let name = CString::new(reg_name).unwrap();
unsafe {
core::LLVMBuildMul(builder, lhs, rhs, name.as_ptr())
}
}
pub fn BuildUDiv(builder: LLVMBuilderRef, lhs: LLVMValueRef, rhs: LLVMValueRef, reg_name: &str) -> LLVMValueRef {
let name = CString::new(reg_name).unwrap();
unsafe {
core::LLVMBuildUDiv(builder, lhs, rhs, name.as_ptr())
}
}
pub fn BuildSRem(builder: LLVMBuilderRef, lhs: LLVMValueRef, rhs: LLVMValueRef, reg_name: &str) -> LLVMValueRef {
let name = CString::new(reg_name).unwrap();
unsafe {
core::LLVMBuildSRem(builder, lhs, rhs, name.as_ptr())
}
}
} }
pub fn compilation_sequence(ast: AST, sourcefile: &str) { pub fn compilation_sequence(ast: AST, sourcefile: &str) {
@ -222,20 +257,16 @@ impl CodeGen for Expression {
&BinExp(ref op, ref left, ref right) => { &BinExp(ref op, ref left, ref right) => {
let lhs = left.codegen(context, builder); let lhs = left.codegen(context, builder);
let rhs = right.codegen(context, builder); let rhs = right.codegen(context, builder);
unsafe { let generator = match op.as_ref() {
let generator = match op.as_ref() { "+" => LLVMWrap::BuildAdd,
"+" => core::LLVMBuildAdd, "-" => LLVMWrap::BuildSub,
"-" => core::LLVMBuildSub, "*" => LLVMWrap::BuildMul,
"*" => core::LLVMBuildMul, "/" => LLVMWrap::BuildUDiv,
"/" => core::LLVMBuildUDiv, "%" => LLVMWrap::BuildSRem,
"%" => core::LLVMBuildSRem, _ => panic!("Bad operator {}", op),
_ => panic!("Bad operator {}", op), };
}; generator(builder, lhs, rhs, "temp")
let reg_name = CString::new("temporary").unwrap();
generator(builder, lhs, rhs, reg_name.as_ptr())
}
}, },
&Number(ref n) => { &Number(ref n) => {
let native_val = *n as u64; let native_val = *n as u64;