295 lines
10 KiB
Rust
295 lines
10 KiB
Rust
// Copyright 2013 The Rust Project Developers. See the COPYRIGHT
|
|
// file at the top-level directory of this distribution and at
|
|
// http://rust-lang.org/COPYRIGHT.
|
|
//
|
|
// Licensed under the Apache License, Version 2.0 <LICENSE-APACHE or
|
|
// http://www.apache.org/licenses/LICENSE-2.0> or the MIT license
|
|
// <LICENSE-MIT or http://opensource.org/licenses/MIT>, at your
|
|
// option. This file may not be copied, modified, or distributed
|
|
// except according to those terms.
|
|
|
|
|
|
use back::{upcall};
|
|
use driver::session;
|
|
use lib::llvm::{ContextRef, ModuleRef, ValueRef};
|
|
use lib::llvm::{llvm, TargetData, TypeNames};
|
|
use lib::llvm::{mk_target_data, False};
|
|
use metadata::common::LinkMeta;
|
|
use middle::astencode;
|
|
use middle::resolve;
|
|
use middle::trans::adt;
|
|
use middle::trans::base;
|
|
use middle::trans::builder::Builder;
|
|
use middle::trans::debuginfo;
|
|
use middle::trans::type_use;
|
|
use middle::trans::common::{C_i32, C_null};
|
|
use middle::ty;
|
|
|
|
use middle::trans::type_::Type;
|
|
|
|
use std::c_str::ToCStr;
|
|
use std::hash;
|
|
use std::hashmap::{HashMap, HashSet};
|
|
use std::local_data;
|
|
use std::vec;
|
|
use std::libc::c_uint;
|
|
use syntax::ast;
|
|
|
|
use middle::trans::common::{mono_id,ExternMap,tydesc_info,BuilderRef_res,Stats};
|
|
|
|
use middle::trans::base::{decl_crate_map};
|
|
|
|
pub struct CrateContext {
|
|
sess: session::Session,
|
|
llmod: ModuleRef,
|
|
llcx: ContextRef,
|
|
td: TargetData,
|
|
tn: TypeNames,
|
|
externs: ExternMap,
|
|
intrinsics: HashMap<&'static str, ValueRef>,
|
|
item_vals: HashMap<ast::NodeId, ValueRef>,
|
|
exp_map2: resolve::ExportMap2,
|
|
reachable: @mut HashSet<ast::NodeId>,
|
|
item_symbols: HashMap<ast::NodeId, ~str>,
|
|
link_meta: LinkMeta,
|
|
enum_sizes: HashMap<ty::t, uint>,
|
|
discrims: HashMap<ast::def_id, ValueRef>,
|
|
discrim_symbols: HashMap<ast::NodeId, @str>,
|
|
tydescs: HashMap<ty::t, @mut tydesc_info>,
|
|
// Set when running emit_tydescs to enforce that no more tydescs are
|
|
// created.
|
|
finished_tydescs: bool,
|
|
// Track mapping of external ids to local items imported for inlining
|
|
external: HashMap<ast::def_id, Option<ast::NodeId>>,
|
|
// Cache instances of monomorphized functions
|
|
monomorphized: HashMap<mono_id, ValueRef>,
|
|
monomorphizing: HashMap<ast::def_id, uint>,
|
|
// Cache computed type parameter uses (see type_use.rs)
|
|
type_use_cache: HashMap<ast::def_id, @~[type_use::type_uses]>,
|
|
// Cache generated vtables
|
|
vtables: HashMap<mono_id, ValueRef>,
|
|
// Cache of constant strings,
|
|
const_cstr_cache: HashMap<@str, ValueRef>,
|
|
|
|
// Reverse-direction for const ptrs cast from globals.
|
|
// Key is an int, cast from a ValueRef holding a *T,
|
|
// Val is a ValueRef holding a *[T].
|
|
//
|
|
// Needed because LLVM loses pointer->pointee association
|
|
// when we ptrcast, and we have to ptrcast during translation
|
|
// of a [T] const because we form a slice, a [*T,int] pair, not
|
|
// a pointer to an LLVM array type.
|
|
const_globals: HashMap<int, ValueRef>,
|
|
|
|
// Cache of emitted const values
|
|
const_values: HashMap<ast::NodeId, ValueRef>,
|
|
|
|
// Cache of external const values
|
|
extern_const_values: HashMap<ast::def_id, ValueRef>,
|
|
|
|
impl_method_cache: HashMap<(ast::def_id, ast::ident), ast::def_id>,
|
|
|
|
module_data: HashMap<~str, ValueRef>,
|
|
lltypes: HashMap<ty::t, Type>,
|
|
llsizingtypes: HashMap<ty::t, Type>,
|
|
adt_reprs: HashMap<ty::t, @adt::Repr>,
|
|
symbol_hasher: hash::State,
|
|
type_hashcodes: HashMap<ty::t, @str>,
|
|
type_short_names: HashMap<ty::t, ~str>,
|
|
all_llvm_symbols: HashSet<@str>,
|
|
tcx: ty::ctxt,
|
|
maps: astencode::Maps,
|
|
stats: @mut Stats,
|
|
upcalls: @upcall::Upcalls,
|
|
tydesc_type: Type,
|
|
int_type: Type,
|
|
float_type: Type,
|
|
opaque_vec_type: Type,
|
|
builder: BuilderRef_res,
|
|
crate_map: ValueRef,
|
|
// Set when at least one function uses GC. Needed so that
|
|
// decl_gc_metadata knows whether to link to the module metadata, which
|
|
// is not emitted by LLVM's GC pass when no functions use GC.
|
|
uses_gc: bool,
|
|
dbg_cx: Option<debuginfo::DebugContext>,
|
|
do_not_commit_warning_issued: bool
|
|
}
|
|
|
|
impl CrateContext {
|
|
pub fn new(sess: session::Session,
|
|
name: &str,
|
|
tcx: ty::ctxt,
|
|
emap2: resolve::ExportMap2,
|
|
maps: astencode::Maps,
|
|
symbol_hasher: hash::State,
|
|
link_meta: LinkMeta,
|
|
reachable: @mut HashSet<ast::NodeId>)
|
|
-> CrateContext {
|
|
unsafe {
|
|
let llcx = llvm::LLVMContextCreate();
|
|
set_task_llcx(llcx);
|
|
let llmod = do name.to_c_str().with_ref |buf| {
|
|
llvm::LLVMModuleCreateWithNameInContext(buf, llcx)
|
|
};
|
|
let data_layout: &str = sess.targ_cfg.target_strs.data_layout;
|
|
let targ_triple: &str = sess.targ_cfg.target_strs.target_triple;
|
|
do data_layout.to_c_str().with_ref |buf| {
|
|
llvm::LLVMSetDataLayout(llmod, buf)
|
|
};
|
|
do targ_triple.to_c_str().with_ref |buf| {
|
|
llvm::LLVMSetTarget(llmod, buf)
|
|
};
|
|
let targ_cfg = sess.targ_cfg;
|
|
|
|
let td = mk_target_data(sess.targ_cfg.target_strs.data_layout);
|
|
let mut tn = TypeNames::new();
|
|
|
|
let mut intrinsics = base::declare_intrinsics(llmod);
|
|
if sess.opts.extra_debuginfo {
|
|
base::declare_dbg_intrinsics(llmod, &mut intrinsics);
|
|
}
|
|
let int_type = Type::int(targ_cfg.arch);
|
|
let float_type = Type::float(targ_cfg.arch);
|
|
let tydesc_type = Type::tydesc(targ_cfg.arch);
|
|
let opaque_vec_type = Type::opaque_vec(targ_cfg.arch);
|
|
|
|
let mut str_slice_ty = Type::named_struct("str_slice");
|
|
str_slice_ty.set_struct_body([Type::i8p(), int_type], false);
|
|
|
|
tn.associate_type("tydesc", &tydesc_type);
|
|
tn.associate_type("str_slice", &str_slice_ty);
|
|
|
|
let crate_map = decl_crate_map(sess, link_meta, llmod);
|
|
let dbg_cx = if sess.opts.debuginfo {
|
|
Some(debuginfo::DebugContext::new(llmod, name.to_owned()))
|
|
} else {
|
|
None
|
|
};
|
|
|
|
if sess.count_llvm_insns() {
|
|
base::init_insn_ctxt()
|
|
}
|
|
|
|
CrateContext {
|
|
sess: sess,
|
|
llmod: llmod,
|
|
llcx: llcx,
|
|
td: td,
|
|
tn: tn,
|
|
externs: HashMap::new(),
|
|
intrinsics: intrinsics,
|
|
item_vals: HashMap::new(),
|
|
exp_map2: emap2,
|
|
reachable: reachable,
|
|
item_symbols: HashMap::new(),
|
|
link_meta: link_meta,
|
|
enum_sizes: HashMap::new(),
|
|
discrims: HashMap::new(),
|
|
discrim_symbols: HashMap::new(),
|
|
tydescs: HashMap::new(),
|
|
finished_tydescs: false,
|
|
external: HashMap::new(),
|
|
monomorphized: HashMap::new(),
|
|
monomorphizing: HashMap::new(),
|
|
type_use_cache: HashMap::new(),
|
|
vtables: HashMap::new(),
|
|
const_cstr_cache: HashMap::new(),
|
|
const_globals: HashMap::new(),
|
|
const_values: HashMap::new(),
|
|
extern_const_values: HashMap::new(),
|
|
impl_method_cache: HashMap::new(),
|
|
module_data: HashMap::new(),
|
|
lltypes: HashMap::new(),
|
|
llsizingtypes: HashMap::new(),
|
|
adt_reprs: HashMap::new(),
|
|
symbol_hasher: symbol_hasher,
|
|
type_hashcodes: HashMap::new(),
|
|
type_short_names: HashMap::new(),
|
|
all_llvm_symbols: HashSet::new(),
|
|
tcx: tcx,
|
|
maps: maps,
|
|
stats: @mut Stats {
|
|
n_static_tydescs: 0u,
|
|
n_glues_created: 0u,
|
|
n_null_glues: 0u,
|
|
n_real_glues: 0u,
|
|
n_fns: 0u,
|
|
n_monos: 0u,
|
|
n_inlines: 0u,
|
|
n_closures: 0u,
|
|
n_llvm_insns: 0u,
|
|
llvm_insn_ctxt: ~[],
|
|
llvm_insns: HashMap::new(),
|
|
fn_stats: ~[]
|
|
},
|
|
upcalls: upcall::declare_upcalls(targ_cfg, llmod),
|
|
tydesc_type: tydesc_type,
|
|
int_type: int_type,
|
|
float_type: float_type,
|
|
opaque_vec_type: opaque_vec_type,
|
|
builder: BuilderRef_res(llvm::LLVMCreateBuilderInContext(llcx)),
|
|
crate_map: crate_map,
|
|
uses_gc: false,
|
|
dbg_cx: dbg_cx,
|
|
do_not_commit_warning_issued: false
|
|
}
|
|
}
|
|
}
|
|
|
|
pub fn builder(@mut self) -> Builder {
|
|
Builder::new(self)
|
|
}
|
|
|
|
pub fn const_inbounds_gepi(&self,
|
|
pointer: ValueRef,
|
|
indices: &[uint]) -> ValueRef {
|
|
debug!("const_inbounds_gepi: pointer=%s indices=%?",
|
|
self.tn.val_to_str(pointer), indices);
|
|
let v: ~[ValueRef] =
|
|
indices.iter().transform(|i| C_i32(*i as i32)).collect();
|
|
unsafe {
|
|
llvm::LLVMConstInBoundsGEP(pointer,
|
|
vec::raw::to_ptr(v),
|
|
indices.len() as c_uint)
|
|
}
|
|
}
|
|
|
|
pub fn offsetof_gep(&self,
|
|
llptr_ty: Type,
|
|
indices: &[uint]) -> ValueRef {
|
|
/*!
|
|
* Returns the offset of applying the given GEP indices
|
|
* to an instance of `llptr_ty`. Similar to `offsetof` in C,
|
|
* except that `llptr_ty` must be a pointer type.
|
|
*/
|
|
|
|
unsafe {
|
|
let null = C_null(llptr_ty);
|
|
llvm::LLVMConstPtrToInt(self.const_inbounds_gepi(null, indices),
|
|
self.int_type.to_ref())
|
|
}
|
|
}
|
|
}
|
|
|
|
#[unsafe_destructor]
|
|
impl Drop for CrateContext {
|
|
fn drop(&self) {
|
|
unset_task_llcx();
|
|
}
|
|
}
|
|
|
|
static task_local_llcx_key: local_data::Key<@ContextRef> = &local_data::Key;
|
|
|
|
pub fn task_llcx() -> ContextRef {
|
|
let opt = local_data::get(task_local_llcx_key, |k| k.map_move(|k| *k));
|
|
*opt.expect("task-local LLVMContextRef wasn't ever set!")
|
|
}
|
|
|
|
fn set_task_llcx(c: ContextRef) {
|
|
local_data::set(task_local_llcx_key, @c);
|
|
}
|
|
|
|
fn unset_task_llcx() {
|
|
local_data::pop(task_local_llcx_key);
|
|
}
|