mirrors/Odin
1
0
Fork 0
mirror of https://github.com/odin-lang/Odin.git synced 2026-04-25 07:43:55 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix issue with complication of -debug that is caused sometimes due to lambda procedures.

Browse Source
This commit is contained in:
gingerBill
2018-11-11 11:44:55 +00:00
parent f9654b6c36
commit 620d5d34f7
3 changed files with 20 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
core/fmt/fmt.odin
View File

@@ -958,11 +958,15 @@ fmt_value :: proc(fi: ^Fmt_Info, v: any, verb: rune) {
if hash do write_byte(fi.buf, '\n');
for _, i in b.names {
if !hash && i > 0 do write_string(fi.buf, ", ");
field_count := -1;
for name, i in b.names {
// if len(name) > 0 && name[0] == '_' do continue;
field_count += 1;
if !hash && field_count > 0 do write_string(fi.buf, ", ");
if hash do for in 0..fi.indent-1 do write_byte(fi.buf, '\t');
write_string(fi.buf, b.names[i]);
write_string(fi.buf, name);
write_string(fi.buf, " = ");
if t := b.types[i]; types.is_any(t) {

15
src/ir.cpp
View File

@@ -2116,6 +2116,9 @@ irDebugInfo *ir_add_debug_info_proc_type(irModule *module, Type *type) {
// gb_max(result_count, 1) because llvm expects explicit "null" return type
di->ProcType.types = ir_add_debug_info_array(module, 0, gb_max(result_count, 1) + param_count);
// TODO(bill): Is this even correct?!
irDebugInfo *scope = di;
// Result/return types
if (result_count >= 1) {
TypeTuple *results_tuple = &type->Proc.results->Tuple;
@@ -2125,7 +2128,7 @@ irDebugInfo *ir_add_debug_info_proc_type(irModule *module, Type *type) {
continue;
}
irDebugInfo *type_di = ir_add_debug_info_type(module, e->type, e, nullptr, nullptr);
irDebugInfo *type_di = ir_add_debug_info_type(module, e->type, e, scope, nullptr);
GB_ASSERT_NOT_NULL(type_di);
array_add(&di->ProcType.types->DebugInfoArray.elements, type_di);
}
@@ -2143,7 +2146,7 @@ irDebugInfo *ir_add_debug_info_proc_type(irModule *module, Type *type) {
continue;
}
irDebugInfo *type_di = ir_add_debug_info_type(module, e->type, e, nullptr, nullptr);
irDebugInfo *type_di = ir_add_debug_info_type(module, e->type, e, scope, nullptr);
GB_ASSERT_NOT_NULL(type_di);
array_add(&di->ProcType.types->DebugInfoArray.elements, type_di);
}
@@ -2490,7 +2493,7 @@ irDebugInfo *ir_add_debug_info_global(irModule *module, irValue *v) {
// unique for the DIGlobalVariable's hash.
map_set(&module->debug_info, hash_pointer(var_di), var_di);
var_di->GlobalVariable.type = ir_add_debug_info_type(module, e->type, nullptr, nullptr, nullptr);
var_di->GlobalVariable.type = ir_add_debug_info_type(module, e->type, nullptr, scope, nullptr);
GB_ASSERT_NOT_NULL(var_di->GlobalVariable.type);
di->GlobalVariableExpression.var = var_di;
@@ -2657,9 +2660,11 @@ void ir_value_set_debug_location(irProcedure *proc, irValue *v) {
irModule *m = proc->module;
GB_ASSERT(m->debug_location_stack.count > 0);
v->loc = *array_end_ptr(&m->debug_location_stack);
if (v->loc == nullptr) {
if (v->loc == nullptr && proc->entity != nullptr) {
// NOTE(lachsinc): Entry point (main()) and runtime_startup are the only ones where null location is considered valid.
GB_ASSERT(proc->is_entry_point || (string_compare(proc->name, str_lit(IR_STARTUP_RUNTIME_PROC_NAME)) == 0));
GB_ASSERT_MSG(proc->is_entry_point || (string_compare(proc->name, str_lit(IR_STARTUP_RUNTIME_PROC_NAME)) == 0),
"%.*s %p", LIT(proc->name), proc->entity);
}
}

4
src/ir_print.cpp
View File

@@ -227,7 +227,9 @@ bool ir_print_debug_location(irFileBuffer *f, irModule *m, irValue *v) {
}
} else {
irProcedure *proc = v->Instr.block->proc;
GB_ASSERT(proc->is_entry_point || (string_compare(proc->name, str_lit(IR_STARTUP_RUNTIME_PROC_NAME)) == 0));
if (proc->entity != nullptr) {
GB_ASSERT(proc->is_entry_point || (string_compare(proc->name, str_lit(IR_STARTUP_RUNTIME_PROC_NAME)) == 0));
}
}
return false;
}