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

Compilation that returns an output code works

Browse Source
This commit is contained in:
greg 2016-12-25 19:24:39 -08:00
parent 08798fb690
commit cfb93d9dea
1 changed files with 33 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
src/compilation.rs
View File

@ -3,6 +3,7 @@ extern crate llvm_sys;
use self::llvm_sys::prelude::*;
use self::llvm_sys::core;
use std::ptr;
use std::ffi::CString;
use parser::{ParseResult, AST, ASTNode, Prototype, Function, Expression};
@ -82,6 +83,12 @@ mod LLVMWrap {
}
}
pub fn BuildRet(builder: LLVMBuilderRef, val: LLVMValueRef) -> LLVMValueRef {
unsafe {
core::LLVMBuildRet(builder, val)
}
}
pub fn BuildRetVoid(builder: LLVMBuilderRef) -> LLVMValueRef {
unsafe {
core::LLVMBuildRetVoid(builder)
@ -93,29 +100,45 @@ mod LLVMWrap {
core::LLVMDumpModule(module)
}
}
pub fn Int64TypeInContext(context: LLVMContextRef) -> LLVMTypeRef {
unsafe {
core::LLVMInt64TypeInContext(context)
}
}
pub fn ConstInt(int_type: LLVMTypeRef, n: u64, sign_extend: bool) -> LLVMValueRef {
unsafe {
core::LLVMConstInt(int_type, n, if sign_extend { 1 } else { 0 })
}
}
}
pub fn compile_ast(ast: AST) {
println!("Compiling!");
let name = "nop";
let context = LLVMWrap::create_context();
let module = LLVMWrap::module_create_with_name(name);
let module = LLVMWrap::module_create_with_name("example module");
let builder = LLVMWrap::CreateBuilderInContext(context);
let void = LLVMWrap::VoidTypeInContext(context);
let function_type = LLVMWrap::FunctionType(void, &Vec::new(), false);
let function = LLVMWrap::AddFunction(module, name, function_type);
//let void = LLVMWrap::VoidTypeInContext(context);
let int_type = LLVMWrap::Int64TypeInContext(context);
let function_type = LLVMWrap::FunctionType(int_type, &Vec::new(), false);
let function = LLVMWrap::AddFunction(module, "main", function_type);
let bb = LLVMWrap::AppendBasicBlockInContext(context, function, "entry");
LLVMWrap::PositionBuilderAtEnd(builder, bb);
// Emit a `ret void` into the function
LLVMWrap::BuildRetVoid(builder);
let int_value: u64 = 84;
let int_value = LLVMWrap::ConstInt(int_type, int_value, false);
// Dump the module as IR to stdout.
LLVMWrap::DumpModule(module);
LLVMWrap::BuildRet(builder, int_value);
unsafe {
let out_file = CString::new("out.ll").unwrap();
core::LLVMPrintModuleToFile(module, out_file.as_ptr(), ptr::null_mut());
}
// Clean up. Values created in the context mostly get cleaned up there.
LLVMWrap::DisposeBuilder(builder);